annotate leim/quail/uni-input.el @ 71232:55a3edae726b

*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Mon, 05 Jun 2006 17:21:37 +0000
parents f3fbe553f034
children cc89b0870fa8 72dea2ff0142
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
70125
f3fbe553f034 updated copyright year(s)
Ramprasad B <ramprasad_i82@yahoo.com>
parents: 67657
diff changeset
3 ;; Copyright (C) 2001, 2003, 2006 Free Software Foundation, Inc.
67657
b94a4bf1aca6 Copyright fixed
Kenichi Handa <handa@m17n.org>
parents: 66393
diff changeset
4 ;; Copyright (C) 2004
b94a4bf1aca6 Copyright fixed
Kenichi Handa <handa@m17n.org>
parents: 66393
diff changeset
5 ;; National Institute of Advanced Industrial Science and Technology (AIST)
b94a4bf1aca6 Copyright fixed
Kenichi Handa <handa@m17n.org>
parents: 66393
diff changeset
6 ;; Registration Number H14PRO021
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
7
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
8 ;; Author: Dave Love <fx@gnu.org>
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
9 ;; Keywords: i18n
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
10
42320
44b4a14ae7fc Fix Lisp headers.
Pavel Janík <Pavel@Janik.cz>
parents: 40712
diff changeset
11 ;; This file is part of GNU Emacs.
44b4a14ae7fc Fix Lisp headers.
Pavel Janík <Pavel@Janik.cz>
parents: 40712
diff changeset
12
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
13 ;; This file is free software; you can redistribute it and/or modify
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
14 ;; it under the terms of the GNU General Public License as published by
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
15 ;; the Free Software Foundation; either version 2, or (at your option)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
16 ;; any later version.
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
17
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
18 ;; This file is distributed in the hope that it will be useful,
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
21 ;; GNU General Public License for more details.
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
22
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
23 ;; You should have received a copy of the GNU General Public License
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
24 ;; along with GNU Emacs; see the file COPYING. If not, write to
64083
23a17af379b1 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 57212
diff changeset
25 ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23a17af379b1 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 57212
diff changeset
26 ;; Boston, MA 02110-1301, USA.
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
27
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
28 ;;; Commentary:
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
29
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
30 ;; Provides an input method for entering characters by hex unicode in
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
31 ;; the form `uxxxx', similarly to the Yudit editor.
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
32
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
33 ;; This is not really a Quail method, but uses some Quail functions.
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
34 ;; There is probably A Better Way.
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
35
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
36 ;; Compare `ucs-insert', which explicitly inserts a unicoded character
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
37 ;; rather than supplying an input method.
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
38
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
39 ;;; Code:
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 (require 'quail)
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 ;; Maybe stolen from Mule-UCS -- I don't remember.
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
44 (define-ccl-program utf-8-ccl-encode
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
45 `(4 (if (r0 < ?\x80)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
46 ((write r0))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
47 (if (r0 < #x800)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
48 ((write ((r0 >> 6) | ?\xC0))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
49 (write ((r0 & ?\x3F) | ?\x80)))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
50 (if (r0 < #x10000)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
51 ((write ((r0 >> 12) | ?\xE0))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
52 (write (((r0 >> 6) & ?\x3F) | ?\x80))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
53 (write ((r0 & ?\x3F) | ?\x80)))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
54 (if (r0 < #x200000)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
55 ((write ((r0 >> 18) | ?\xF0))
49793
3994dfe96c97 (utf-8-ccl-encode): Fix use of character constants.
Juanma Barranquero <lekktu@gmail.com>
parents: 42320
diff changeset
56 (write (((r0 >> 12) & ?\x3F) | ?\x80))
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
57 (write (((r0 >> 6) & ?\x3F) | ?\x80))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
58 (write ((r0 & ?\x3F) | ?\x80)))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
59 (if (r0 < #x4000000)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
60 ((write ((r0 >> 24) | ?\xF8))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
61 (write (((r0 >> 18) & ?\x3F) | ?\x80))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
62 (write (((r0 >> 12) & ?\x3F) | ?\x80))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
63 (write (((r0 >> 6) & ?\x3F) | ?\x80))
49793
3994dfe96c97 (utf-8-ccl-encode): Fix use of character constants.
Juanma Barranquero <lekktu@gmail.com>
parents: 42320
diff changeset
64 (write ((r0 & ?\x3F) | ?\x80)))
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
65 ((write ((r0 >> 30) | ?\xFC))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
66 (write (((r0 >> 24) & ?\x3F) | ?\x80))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
67 (write (((r0 >> 18) & ?\x3F) | ?\x80))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
68 (write (((r0 >> 12) & ?\x3F) | ?\x80))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
69 (write (((r0 >> 6) & ?\x3F) | ?\x80))
49793
3994dfe96c97 (utf-8-ccl-encode): Fix use of character constants.
Juanma Barranquero <lekktu@gmail.com>
parents: 42320
diff changeset
70 (write ((r0 & ?\x3F) | ?\x80))))))))))
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
71
57180
5afba9a35578 Move the call of register-input-method to leim-ext.el.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
72 (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
73 (insert char)
5afba9a35578 Move the call of register-input-method to leim-ext.el.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
74 (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
75
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
76 (defun ucs-input-method (key)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
77 (if (or buffer-read-only
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
78 (and (/= key ?U) (/= key ?u)))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
79 (list key)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
80 (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
81 (ucs-input-insert-char key)
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
82 (let ((modified-p (buffer-modified-p))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
83 (buffer-undo-list t)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
84 (input-method-function nil)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
85 (echo-keystrokes 0)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
86 (help-char nil)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
87 (events (list key))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
88 (str " "))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
89 (unwind-protect
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
90 (catch 'non-digit
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
91 (progn
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
92 (dotimes (i 4)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
93 (let ((seq (read-key-sequence nil))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
94 key)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
95 (if (and (stringp seq)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
96 (= 1 (length seq))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
97 (setq key (aref seq 0))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
98 (memq key '(?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9 ?a
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
99 ?b ?c ?d ?e ?f ?A ?B ?C ?D ?E ?F)))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
100 (progn
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
101 (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
102 (ucs-input-insert-char key))
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
103 (let ((last-command-char key)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
104 (current-prefix-arg))
57212
fddea2c62003 (ucs-input-method): Add error clause to
Kenichi Handa <handa@m17n.org>
parents: 57180
diff changeset
105 (condition-case err
fddea2c62003 (ucs-input-method): Add error clause to
Kenichi Handa <handa@m17n.org>
parents: 57180
diff changeset
106 (call-interactively (key-binding seq))
fddea2c62003 (ucs-input-method): Add error clause to
Kenichi Handa <handa@m17n.org>
parents: 57180
diff changeset
107 (quail-error (message "%s" (cdr err)) (beep))))
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
108 (quail-delete-region)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
109 (throw 'non-digit (append (reverse events)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
110 (listify-key-sequence seq))))))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
111 (quail-delete-region)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
112 (let* ((n (string-to-number (apply 'string
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
113 (cdr (nreverse events)))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
114 16))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
115 (c (decode-char 'ucs n))
57180
5afba9a35578 Move the call of register-input-method to leim-ext.el.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
116 (status (make-vector 9 nil)))
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
117 (if c
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
118 (list c)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
119 (aset status 0 n)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
120 (string-to-list (ccl-execute-on-string
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
121 'utf-8-ccl-encode status ""))))))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
122 (quail-delete-overlays)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
123 (set-buffer-modified-p modified-p)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
124 (run-hooks 'input-method-after-insert-chunk-hook)))))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
125
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
126 (defun ucs-input-activate (&optional arg)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
127 "Activate UCS input method.
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
128 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
129
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
130 While this input method is active, the variable
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
131 `input-method-function' is bound to the function `ucs-input-method'."
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
132 (if (and arg
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
133 (< (prefix-numeric-value arg) 0))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
134 (unwind-protect
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
135 (progn
57180
5afba9a35578 Move the call of register-input-method to leim-ext.el.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
136 (quail-hide-guidance)
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
137 (quail-delete-overlays)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
138 (setq describe-current-input-method-function nil))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
139 (kill-local-variable 'input-method-function))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
140 (setq inactivate-current-input-method-function 'ucs-input-inactivate)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
141 (setq describe-current-input-method-function 'ucs-input-help)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
142 (quail-delete-overlays)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
143 (if (eq (selected-window) (minibuffer-window))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
144 (add-hook 'minibuffer-exit-hook 'quail-exit-from-minibuffer))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
145 (set (make-local-variable 'input-method-function)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
146 'ucs-input-method)))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
147
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
148 (defun ucs-input-inactivate ()
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
149 "Inactivate UCS input method."
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
150 (interactive)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
151 (ucs-input-activate -1))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
152
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
153 (defun ucs-input-help ()
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
154 (interactive)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
155 (with-output-to-temp-buffer "*Help*"
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
156 (princ "\
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
157 Input method: ucs (mode line indicator:U)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
158
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
159 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
160
57180
5afba9a35578 Move the call of register-input-method to leim-ext.el.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
161 ;; 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
162 ;; (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
163 ;; "Unicode input as hex in the form Uxxxx.")
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
164
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
165 (provide 'uni-input)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
166
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49793
diff changeset
167 ;;; arch-tag: e0d91c7c-19a1-43d3-8f2b-28c0e031efaa
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
168 ;;; uni-input.el ends here