diff options
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.el | 111 |
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 |