annotate leim/quail/uni-input.el @ 111036:db77dacc48e1

merge emacs-23
author Kenichi Handa <handa@m17n.org>
date Fri, 15 Oct 2010 09:43:23 +0900
parents 1d1d5d9bd884
children 376148b31b5e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
1 ;;; uni-input.el --- Hex Unicode input method
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
2
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100963
diff changeset
3 ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
75253
f5f322eb227f Update copyright for years from Emacs 21 to present.
Glenn Morris <rgm@gnu.org>
parents: 75203
diff changeset
4 ;; Free Software Foundation, Inc.
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100963
diff changeset
5 ;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010
67657
b94a4bf1aca6 Copyright fixed
Kenichi Handa <handa@m17n.org>
parents: 66393
diff changeset
6 ;; National Institute of Advanced Industrial Science and Technology (AIST)
b94a4bf1aca6 Copyright fixed
Kenichi Handa <handa@m17n.org>
parents: 66393
diff changeset
7 ;; Registration Number H14PRO021
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
8
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
9 ;; Author: Dave Love <fx@gnu.org>
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
10 ;; Keywords: i18n
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
11
42320
44b4a14ae7fc Fix Lisp headers.
Pavel Janík <Pavel@Janik.cz>
parents: 40712
diff changeset
12 ;; This file is part of GNU Emacs.
44b4a14ae7fc Fix Lisp headers.
Pavel Janík <Pavel@Janik.cz>
parents: 40712
diff changeset
13
94710
4f1fd208c354 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91327
diff changeset
14 ;; GNU Emacs is free software: you can redistribute it and/or modify
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
15 ;; it under the terms of the GNU General Public License as published by
94710
4f1fd208c354 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91327
diff changeset
16 ;; the Free Software Foundation, either version 3 of the License, or
4f1fd208c354 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91327
diff changeset
17 ;; (at your option) any later version.
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
18
94710
4f1fd208c354 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91327
diff changeset
19 ;; GNU Emacs is distributed in the hope that it will be useful,
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
22 ;; GNU General Public License for more details.
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
23
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
24 ;; You should have received a copy of the GNU General Public License
94710
4f1fd208c354 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91327
diff changeset
25 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
26
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
27 ;;; Commentary:
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
28
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
29 ;; Provides an input method for entering characters by hex unicode in
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
30 ;; the form `uxxxx', similarly to the Yudit editor.
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
31
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
32 ;; This is not really a Quail method, but uses some Quail functions.
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
33 ;; There is probably A Better Way.
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
34
88785
3387266b74c1 (utf-8-ccl-encode): Deleted.
Dave Love <fx@gnu.org>
parents: 42320
diff changeset
35 ;; You can get a similar effect by using C-q with
3387266b74c1 (utf-8-ccl-encode): Deleted.
Dave Love <fx@gnu.org>
parents: 42320
diff changeset
36 ;; `read-quoted-char-radix' set to 16.
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
37
89384
02430d914fc1 Comment.
Dave Love <fx@gnu.org>
parents: 88785
diff changeset
38 ;; Note that this only allows you to enter BMP values unless someone
02430d914fc1 Comment.
Dave Love <fx@gnu.org>
parents: 88785
diff changeset
39 ;; extends it to use variable numbers of digits.
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
40
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
41 ;;; Code:
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
42
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
43 (require 'quail)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
44
57180
5afba9a35578 Move the call of register-input-method to leim-ext.el.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
45 (defun ucs-input-insert-char (char)
5afba9a35578 Move the call of register-input-method to leim-ext.el.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
46 (insert char)
5afba9a35578 Move the call of register-input-method to leim-ext.el.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
47 (move-overlay quail-overlay (overlay-start quail-overlay) (point)))
5afba9a35578 Move the call of register-input-method to leim-ext.el.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
48
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
49 (defun ucs-input-method (key)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
50 (if (or buffer-read-only
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
51 (and (/= key ?U) (/= key ?u)))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
52 (list key)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
53 (quail-setup-overlays nil)
57180
5afba9a35578 Move the call of register-input-method to leim-ext.el.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
54 (ucs-input-insert-char key)
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
55 (let ((modified-p (buffer-modified-p))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
56 (buffer-undo-list t)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
57 (input-method-function nil)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
58 (echo-keystrokes 0)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
59 (help-char nil)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
60 (events (list key))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
61 (str " "))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
62 (unwind-protect
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
63 (catch 'non-digit
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
64 (progn
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
65 (dotimes (i 4)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
66 (let ((seq (read-key-sequence nil))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
67 key)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
68 (if (and (stringp seq)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
69 (= 1 (length seq))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
70 (setq key (aref seq 0))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
71 (memq key '(?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9 ?a
88785
3387266b74c1 (utf-8-ccl-encode): Deleted.
Dave Love <fx@gnu.org>
parents: 42320
diff changeset
72 ?b ?c ?d ?e ?f ?A ?B ?C ?D ?E ?F)))
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
73 (progn
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
74 (push key events)
57180
5afba9a35578 Move the call of register-input-method to leim-ext.el.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
75 (ucs-input-insert-char key))
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
76 (quail-delete-region)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
77 (throw 'non-digit (append (reverse events)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
78 (listify-key-sequence seq))))))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
79 (quail-delete-region)
88785
3387266b74c1 (utf-8-ccl-encode): Deleted.
Dave Love <fx@gnu.org>
parents: 42320
diff changeset
80 (let ((n (string-to-number (apply 'string
3387266b74c1 (utf-8-ccl-encode): Deleted.
Dave Love <fx@gnu.org>
parents: 42320
diff changeset
81 (cdr (nreverse events)))
3387266b74c1 (utf-8-ccl-encode): Deleted.
Dave Love <fx@gnu.org>
parents: 42320
diff changeset
82 16)))
3387266b74c1 (utf-8-ccl-encode): Deleted.
Dave Love <fx@gnu.org>
parents: 42320
diff changeset
83 (if (characterp n)
3387266b74c1 (utf-8-ccl-encode): Deleted.
Dave Love <fx@gnu.org>
parents: 42320
diff changeset
84 (list n)))))
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
85 (quail-delete-overlays)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
86 (set-buffer-modified-p modified-p)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
87 (run-hooks 'input-method-after-insert-chunk-hook)))))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
88
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
89 (defun ucs-input-activate (&optional arg)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
90 "Activate UCS input method.
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
91 With arg, activate UCS input method if and only if arg is positive.
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
92
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
93 While this input method is active, the variable
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
94 `input-method-function' is bound to the function `ucs-input-method'."
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
95 (if (and arg
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
96 (< (prefix-numeric-value arg) 0))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
97 (unwind-protect
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
98 (progn
57180
5afba9a35578 Move the call of register-input-method to leim-ext.el.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
99 (quail-hide-guidance)
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
100 (quail-delete-overlays)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
101 (setq describe-current-input-method-function nil))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
102 (kill-local-variable 'input-method-function))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
103 (setq inactivate-current-input-method-function 'ucs-input-inactivate)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
104 (setq describe-current-input-method-function 'ucs-input-help)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
105 (quail-delete-overlays)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
106 (if (eq (selected-window) (minibuffer-window))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
107 (add-hook 'minibuffer-exit-hook 'quail-exit-from-minibuffer))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
108 (set (make-local-variable 'input-method-function)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
109 'ucs-input-method)))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
110
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
111 (defun ucs-input-inactivate ()
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
112 "Inactivate UCS input method."
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
113 (interactive)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
114 (ucs-input-activate -1))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
115
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
116 (defun ucs-input-help ()
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
117 (interactive)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
118 (with-output-to-temp-buffer "*Help*"
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
119 (princ "\
74538
dc4eb942b3a5 (ucs-input-help): Fix title of ucs input method.
Juanma Barranquero <lekktu@gmail.com>
parents: 72860
diff changeset
120 Input method: ucs (mode line indicator:U+)
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
121
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
122 Input as Unicode: U<hex> or u<hex>, where <hex> is a four-digit hex number.")))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
123
57180
5afba9a35578 Move the call of register-input-method to leim-ext.el.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
124 ;; The file ../leim-ext.el contains the following call.
5afba9a35578 Move the call of register-input-method to leim-ext.el.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
125 ;; (register-input-method "ucs" "UTF-8" 'ucs-input-activate "U+"
5afba9a35578 Move the call of register-input-method to leim-ext.el.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
126 ;; "Unicode input as hex in the form Uxxxx.")
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
127
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
128 (provide 'uni-input)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
129
94710
4f1fd208c354 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91327
diff changeset
130 ;; arch-tag: e0d91c7c-19a1-43d3-8f2b-28c0e031efaa
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
131 ;;; uni-input.el ends here