annotate leim/quail/uni-input.el @ 87008:888320f5e3f7

*** empty log message ***
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 03 Dec 2007 09:28:15 +0000
parents 126deea128b3
children 3ca83a726835 f55f9811f5d7
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
75253
f5f322eb227f Update copyright for years from Emacs 21 to present.
Glenn Morris <rgm@gnu.org>
parents: 75203
diff changeset
3 ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007
f5f322eb227f Update copyright for years from Emacs 21 to present.
Glenn Morris <rgm@gnu.org>
parents: 75203
diff changeset
4 ;; Free Software Foundation, Inc.
f5f322eb227f Update copyright for years from Emacs 21 to present.
Glenn Morris <rgm@gnu.org>
parents: 75203
diff changeset
5 ;; Copyright (C) 2004, 2005, 2006, 2007
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
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
14 ;; This file is free software; you can redistribute it and/or modify
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
78308
126deea128b3 Restore comma mistakenly removed in last change.
Glenn Morris <rgm@gnu.org>
parents: 78303
diff changeset
16 ;; the Free Software Foundation; either version 3, or (at your option)
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
17 ;; any later version.
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
18
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
19 ;; This file is distributed in the hope that it will be useful,
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
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
25 ;; 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
26 ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23a17af379b1 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 57212
diff changeset
27 ;; Boston, MA 02110-1301, USA.
40712
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 ;;; Commentary:
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
30
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
31 ;; Provides an input method for entering characters by hex unicode in
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
32 ;; the form `uxxxx', similarly to the Yudit editor.
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
33
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
34 ;; This is not really a Quail method, but uses some Quail functions.
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
35 ;; There is probably A Better Way.
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
36
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
37 ;; Compare `ucs-insert', which explicitly inserts a unicoded character
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
38 ;; rather than supplying an input method.
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
39
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
40 ;;; Code:
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
41
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
42 (require 'quail)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
43
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
44 ;; Maybe stolen from Mule-UCS -- I don't remember.
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
45 (define-ccl-program utf-8-ccl-encode
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
46 `(4 (if (r0 < ?\x80)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
47 ((write r0))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
48 (if (r0 < #x800)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
49 ((write ((r0 >> 6) | ?\xC0))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
50 (write ((r0 & ?\x3F) | ?\x80)))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
51 (if (r0 < #x10000)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
52 ((write ((r0 >> 12) | ?\xE0))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
53 (write (((r0 >> 6) & ?\x3F) | ?\x80))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
54 (write ((r0 & ?\x3F) | ?\x80)))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
55 (if (r0 < #x200000)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
56 ((write ((r0 >> 18) | ?\xF0))
49793
3994dfe96c97 (utf-8-ccl-encode): Fix use of character constants.
Juanma Barranquero <lekktu@gmail.com>
parents: 42320
diff changeset
57 (write (((r0 >> 12) & ?\x3F) | ?\x80))
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
58 (write (((r0 >> 6) & ?\x3F) | ?\x80))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
59 (write ((r0 & ?\x3F) | ?\x80)))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
60 (if (r0 < #x4000000)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
61 ((write ((r0 >> 24) | ?\xF8))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
62 (write (((r0 >> 18) & ?\x3F) | ?\x80))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
63 (write (((r0 >> 12) & ?\x3F) | ?\x80))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
64 (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
65 (write ((r0 & ?\x3F) | ?\x80)))
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
66 ((write ((r0 >> 30) | ?\xFC))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
67 (write (((r0 >> 24) & ?\x3F) | ?\x80))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
68 (write (((r0 >> 18) & ?\x3F) | ?\x80))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
69 (write (((r0 >> 12) & ?\x3F) | ?\x80))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
70 (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
71 (write ((r0 & ?\x3F) | ?\x80))))))))))
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
72
57180
5afba9a35578 Move the call of register-input-method to leim-ext.el.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
73 (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
74 (insert char)
5afba9a35578 Move the call of register-input-method to leim-ext.el.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
75 (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
76
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
77 (defun ucs-input-method (key)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
78 (if (or buffer-read-only
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
79 (and (/= key ?U) (/= key ?u)))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
80 (list key)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
81 (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
82 (ucs-input-insert-char key)
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
83 (let ((modified-p (buffer-modified-p))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
84 (buffer-undo-list t)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
85 (input-method-function nil)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
86 (echo-keystrokes 0)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
87 (help-char nil)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
88 (events (list key))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
89 (str " "))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
90 (unwind-protect
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
91 (catch 'non-digit
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
92 (progn
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
93 (dotimes (i 4)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
94 (let ((seq (read-key-sequence nil))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
95 key)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
96 (if (and (stringp seq)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
97 (= 1 (length seq))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
98 (setq key (aref seq 0))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
99 (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
100 ?b ?c ?d ?e ?f ?A ?B ?C ?D ?E ?F)))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
101 (progn
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
102 (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
103 (ucs-input-insert-char key))
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
104 (quail-delete-region)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
105 (throw 'non-digit (append (reverse events)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
106 (listify-key-sequence seq))))))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
107 (quail-delete-region)
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
108 (let* ((n (string-to-number (apply 'string
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
109 (cdr (nreverse events)))
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
110 16))
75203
814b3ff94f47 (ucs-input-method): Signal an error for a
Kenichi Handa <handa@m17n.org>
parents: 74605
diff changeset
111 (c (decode-char 'ucs n)))
40712
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
112 (if c
31101867e6bf *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
113 (list c)
75203
814b3ff94f47 (ucs-input-method): Signal an error for a
Kenichi Handa <handa@m17n.org>
parents: 74605
diff changeset
114 ;; The intention of the following code is to insert
814b3ff94f47 (ucs-input-method): Signal an error for a
Kenichi Handa <handa@m17n.org>
parents: 74605
diff changeset
115 ;; a correct UTF-8 sequence by raw bytes, but
814b3ff94f47 (ucs-input-method): Signal an error for a
Kenichi Handa <handa@m17n.org>
parents: 74605
diff changeset
116 ;; currently it doesn't work.
814b3ff94f47 (ucs-input-method): Signal an error for a
Kenichi Handa <handa@m17n.org>
parents: 74605
diff changeset
117 ;; (let ((status (make-vector 9 nil)))
814b3ff94f47 (ucs-input-method): Signal an error for a
Kenichi Handa <handa@m17n.org>
parents: 74605
diff changeset
118 ;; (aset status 0 n)
814b3ff94f47 (ucs-input-method): Signal an error for a
Kenichi Handa <handa@m17n.org>
parents: 74605
diff changeset
119 ;; (string-to-list (ccl-execute-on-string
814b3ff94f47 (ucs-input-method): Signal an error for a
Kenichi Handa <handa@m17n.org>
parents: 74605
diff changeset
120 ;; 'utf-8-ccl-encode status "")))
814b3ff94f47 (ucs-input-method): Signal an error for a
Kenichi Handa <handa@m17n.org>
parents: 74605
diff changeset
121 (error "Character U+%04X is not yet supported" n)))))
40712
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 "\
74538
dc4eb942b3a5 (ucs-input-help): Fix title of ucs input method.
Juanma Barranquero <lekktu@gmail.com>
parents: 72860
diff changeset
157 Input method: ucs (mode line indicator:U+)
40712
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