summaryrefslogtreecommitdiff
path: root/language/chinese/CJK/cjk-4.8.4/utils/lisp/cjktilde.el
diff options
context:
space:
mode:
Diffstat (limited to 'language/chinese/CJK/cjk-4.8.4/utils/lisp/cjktilde.el')
-rw-r--r--language/chinese/CJK/cjk-4.8.4/utils/lisp/cjktilde.el111
1 files changed, 0 insertions, 111 deletions
diff --git a/language/chinese/CJK/cjk-4.8.4/utils/lisp/cjktilde.el b/language/chinese/CJK/cjk-4.8.4/utils/lisp/cjktilde.el
deleted file mode 100644
index 1d075fc688..0000000000
--- a/language/chinese/CJK/cjk-4.8.4/utils/lisp/cjktilde.el
+++ /dev/null
@@ -1,111 +0,0 @@
-;;; cjktilde.el -- minor mode exchanging `~' and ` ' keys.
-
-;; Copyright (C) 1994-2015 Werner Lemberg <wl@gnu.org>
-;;
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2 of the License, or
-;; (at your option) any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program in doc/COPYING; if not, write to the Free
-;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
-;; MA 02110-1301 USA
-
-;; This file is part of the CJK package Version 4.8.4 (18-Apr-2015)
-
-;; Function `cjk-tilde-mode' activates a minor mode (`cjk-tilde-minor-mode')
-;; which exchanges the tilde key with the space key. This is useful for
-;; writing Chinese or Japanese with the CJK macro package for LaTeX 2e which
-;; redefines the `~' command to insert a shibuaki space (see documentation
-;; of the \CJKtilde macro for further details).
-
-;;; Code:
-
-(provide 'cjktilde)
-
-
-(defvar cjk-tilde-minor-mode nil
-
- "*Non-nil enables CJK tilde mode.
-Setting this variable makes it local to the current buffer.
-See `cjk-tilde-mode' for details.")
-
-(make-variable-buffer-local 'cjk-tilde-minor-mode)
-
-
-;; the following two functions do the exchange.
-(defun electric-cjk-tilde (arg)
-
- "insert space if tilde key is pressed provided cjk-tilde-minor-mode is
-activated."
-
- (if cjk-tilde-minor-mode
- (char-to-string ?\ )
- (char-to-string ?\~)
- )
-)
-
-
-(defun electric-cjk-space (arg)
-
- "insert tilde if space key is pressed provided cjk-tilde-minor-mode is
-activated."
-
- (if cjk-tilde-minor-mode
- (char-to-string ?\~)
- (char-to-string ?\ )
- )
-)
-
-
-(or key-translation-map (setq key-translation-map (make-sparse-keymap)))
-
-(define-key key-translation-map " " 'electric-cjk-space)
-(define-key key-translation-map "~" 'electric-cjk-tilde)
-
-
-;; we indicate the minor mode in the mode line.
-(or (assq 'cjk-tilde-minor-mode minor-mode-map-alist)
- (setq minor-mode-alist
- (append minor-mode-alist
- '((cjk-tilde-minor-mode " ~"))
- )
- )
-)
-
-;;;###autoload
-(defun cjk-tilde-mode (&optional arg)
-
- "Toggle CJK tilde mode. If enabled, a tilde character will be inserted if
-the space key is pressed and vice versa.
-
-Use with caution! This minor mode makes only sense for CJK environments
-after insertion of the \\CJKtilde command. See the documentation of the
-CJK package for further details.
-
-With an argument, a positive argument enables CJK tilde mode,
-and a negative argument disables it."
-
- (interactive "P")
-
- (if (if arg
- ;; negative arg: switch off
- (<= (prefix-numeric-value arg) 0)
- ;; no arg: toggle
- cjk-tilde-minor-mode)
- (setq cjk-tilde-minor-mode nil)
-
- ;; positive arg: switch on
- (setq cjk-tilde-minor-mode t)
- )
- (force-mode-line-update)
-)
-
-
-;;; end of cjktilde.el