Mercurial > emacs
annotate lisp/international/quail.el @ 96766:19a21a87b52a
Change from author without assignment thankfully tiny.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 17 Jul 2008 16:32:15 +0000 |
parents | 889bc336b89b |
children | bb607b812d23 |
rev | line source |
---|---|
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
38105
diff
changeset
|
1 ;;; quail.el --- provides simple input method for multilingual text |
17052 | 2 |
74544 | 3 ;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2005, |
79709 | 4 ;; 2006, 2007, 2008 Free Software Foundation, Inc. |
74605
6ee41fdd69ff
Update AIST copyright years.
Kenichi Handa <handa@m17n.org>
parents:
74544
diff
changeset
|
5 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
79709 | 6 ;; 2005, 2006, 2007, 2008 |
60709 | 7 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
8 ;; Registration Number H14PRO021 | |
17052 | 9 |
10 ;; Author: Kenichi HANDA <handa@etl.go.jp> | |
11 ;; Naoto TAKAHASHI <ntakahas@etl.go.jp> | |
12 ;; Maintainer: Kenichi HANDA <handa@etl.go.jp> | |
42048
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
13 ;; Keywords: mule, multilingual, input method, i18n |
17052 | 14 |
15 ;; This file is part of GNU Emacs. | |
16 | |
94664
889bc336b89b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94329
diff
changeset
|
17 ;; GNU Emacs is free software: you can redistribute it and/or modify |
17052 | 18 ;; it under the terms of the GNU General Public License as published by |
94664
889bc336b89b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94329
diff
changeset
|
19 ;; the Free Software Foundation, either version 3 of the License, or |
889bc336b89b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94329
diff
changeset
|
20 ;; (at your option) any later version. |
17052 | 21 |
22 ;; GNU Emacs is distributed in the hope that it will be useful, | |
23 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
24 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
25 ;; GNU General Public License for more details. | |
26 | |
27 ;; You should have received a copy of the GNU General Public License | |
94664
889bc336b89b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94329
diff
changeset
|
28 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
17052 | 29 |
30 ;;; Commentary: | |
31 | |
32 ;; In Quail minor mode, you can input multilingual text easily. By | |
33 ;; defining a translation table (named Quail map) which maps ASCII key | |
34 ;; string to multilingual character or string, you can input any text | |
35 ;; from ASCII keyboard. | |
36 ;; | |
37 ;; We use words "translation" and "conversion" differently. The | |
38 ;; former is done by Quail package itself, the latter is the further | |
39 ;; process of converting a translated text to some more desirable | |
40 ;; text. For instance, Quail package for Japanese (`quail-jp') | |
41 ;; translates Roman text (transliteration of Japanese in Latin | |
42 ;; alphabets) to Hiragana text, which is then converted to | |
43 ;; Kanji-and-Kana mixed text or Katakana text by commands specified in | |
44 ;; CONVERSION-KEYS argument of the Quail package. | |
45 | |
42048
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
46 ;; [There was an input method for Mule 2.3 called `Tamago' from the |
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
47 ;; Japanese `TAkusan MAtasete GOmenasai', or `Sorry for having you |
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
48 ;; wait so long'; this couldn't be included in Emacs 20. `Tamago' is |
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
49 ;; Japanese for `egg' (implicitly a hen's egg). Handa-san made a |
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
50 ;; smaller and simpler system; the smaller quail egg is also eaten in |
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
51 ;; Japan. Maybe others will be egged on to write more sorts of input |
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
52 ;; methods.] |
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
53 |
17052 | 54 ;;; Code: |
55 | |
82284
65186e6b080e
Wrap (require 'help-mode) by
Kenichi Handa <handa@m17n.org>
parents:
78310
diff
changeset
|
56 (eval-when-compile (require 'help-mode)) |
41538
63a5d03689eb
(quail-help): Require help-mode in top-level instead.
Pavel Janík <Pavel@Janik.cz>
parents:
41506
diff
changeset
|
57 |
31424 | 58 (defgroup quail nil |
59 "Quail: multilingual input method." | |
60 :group 'leim) | |
17052 | 61 |
62 ;; Buffer local variables | |
63 | |
64 (defvar quail-current-package nil | |
19391
763bc03e7797
(quail-guidance-buf): Now a permanent local.
Richard M. Stallman <rms@gnu.org>
parents:
19327
diff
changeset
|
65 "The current Quail package, which depends on the current input method. |
17052 | 66 See the documentation of `quail-package-alist' for the format.") |
67 (make-variable-buffer-local 'quail-current-package) | |
68 (put 'quail-current-package 'permanent-local t) | |
69 | |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
70 ;; Quail uses the following variables to assist users. |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
71 ;; A string containing available key sequences or translation list. |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
72 (defvar quail-guidance-str nil) |
17052 | 73 ;; A buffer to show completion list of the current key sequence. |
74 (defvar quail-completion-buf nil) | |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
75 ;; We may display the guidance string in a buffer on a one-line frame. |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
76 (defvar quail-guidance-buf nil) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
77 (defvar quail-guidance-frame nil) |
17052 | 78 |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
79 ;; Each buffer in which Quail is activated should use different |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
80 ;; guidance string. |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
81 (make-variable-buffer-local 'quail-guidance-str) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
82 (put 'quail-guidance-str 'permanent-local t) |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
83 |
17052 | 84 (defvar quail-overlay nil |
85 "Overlay which covers the current translation region of Quail.") | |
86 (make-variable-buffer-local 'quail-overlay) | |
87 | |
88 (defvar quail-conv-overlay nil | |
89 "Overlay which covers the text to be converted in Quail mode.") | |
90 (make-variable-buffer-local 'quail-conv-overlay) | |
91 | |
92 (defvar quail-current-key nil | |
93 "Current key for translation in Quail mode.") | |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
94 (make-variable-buffer-local 'quail-current-key) |
17052 | 95 |
96 (defvar quail-current-str nil | |
97 "Currently selected translation of the current key.") | |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
98 (make-variable-buffer-local 'quail-current-str) |
17052 | 99 |
100 (defvar quail-current-translations nil | |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
101 "Cons of indices and vector of possible translations of the current key. |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
102 Indices is a list of (CURRENT START END BLOCK BLOCKS), where |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
103 CURRENT is an index of the current translation, |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
104 START and END are indices of the start and end of the current block, |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
105 BLOCK is the current block index, |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
106 BLOCKS is a number of blocks of translation.") |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
107 (make-variable-buffer-local 'quail-current-translations) |
17052 | 108 |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
109 (defvar quail-current-data nil |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
110 "Any Lisp object holding information of current translation status. |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
111 When a key sequence is mapped to TRANS and TRANS is a cons |
23176 | 112 of actual translation and some Lisp object to be referred |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
113 for translating the longer key sequence, this variable is set |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
114 to that Lisp object.") |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
115 (make-variable-buffer-local 'quail-current-data) |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
116 |
17052 | 117 ;; Quail package handlers. |
118 | |
119 (defvar quail-package-alist nil | |
120 "List of Quail packages. | |
121 A Quail package is a list of these elements: | |
122 NAME, TITLE, QUAIL-MAP, GUIDANCE, DOCSTRING, TRANSLATION-KEYS, | |
123 FORGET-LAST-SELECTION, DETERMINISTIC, KBD-TRANSLATE, SHOW-LAYOUT, | |
124 DECODE-MAP, MAXIMUM-SHORTEST, OVERLAY-PLIST, UPDATE-TRANSLATION-FUNCTION, | |
19849
1c5164d81426
(quail-simple): New function.
Kenichi Handa <handa@m17n.org>
parents:
19844
diff
changeset
|
125 CONVERSION-KEYS, SIMPLE. |
17052 | 126 |
127 QUAIL-MAP is a data structure to map key strings to translations. For | |
128 the format, see the documentation of `quail-map-p'. | |
129 | |
130 DECODE-MAP is an alist of translations and corresponding keys. | |
131 | |
132 See the documentation of `quail-define-package' for the other elements.") | |
133 | |
134 ;; Return various slots in the current quail-package. | |
135 | |
136 (defsubst quail-name () | |
137 "Return the name of the current Quail package." | |
138 (nth 0 quail-current-package)) | |
36562
91b83ca63e8c
(quail-title): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents:
36532
diff
changeset
|
139 ;;;###autoload |
91b83ca63e8c
(quail-title): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents:
36532
diff
changeset
|
140 (defun quail-title () |
17052 | 141 "Return the title of the current Quail package." |
36532
3acc5c0fdb1d
(quail-title): Fix for the case that a title of an input method is
Kenichi Handa <handa@m17n.org>
parents:
36465
diff
changeset
|
142 (let ((title (nth 1 quail-current-package))) |
3acc5c0fdb1d
(quail-title): Fix for the case that a title of an input method is
Kenichi Handa <handa@m17n.org>
parents:
36465
diff
changeset
|
143 ;; TITLE may be a string or a list. If it is a list, each element |
3acc5c0fdb1d
(quail-title): Fix for the case that a title of an input method is
Kenichi Handa <handa@m17n.org>
parents:
36465
diff
changeset
|
144 ;; is a string or the form (VAR STR1 STR2), and the interpretation |
3acc5c0fdb1d
(quail-title): Fix for the case that a title of an input method is
Kenichi Handa <handa@m17n.org>
parents:
36465
diff
changeset
|
145 ;; of the list is the same as that of mode-line-format. |
3acc5c0fdb1d
(quail-title): Fix for the case that a title of an input method is
Kenichi Handa <handa@m17n.org>
parents:
36465
diff
changeset
|
146 (if (stringp title) |
3acc5c0fdb1d
(quail-title): Fix for the case that a title of an input method is
Kenichi Handa <handa@m17n.org>
parents:
36465
diff
changeset
|
147 title |
3acc5c0fdb1d
(quail-title): Fix for the case that a title of an input method is
Kenichi Handa <handa@m17n.org>
parents:
36465
diff
changeset
|
148 (condition-case nil |
3acc5c0fdb1d
(quail-title): Fix for the case that a title of an input method is
Kenichi Handa <handa@m17n.org>
parents:
36465
diff
changeset
|
149 (mapconcat |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48233
diff
changeset
|
150 (lambda (x) |
36532
3acc5c0fdb1d
(quail-title): Fix for the case that a title of an input method is
Kenichi Handa <handa@m17n.org>
parents:
36465
diff
changeset
|
151 (cond ((stringp x) x) |
3acc5c0fdb1d
(quail-title): Fix for the case that a title of an input method is
Kenichi Handa <handa@m17n.org>
parents:
36465
diff
changeset
|
152 ((and (listp x) (symbolp (car x)) (= (length x) 3)) |
3acc5c0fdb1d
(quail-title): Fix for the case that a title of an input method is
Kenichi Handa <handa@m17n.org>
parents:
36465
diff
changeset
|
153 (if (symbol-value (car x)) |
3acc5c0fdb1d
(quail-title): Fix for the case that a title of an input method is
Kenichi Handa <handa@m17n.org>
parents:
36465
diff
changeset
|
154 (nth 1 x) (nth 2 x))) |
3acc5c0fdb1d
(quail-title): Fix for the case that a title of an input method is
Kenichi Handa <handa@m17n.org>
parents:
36465
diff
changeset
|
155 (t ""))) |
3acc5c0fdb1d
(quail-title): Fix for the case that a title of an input method is
Kenichi Handa <handa@m17n.org>
parents:
36465
diff
changeset
|
156 title "") |
3acc5c0fdb1d
(quail-title): Fix for the case that a title of an input method is
Kenichi Handa <handa@m17n.org>
parents:
36465
diff
changeset
|
157 (error ""))))) |
17052 | 158 (defsubst quail-map () |
159 "Return the translation map of the current Quail package." | |
160 (nth 2 quail-current-package)) | |
161 (defsubst quail-guidance () | |
162 "Return an object used for `guidance' feature of the current Quail package. | |
163 See also the documentation of `quail-define-package'." | |
164 (nth 3 quail-current-package)) | |
165 (defsubst quail-docstring () | |
166 "Return the documentation string of the current Quail package." | |
167 (nth 4 quail-current-package)) | |
168 (defsubst quail-translation-keymap () | |
169 "Return translation keymap in the current Quail package. | |
170 Translation keymap is a keymap used while translation region is active." | |
171 (nth 5 quail-current-package)) | |
172 (defsubst quail-forget-last-selection () | |
173 "Return `forget-last-selection' flag of the current Quail package. | |
174 See also the documentation of `quail-define-package'." | |
175 (nth 6 quail-current-package)) | |
176 (defsubst quail-deterministic () | |
177 "Return `deterministic' flag of the current Quail package. | |
178 See also the documentation of `quail-define-package'." | |
179 (nth 7 quail-current-package)) | |
180 (defsubst quail-kbd-translate () | |
181 "Return `kbd-translate' flag of the current Quail package. | |
182 See also the documentation of `quail-define-package'." | |
183 (nth 8 quail-current-package)) | |
184 (defsubst quail-show-layout () | |
185 "Return `show-layout' flag of the current Quail package. | |
186 See also the documentation of `quail-define-package'." | |
187 (nth 9 quail-current-package)) | |
188 (defsubst quail-decode-map () | |
189 "Return decode map of the current Quail package. | |
190 It is an alist of translations and corresponding keys." | |
191 (nth 10 quail-current-package)) | |
192 (defsubst quail-maximum-shortest () | |
193 "Return `maximum-shortest' flag of the current Quail package. | |
194 See also the documentation of `quail-define-package'." | |
195 (nth 11 quail-current-package)) | |
196 (defsubst quail-overlay-plist () | |
197 "Return property list of an overly used in the current Quail package." | |
198 (nth 12 quail-current-package)) | |
199 (defsubst quail-update-translation-function () | |
200 "Return a function for updating translation in the current Quail package." | |
201 (nth 13 quail-current-package)) | |
202 (defsubst quail-conversion-keymap () | |
203 "Return conversion keymap in the current Quail package. | |
204 Conversion keymap is a keymap used while conversion region is active | |
205 but translation region is not active." | |
206 (nth 14 quail-current-package)) | |
19849
1c5164d81426
(quail-simple): New function.
Kenichi Handa <handa@m17n.org>
parents:
19844
diff
changeset
|
207 (defsubst quail-simple () |
1c5164d81426
(quail-simple): New function.
Kenichi Handa <handa@m17n.org>
parents:
19844
diff
changeset
|
208 "Return t if the current Quail package is simple." |
1c5164d81426
(quail-simple): New function.
Kenichi Handa <handa@m17n.org>
parents:
19844
diff
changeset
|
209 (nth 15 quail-current-package)) |
17052 | 210 |
211 (defsubst quail-package (name) | |
212 "Return Quail package named NAME." | |
213 (assoc name quail-package-alist)) | |
214 | |
215 (defun quail-add-package (package) | |
216 "Add Quail package PACKAGE to `quail-package-alist'." | |
217 (let ((pac (quail-package (car package)))) | |
218 (if pac | |
219 (setcdr pac (cdr package)) | |
220 (setq quail-package-alist (cons package quail-package-alist))))) | |
221 | |
222 (defun quail-select-package (name) | |
223 "Select Quail package named NAME as the current Quail package." | |
224 (let ((package (quail-package name))) | |
225 (if (null package) | |
226 (error "No Quail package `%s'" name)) | |
227 (setq quail-current-package package) | |
228 (setq-default quail-current-package package) | |
229 name)) | |
230 | |
231 ;;;###autoload | |
232 (defun quail-use-package (package-name &rest libraries) | |
233 "Start using Quail package PACKAGE-NAME. | |
39143
b73fe7fe3c9f
(quail-use-package, quail-inactivate)
Eli Zaretskii <eliz@gnu.org>
parents:
39024
diff
changeset
|
234 The remaining arguments are libraries to be loaded before using the package. |
b73fe7fe3c9f
(quail-use-package, quail-inactivate)
Eli Zaretskii <eliz@gnu.org>
parents:
39024
diff
changeset
|
235 |
b73fe7fe3c9f
(quail-use-package, quail-inactivate)
Eli Zaretskii <eliz@gnu.org>
parents:
39024
diff
changeset
|
236 This activates input method defined by PACKAGE-NAME by running |
b73fe7fe3c9f
(quail-use-package, quail-inactivate)
Eli Zaretskii <eliz@gnu.org>
parents:
39024
diff
changeset
|
237 `quail-activate', which see." |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
238 (let ((package (quail-package package-name))) |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
239 (if (null package) |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
240 ;; Perhaps we have not yet loaded necessary libraries. |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
241 (while libraries |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
242 (if (not (load (car libraries) t)) |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
243 (progn |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
244 (with-output-to-temp-buffer "*Help*" |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
245 (princ "Quail package \"") |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
246 (princ package-name) |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
247 (princ "\" can't be activated\n because library \"") |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
248 (princ (car libraries)) |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
249 (princ "\" is not in `load-path'. |
17052 | 250 |
251 The most common case is that you have not yet installed appropriate | |
252 libraries in LEIM (Libraries of Emacs Input Method) which is | |
253 distributed separately from Emacs. | |
254 | |
255 LEIM is available from the same ftp directory as Emacs.")) | |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
256 (error "Can't use the Quail package `%s'" package-name)) |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
257 (setq libraries (cdr libraries)))))) |
17052 | 258 (quail-select-package package-name) |
259 (setq current-input-method-title (quail-title)) | |
31217
8e8fa4dbc0bc
(quail-use-package): Hide "... loaded" message.
Kenichi Handa <handa@m17n.org>
parents:
30656
diff
changeset
|
260 (quail-activate) |
8e8fa4dbc0bc
(quail-use-package): Hide "... loaded" message.
Kenichi Handa <handa@m17n.org>
parents:
30656
diff
changeset
|
261 ;; Hide all '... loaded' message. |
8e8fa4dbc0bc
(quail-use-package): Hide "... loaded" message.
Kenichi Handa <handa@m17n.org>
parents:
30656
diff
changeset
|
262 (message nil)) |
17052 | 263 |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
264 (defvar quail-translation-keymap |
17052 | 265 (let ((map (make-keymap)) |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
266 (i 0)) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
267 (while (< i ?\ ) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
268 (define-key map (char-to-string i) 'quail-other-command) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
269 (setq i (1+ i))) |
17052 | 270 (while (< i 127) |
271 (define-key map (char-to-string i) 'quail-self-insert-command) | |
272 (setq i (1+ i))) | |
19647
9b9af28bee8d
(quail-translation-keymap): Do not bind
Kenichi Handa <handa@m17n.org>
parents:
19619
diff
changeset
|
273 (setq i 128) |
19655
47d11f4bbc6c
(quail-translation-keymap): Fix previous
Kenichi Handa <handa@m17n.org>
parents:
19647
diff
changeset
|
274 (while (< i 256) |
19647
9b9af28bee8d
(quail-translation-keymap): Do not bind
Kenichi Handa <handa@m17n.org>
parents:
19619
diff
changeset
|
275 (define-key map (vector i) 'quail-self-insert-command) |
9b9af28bee8d
(quail-translation-keymap): Do not bind
Kenichi Handa <handa@m17n.org>
parents:
19619
diff
changeset
|
276 (setq i (1+ i))) |
17052 | 277 (define-key map "\177" 'quail-delete-last-char) |
278 (define-key map "\C-f" 'quail-next-translation) | |
279 (define-key map "\C-b" 'quail-prev-translation) | |
280 (define-key map "\C-n" 'quail-next-translation-block) | |
281 (define-key map "\C-p" 'quail-prev-translation-block) | |
19987
470e157b3e8a
(quail-translation-keymap): Bind right, left, down, and up keys.
Kenichi Handa <handa@m17n.org>
parents:
19951
diff
changeset
|
282 (define-key map [right] 'quail-next-translation) |
470e157b3e8a
(quail-translation-keymap): Bind right, left, down, and up keys.
Kenichi Handa <handa@m17n.org>
parents:
19951
diff
changeset
|
283 (define-key map [left] 'quail-prev-translation) |
470e157b3e8a
(quail-translation-keymap): Bind right, left, down, and up keys.
Kenichi Handa <handa@m17n.org>
parents:
19951
diff
changeset
|
284 (define-key map [down] 'quail-next-translation-block) |
470e157b3e8a
(quail-translation-keymap): Bind right, left, down, and up keys.
Kenichi Handa <handa@m17n.org>
parents:
19951
diff
changeset
|
285 (define-key map [up] 'quail-prev-translation-block) |
17052 | 286 (define-key map "\C-i" 'quail-completion) |
287 (define-key map "\C-@" 'quail-select-current) | |
20169
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
288 ;; Following simple.el, Enter key on numeric keypad selects the |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
289 ;; current translation just like `C-SPC', and `mouse-2' chooses |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
290 ;; any completion visible in the *Quail Completions* buffer. |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
291 (define-key map [kp-enter] 'quail-select-current) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
292 (define-key map [mouse-2] 'quail-mouse-choose-completion) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
293 (define-key map [down-mouse-2] nil) |
17052 | 294 (define-key map "\C-h" 'quail-translation-help) |
20638
c3360a392ae4
Change "?\C-\ " to "?\C- " because "\ " is changed
Kenichi Handa <handa@m17n.org>
parents:
20294
diff
changeset
|
295 (define-key map [?\C- ] 'quail-select-current) |
17052 | 296 (define-key map [tab] 'quail-completion) |
297 (define-key map [delete] 'quail-delete-last-char) | |
298 (define-key map [backspace] 'quail-delete-last-char) | |
19878
a69ae37e6932
(quail-update-translation): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
19849
diff
changeset
|
299 map) |
19619
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
300 "Keymap used processing translation in complex Quail modes. |
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
301 Only a few especially complex input methods use this map; |
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
302 most use `quail-simple-translation-keymap' instead. |
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
303 This map is activated while translation region is active.") |
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
304 |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
305 (defvar quail-translation-docstring |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
306 "When you type keys, the echo area shows the possible characters |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
307 which correspond to that key sequence, each preceded by a digit. You |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
308 can select one of the characters shown by typing the corresponding |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
309 digit. Alternatively, you can use C-f and C-b to move through the |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
310 line to select the character you want, then type a letter to begin |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
311 entering another Chinese character or type a space or punctuation |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
312 character. |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
313 |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
314 If there are more than ten possible characters for the given spelling, |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
315 the echo area shows ten characters at a time; you can use C-n to move |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
316 to the next group of ten, and C-p to move back to the previous group |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
317 of ten.") |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
318 |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
319 ;; Categorize each Quail commands to make the output of quail-help |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
320 ;; concise. This is done by putting `quail-help' property. The value |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
321 ;; is: |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
322 ;; hide -- never show this command |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
323 ;; non-deterministic -- show only for non-deterministic input method |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
324 (let ((l '((quail-other-command . hide) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
325 (quail-self-insert-command . hide) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
326 (quail-delete-last-char . hide) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
327 (quail-next-translation . non-deterministic) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
328 (quail-prev-translation . non-deterministic) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
329 (quail-next-translation-block . non-deterministic) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
330 (quail-prev-translation-block . non-deterministic)))) |
31424 | 331 (while l |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
332 (put (car (car l)) 'quail-help (cdr (car l))) |
31424 | 333 (setq l (cdr l)))) |
334 | |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
335 (defvar quail-simple-translation-keymap |
19619
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
336 (let ((map (make-keymap)) |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
337 (i 0)) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
338 (while (< i ?\ ) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
339 (define-key map (char-to-string i) 'quail-other-command) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
340 (setq i (1+ i))) |
19619
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
341 (while (< i 127) |
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
342 (define-key map (char-to-string i) 'quail-self-insert-command) |
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
343 (setq i (1+ i))) |
29073
b46c4dc8c51a
(quail-simple-translation-keymap): Map
Kenichi Handa <handa@m17n.org>
parents:
28213
diff
changeset
|
344 (setq i 128) |
b46c4dc8c51a
(quail-simple-translation-keymap): Map
Kenichi Handa <handa@m17n.org>
parents:
28213
diff
changeset
|
345 (while (< i 256) |
b46c4dc8c51a
(quail-simple-translation-keymap): Map
Kenichi Handa <handa@m17n.org>
parents:
28213
diff
changeset
|
346 (define-key map (vector i) 'quail-self-insert-command) |
b46c4dc8c51a
(quail-simple-translation-keymap): Map
Kenichi Handa <handa@m17n.org>
parents:
28213
diff
changeset
|
347 (setq i (1+ i))) |
19619
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
348 (define-key map "\177" 'quail-delete-last-char) |
19951
820fc18dd520
(quail-simple-translation-keymap):
Richard M. Stallman <rms@gnu.org>
parents:
19949
diff
changeset
|
349 (define-key map [delete] 'quail-delete-last-char) |
820fc18dd520
(quail-simple-translation-keymap):
Richard M. Stallman <rms@gnu.org>
parents:
19949
diff
changeset
|
350 (define-key map [backspace] 'quail-delete-last-char) |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
351 ;;(let ((meta-map (make-sparse-keymap))) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
352 ;;(define-key map (char-to-string meta-prefix-char) meta-map) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
353 ;;(define-key map [escape] meta-map)) |
19878
a69ae37e6932
(quail-update-translation): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
19849
diff
changeset
|
354 map) |
19619
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
355 "Keymap used while processing translation in simple Quail modes. |
22793
c3ab1de66dfc
(quail-simple-translation-keymap): Typo
Kenichi Handa <handa@m17n.org>
parents:
22777
diff
changeset
|
356 A few especially complex input methods use `quail-translation-keymap' instead. |
17052 | 357 This map is activated while translation region is active.") |
358 | |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
359 (defvar quail-conversion-keymap |
17052 | 360 (let ((map (make-keymap)) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
361 (i ?\ )) |
17052 | 362 (while (< i 127) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
363 (define-key map (char-to-string i) 'quail-self-insert-command) |
17052 | 364 (setq i (1+ i))) |
19647
9b9af28bee8d
(quail-translation-keymap): Do not bind
Kenichi Handa <handa@m17n.org>
parents:
19619
diff
changeset
|
365 (setq i 128) |
19655
47d11f4bbc6c
(quail-translation-keymap): Fix previous
Kenichi Handa <handa@m17n.org>
parents:
19647
diff
changeset
|
366 (while (< i 256) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
367 (define-key map (vector i) 'quail-self-insert-command) |
19647
9b9af28bee8d
(quail-translation-keymap): Do not bind
Kenichi Handa <handa@m17n.org>
parents:
19619
diff
changeset
|
368 (setq i (1+ i))) |
17052 | 369 (define-key map "\C-b" 'quail-conversion-backward-char) |
370 (define-key map "\C-f" 'quail-conversion-forward-char) | |
371 (define-key map "\C-a" 'quail-conversion-beginning-of-region) | |
372 (define-key map "\C-e" 'quail-conversion-end-of-region) | |
373 (define-key map "\C-d" 'quail-conversion-delete-char) | |
22777
1b0761cbc15b
(quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents:
22765
diff
changeset
|
374 (define-key map "\C-k" 'quail-conversion-delete-tail) |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
375 (define-key map "\C-h" 'quail-translation-help) |
17052 | 376 (define-key map "\177" 'quail-conversion-backward-delete-char) |
377 (define-key map [delete] 'quail-conversion-backward-delete-char) | |
378 (define-key map [backspace] 'quail-conversion-backward-delete-char) | |
19878
a69ae37e6932
(quail-update-translation): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
19849
diff
changeset
|
379 map) |
17052 | 380 "Keymap used for processing conversion in Quail mode. |
23176 | 381 This map is activated while conversion region is active but translation |
17052 | 382 region is not active.") |
383 | |
31424 | 384 ;; Just a dummy definition. |
385 (defun quail-other-command () | |
386 (interactive) | |
387 ) | |
388 | |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
389 ;;;###autoload |
17052 | 390 (defun quail-define-package (name language title |
391 &optional guidance docstring translation-keys | |
392 forget-last-selection deterministic | |
393 kbd-translate show-layout create-decode-map | |
394 maximum-shortest overlay-plist | |
395 update-translation-function | |
19619
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
396 conversion-keys simple) |
17052 | 397 "Define NAME as a new Quail package for input LANGUAGE. |
398 TITLE is a string to be displayed at mode-line to indicate this package. | |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
399 Optional arguments are GUIDANCE, DOCSTRING, TRANSLATION-KEYS, |
17052 | 400 FORGET-LAST-SELECTION, DETERMINISTIC, KBD-TRANSLATE, SHOW-LAYOUT, |
401 CREATE-DECODE-MAP, MAXIMUM-SHORTEST, OVERLAY-PLIST, | |
19619
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
402 UPDATE-TRANSLATION-FUNCTION, CONVERSION-KEYS and SIMPLE. |
17052 | 403 |
404 GUIDANCE specifies how a guidance string is shown in echo area. | |
405 If it is t, list of all possible translations for the current key is shown | |
406 with the currently selected translation being highlighted. | |
407 If it is an alist, the element has the form (CHAR . STRING). Each character | |
408 in the current key is searched in the list and the corresponding string is | |
409 shown. | |
410 If it is nil, the current key is shown. | |
411 | |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
412 DOCSTRING is the documentation string of this package. The command |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
413 `describe-input-method' shows this string while replacing the form |
31549
84fcbc8496b7
(quail-define-package): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
31546
diff
changeset
|
414 \\=\\<VAR> in the string by the value of VAR. That value should be a |
84fcbc8496b7
(quail-define-package): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
31546
diff
changeset
|
415 string. For instance, the form \\=\\<quail-translation-docstring> is |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
416 replaced by a description about how to select a translation from a |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
417 list of candidates. |
17052 | 418 |
419 TRANSLATION-KEYS specifies additional key bindings used while translation | |
420 region is active. It is an alist of single key character vs. corresponding | |
421 command to be called. | |
422 | |
423 FORGET-LAST-SELECTION non-nil means a selected translation is not kept | |
424 for the future to translate the same key. If this flag is nil, a | |
425 translation selected for a key is remembered so that it can be the | |
426 first candidate when the same key is entered later. | |
427 | |
428 DETERMINISTIC non-nil means the first candidate of translation is | |
429 selected automatically without allowing users to select another | |
430 translation for a key. In this case, unselected translations are of | |
431 no use for an interactive use of Quail but can be used by some other | |
432 programs. If this flag is non-nil, FORGET-LAST-SELECTION is also set | |
433 to t. | |
434 | |
435 KBD-TRANSLATE non-nil means input characters are translated from a | |
436 user's keyboard layout to the standard keyboard layout. See the | |
437 documentation of `quail-keyboard-layout' and | |
438 `quail-keyboard-layout-standard' for more detail. | |
439 | |
440 SHOW-LAYOUT non-nil means the `quail-help' command should show | |
441 the user's keyboard layout visually with translated characters. | |
442 If KBD-TRANSLATE is set, it is desirable to set also this flag unless | |
443 this package defines no translations for single character keys. | |
444 | |
445 CREATE-DECODE-MAP non-nil means decode map is also created. A decode | |
446 map is an alist of translations and corresponding original keys. | |
447 Although this map is not used by Quail itself, it can be used by some | |
448 other programs. For instance, Vietnamese supporting needs this map to | |
449 convert Vietnamese text to VIQR format which uses only ASCII | |
450 characters to represent Vietnamese characters. | |
451 | |
452 MAXIMUM-SHORTEST non-nil means break key sequence to get maximum | |
453 length of the shortest sequence. When we don't have a translation of | |
454 key \"..ABCD\" but have translations of \"..AB\" and \"CD..\", break | |
455 the key at \"..AB\" and start translation of \"CD..\". Hangul | |
456 packages, for instance, use this facility. If this flag is nil, we | |
457 break the key just at \"..ABC\" and start translation of \"D..\". | |
458 | |
459 OVERLAY-PLIST if non-nil is a property list put on an overlay which | |
460 covers Quail translation region. | |
461 | |
462 UPDATE-TRANSLATION-FUNCTION if non-nil is a function to call to update | |
23176 | 463 the current translation region according to a new translation data. By |
464 default, a translated text or a user's key sequence (if no translation | |
17052 | 465 for it) is inserted. |
466 | |
467 CONVERSION-KEYS specifies additional key bindings used while | |
468 conversion region is active. It is an alist of single key character | |
19619
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
469 vs. corresponding command to be called. |
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
470 |
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
471 If SIMPLE is non-nil, then we do not alter the meanings of |
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
472 commands such as C-f, C-b, C-n, C-p and TAB; they are treated as |
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
473 non-Quail commands." |
17052 | 474 (let (translation-keymap conversion-keymap) |
475 (if deterministic (setq forget-last-selection t)) | |
476 (if translation-keys | |
19404
8901359ae445
(quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents:
19391
diff
changeset
|
477 (progn |
19619
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
478 (setq translation-keymap (copy-keymap |
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
479 (if simple quail-simple-translation-keymap |
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
480 quail-translation-keymap))) |
19404
8901359ae445
(quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents:
19391
diff
changeset
|
481 (while translation-keys |
8901359ae445
(quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents:
19391
diff
changeset
|
482 (define-key translation-keymap |
8901359ae445
(quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents:
19391
diff
changeset
|
483 (car (car translation-keys)) (cdr (car translation-keys))) |
8901359ae445
(quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents:
19391
diff
changeset
|
484 (setq translation-keys (cdr translation-keys)))) |
19619
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
485 (setq translation-keymap |
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
486 (if simple quail-simple-translation-keymap |
b033d0b34c71
(quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents:
19605
diff
changeset
|
487 quail-translation-keymap))) |
19404
8901359ae445
(quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents:
19391
diff
changeset
|
488 (when conversion-keys |
8901359ae445
(quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents:
19391
diff
changeset
|
489 (setq conversion-keymap (copy-keymap quail-conversion-keymap)) |
8901359ae445
(quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents:
19391
diff
changeset
|
490 (while conversion-keys |
8901359ae445
(quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents:
19391
diff
changeset
|
491 (define-key conversion-keymap |
8901359ae445
(quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents:
19391
diff
changeset
|
492 (car (car conversion-keys)) (cdr (car conversion-keys))) |
8901359ae445
(quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents:
19391
diff
changeset
|
493 (setq conversion-keys (cdr conversion-keys)))) |
17052 | 494 (quail-add-package |
495 (list name title (list nil) guidance (or docstring "") | |
496 translation-keymap | |
497 forget-last-selection deterministic kbd-translate show-layout | |
498 (if create-decode-map (list 'decode-map) nil) | |
499 maximum-shortest overlay-plist update-translation-function | |
19849
1c5164d81426
(quail-simple): New function.
Kenichi Handa <handa@m17n.org>
parents:
19844
diff
changeset
|
500 conversion-keymap simple)) |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
501 |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
502 ;; Update input-method-alist. |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
503 (let ((slot (assoc name input-method-alist)) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
504 (val (list language 'quail-use-package title docstring))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
505 (if slot (setcdr slot val) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
506 (setq input-method-alist (cons (cons name val) input-method-alist))))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
507 |
17052 | 508 (quail-select-package name)) |
509 | |
510 ;; Quail minor mode handlers. | |
511 | |
512 ;; Setup overlays used in Quail mode. | |
19404
8901359ae445
(quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents:
19391
diff
changeset
|
513 (defun quail-setup-overlays (conversion-mode) |
17052 | 514 (let ((pos (point))) |
515 (if (overlayp quail-overlay) | |
516 (move-overlay quail-overlay pos pos) | |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
517 (setq quail-overlay (make-overlay pos pos)) |
19404
8901359ae445
(quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents:
19391
diff
changeset
|
518 (if input-method-highlight-flag |
8901359ae445
(quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents:
19391
diff
changeset
|
519 (overlay-put quail-overlay 'face 'underline)) |
17052 | 520 (let ((l (quail-overlay-plist))) |
521 (while l | |
522 (overlay-put quail-overlay (car l) (car (cdr l))) | |
523 (setq l (cdr (cdr l)))))) | |
19404
8901359ae445
(quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents:
19391
diff
changeset
|
524 (if conversion-mode |
8901359ae445
(quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents:
19391
diff
changeset
|
525 (if (overlayp quail-conv-overlay) |
8901359ae445
(quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents:
19391
diff
changeset
|
526 (if (not (overlay-start quail-conv-overlay)) |
8901359ae445
(quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents:
19391
diff
changeset
|
527 (move-overlay quail-conv-overlay pos pos)) |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
528 (setq quail-conv-overlay (make-overlay pos pos)) |
19404
8901359ae445
(quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents:
19391
diff
changeset
|
529 (if input-method-highlight-flag |
8901359ae445
(quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents:
19391
diff
changeset
|
530 (overlay-put quail-conv-overlay 'face 'underline)))))) |
17052 | 531 |
532 ;; Delete overlays used in Quail mode. | |
533 (defun quail-delete-overlays () | |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
534 (if (and (overlayp quail-overlay) (overlay-start quail-overlay)) |
17052 | 535 (delete-overlay quail-overlay)) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
536 (if (and (overlayp quail-conv-overlay) (overlay-start quail-conv-overlay)) |
17052 | 537 (delete-overlay quail-conv-overlay))) |
538 | |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
539 (defun quail-inactivate () |
39143
b73fe7fe3c9f
(quail-use-package, quail-inactivate)
Eli Zaretskii <eliz@gnu.org>
parents:
39024
diff
changeset
|
540 "Inactivate Quail input method. |
b73fe7fe3c9f
(quail-use-package, quail-inactivate)
Eli Zaretskii <eliz@gnu.org>
parents:
39024
diff
changeset
|
541 |
b73fe7fe3c9f
(quail-use-package, quail-inactivate)
Eli Zaretskii <eliz@gnu.org>
parents:
39024
diff
changeset
|
542 This function runs the normal hook `quail-inactivate-hook'." |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
543 (interactive) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
544 (quail-activate -1)) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
545 |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
546 (defun quail-activate (&optional arg) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
547 "Activate Quail input method. |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
548 With arg, activate Quail input method if and only if arg is positive. |
19432
4492653b04e8
(quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents:
19404
diff
changeset
|
549 |
39143
b73fe7fe3c9f
(quail-use-package, quail-inactivate)
Eli Zaretskii <eliz@gnu.org>
parents:
39024
diff
changeset
|
550 This function runs `quail-activate-hook' if it activates the input |
b73fe7fe3c9f
(quail-use-package, quail-inactivate)
Eli Zaretskii <eliz@gnu.org>
parents:
39024
diff
changeset
|
551 method, `quail-inactivate-hook' if it deactivates it. |
b73fe7fe3c9f
(quail-use-package, quail-inactivate)
Eli Zaretskii <eliz@gnu.org>
parents:
39024
diff
changeset
|
552 |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
553 While this input method is active, the variable |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
554 `input-method-function' is bound to the function `quail-input-method'." |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
555 (if (and arg |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
556 (< (prefix-numeric-value arg) 0)) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
557 ;; Let's inactivate Quail input method. |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
558 (unwind-protect |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
559 (progn |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
560 (quail-delete-overlays) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
561 (setq describe-current-input-method-function nil) |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
562 (quail-hide-guidance) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
563 (remove-hook 'post-command-hook 'quail-show-guidance t) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
564 (run-hooks 'quail-inactivate-hook)) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
565 (kill-local-variable 'input-method-function)) |
33476
51bec48940dd
(quail-show-guidance-buf): Call fit-window-to-buffer to assure the
Kenichi Handa <handa@m17n.org>
parents:
32958
diff
changeset
|
566 ;; Let's activate Quail input method. |
17052 | 567 (if (null quail-current-package) |
568 ;; Quail package is not yet selected. Select one now. | |
569 (let (name) | |
570 (if quail-package-alist | |
571 (setq name (car (car quail-package-alist))) | |
572 (error "No Quail package loaded")) | |
573 (quail-select-package name))) | |
19404
8901359ae445
(quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents:
19391
diff
changeset
|
574 (setq inactivate-current-input-method-function 'quail-inactivate) |
17052 | 575 (setq describe-current-input-method-function 'quail-help) |
576 (quail-delete-overlays) | |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
577 (setq quail-guidance-str "") |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
578 (quail-show-guidance) |
19432
4492653b04e8
(quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents:
19404
diff
changeset
|
579 ;; If we are in minibuffer, turn off the current input method |
4492653b04e8
(quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents:
19404
diff
changeset
|
580 ;; before exiting. |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
581 (when (eq (selected-window) (minibuffer-window)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
582 (add-hook 'minibuffer-exit-hook 'quail-exit-from-minibuffer) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
583 (add-hook 'post-command-hook 'quail-show-guidance nil t)) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
584 (run-hooks 'quail-activate-hook) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
585 (make-local-variable 'input-method-function) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
586 (setq input-method-function 'quail-input-method))) |
17052 | 587 |
588 (defun quail-exit-from-minibuffer () | |
19432
4492653b04e8
(quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents:
19404
diff
changeset
|
589 (inactivate-input-method) |
17052 | 590 (if (<= (minibuffer-depth) 1) |
591 (remove-hook 'minibuffer-exit-hook 'quail-exit-from-minibuffer))) | |
592 | |
593 ;; Keyboard layout translation handlers. | |
594 | |
595 ;; Some Quail packages provide localized keyboard simulation which | |
596 ;; requires a particular keyboard layout. In this case, what we need | |
597 ;; is locations of keys the user entered, not character codes | |
598 ;; generated by those keys. However, for the moment, there's no | |
599 ;; common way to get such information. So, we ask a user to give | |
600 ;; information of his own keyboard layout, then translate it to the | |
601 ;; standard layout which we defined so that all Quail packages depend | |
602 ;; just on it. | |
603 | |
604 (defconst quail-keyboard-layout-standard | |
605 "\ | |
17174
9c1191812679
(quail-translation-keymap): Add entry for escape key.
Kenichi Handa <handa@m17n.org>
parents:
17095
diff
changeset
|
606 \ |
17052 | 607 1!2@3#4$5%6^7&8*9(0)-_=+`~ \ |
608 qQwWeErRtTyYuUiIoOpP[{]} \ | |
609 aAsSdDfFgGhHjJkKlL;:'\"\\| \ | |
17174
9c1191812679
(quail-translation-keymap): Add entry for escape key.
Kenichi Handa <handa@m17n.org>
parents:
17095
diff
changeset
|
610 zZxXcCvVbBnNmM,<.>/? \ |
9c1191812679
(quail-translation-keymap): Add entry for escape key.
Kenichi Handa <handa@m17n.org>
parents:
17095
diff
changeset
|
611 " |
17052 | 612 "Standard keyboard layout of printable characters Quail assumes. |
613 See the documentation of `quail-keyboard-layout' for this format. | |
614 This layout is almost the same as that of VT100, | |
615 but the location of key \\ (backslash) is just right of key ' (single-quote), | |
616 not right of RETURN key.") | |
617 | |
17174
9c1191812679
(quail-translation-keymap): Add entry for escape key.
Kenichi Handa <handa@m17n.org>
parents:
17095
diff
changeset
|
618 (defconst quail-keyboard-layout-len 180) |
17052 | 619 |
620 ;; Here we provide several examples of famous keyboard layouts. | |
42126
996e8ae50fc0
(quail-input-string-to-events): Don't use
Dave Love <fx@gnu.org>
parents:
42085
diff
changeset
|
621 ;; This is a candidate for a language environment-dependent setting. |
17052 | 622 (defvar quail-keyboard-layout-alist |
623 (list | |
31424 | 624 (cons "standard" quail-keyboard-layout-standard) |
17052 | 625 '("sun-type3" . "\ |
17174
9c1191812679
(quail-translation-keymap): Add entry for escape key.
Kenichi Handa <handa@m17n.org>
parents:
17095
diff
changeset
|
626 \ |
17052 | 627 1!2@3#4$5%6^7&8*9(0)-_=+\\|`~\ |
628 qQwWeErRtTyYuUiIoOpP[{]} \ | |
629 aAsSdDfFgGhHjJkKlL;:'\" \ | |
17174
9c1191812679
(quail-translation-keymap): Add entry for escape key.
Kenichi Handa <handa@m17n.org>
parents:
17095
diff
changeset
|
630 zZxXcCvVbBnNmM,<.>/? \ |
9c1191812679
(quail-translation-keymap): Add entry for escape key.
Kenichi Handa <handa@m17n.org>
parents:
17095
diff
changeset
|
631 ") |
19675
32c3f7d9ef10
(quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents:
19655
diff
changeset
|
632 '("atari-german" . "\ |
32c3f7d9ef10
(quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents:
19655
diff
changeset
|
633 \ |
32c3f7d9ef10
(quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents:
19655
diff
changeset
|
634 1!2\"3\2474$5%6&7/8(9)0=\337?'`#^ \ |
32c3f7d9ef10
(quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents:
19655
diff
changeset
|
635 qQwWeErRtTzZuUiIoOpP\374\334+* \ |
32c3f7d9ef10
(quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents:
19655
diff
changeset
|
636 aAsSdDfFgGhHjJkKlL\366\326\344\304~| \ |
32c3f7d9ef10
(quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents:
19655
diff
changeset
|
637 <>yYxXcCvVbBnNmM,;.:-_ \ |
32c3f7d9ef10
(quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents:
19655
diff
changeset
|
638 ") |
29073
b46c4dc8c51a
(quail-simple-translation-keymap): Map
Kenichi Handa <handa@m17n.org>
parents:
28213
diff
changeset
|
639 |
b46c4dc8c51a
(quail-simple-translation-keymap): Map
Kenichi Handa <handa@m17n.org>
parents:
28213
diff
changeset
|
640 '("pc102-de" . "\ |
b46c4dc8c51a
(quail-simple-translation-keymap): Map
Kenichi Handa <handa@m17n.org>
parents:
28213
diff
changeset
|
641 \ |
b46c4dc8c51a
(quail-simple-translation-keymap): Map
Kenichi Handa <handa@m17n.org>
parents:
28213
diff
changeset
|
642 ^\2601!2\"3\2474$5%6&7/8(9)0=\337?\264`#' \ |
b46c4dc8c51a
(quail-simple-translation-keymap): Map
Kenichi Handa <handa@m17n.org>
parents:
28213
diff
changeset
|
643 qQwWeErRtTzZuUiIoOpP\374\334+* \ |
b46c4dc8c51a
(quail-simple-translation-keymap): Map
Kenichi Handa <handa@m17n.org>
parents:
28213
diff
changeset
|
644 aAsSdDfFgGhHjJkKlL\366\326\344\304 \ |
b46c4dc8c51a
(quail-simple-translation-keymap): Map
Kenichi Handa <handa@m17n.org>
parents:
28213
diff
changeset
|
645 <>yYxXcCvVbBnNmM,;.:-_ \ |
b46c4dc8c51a
(quail-simple-translation-keymap): Map
Kenichi Handa <handa@m17n.org>
parents:
28213
diff
changeset
|
646 ") |
b46c4dc8c51a
(quail-simple-translation-keymap): Map
Kenichi Handa <handa@m17n.org>
parents:
28213
diff
changeset
|
647 |
31424 | 648 '("jp106" . "\ |
649 \ | |
650 1!2\"3#4$5%6&7'8(9)0~-=^~\\| \ | |
651 qQwWeErRtTyYuUiIoOpP@`[{ \ | |
652 aAsSdDfFgGhHjJkKlL;+:*]} \ | |
653 zZxXcCvVbBnNmM,<.>/?\\_ \ | |
654 ") | |
42048
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
655 '("pc105-uk" . "\ |
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
656 \ |
48039
c4ddd9be9c17
(quail-keyboard-layout-alist): Fix
Dave Love <fx@gnu.org>
parents:
47591
diff
changeset
|
657 `\2541!2\"3\2434$5%6^7&8*9(0)-_=+ \ |
42048
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
658 qQwWeErRtTyYuUiIoOpP[{]} \ |
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
659 aAsSdDfFgGhHjJkKlL;:'@#~ \ |
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
660 \\|zZxXcCvVbBnNmM,<.>/? \ |
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
661 ") |
31424 | 662 ) |
17052 | 663 "Alist of keyboard names and corresponding layout strings. |
664 See the documentation of `quail-keyboard-layout' for the format of | |
31424 | 665 the layout string.") |
666 | |
48048
a76d113d3ce2
(quail-keyboard-layout): Move after
Dave Love <fx@gnu.org>
parents:
48039
diff
changeset
|
667 (defcustom quail-keyboard-layout quail-keyboard-layout-standard |
a76d113d3ce2
(quail-keyboard-layout): Move after
Dave Love <fx@gnu.org>
parents:
48039
diff
changeset
|
668 "A string which represents physical key layout of a particular keyboard. |
a76d113d3ce2
(quail-keyboard-layout): Move after
Dave Love <fx@gnu.org>
parents:
48039
diff
changeset
|
669 We assume there are six rows and each row has 15 keys (columns), |
a76d113d3ce2
(quail-keyboard-layout): Move after
Dave Love <fx@gnu.org>
parents:
48039
diff
changeset
|
670 the first row is above the `1' - `0' row, |
a76d113d3ce2
(quail-keyboard-layout): Move after
Dave Love <fx@gnu.org>
parents:
48039
diff
changeset
|
671 the first column of the second row is left of key `1', |
a76d113d3ce2
(quail-keyboard-layout): Move after
Dave Love <fx@gnu.org>
parents:
48039
diff
changeset
|
672 the first column of the third row is left of key `q', |
a76d113d3ce2
(quail-keyboard-layout): Move after
Dave Love <fx@gnu.org>
parents:
48039
diff
changeset
|
673 the first column of the fourth row is left of key `a', |
a76d113d3ce2
(quail-keyboard-layout): Move after
Dave Love <fx@gnu.org>
parents:
48039
diff
changeset
|
674 the first column of the fifth row is left of key `z', |
a76d113d3ce2
(quail-keyboard-layout): Move after
Dave Love <fx@gnu.org>
parents:
48039
diff
changeset
|
675 the sixth row is below the `z' - `/' row. |
a76d113d3ce2
(quail-keyboard-layout): Move after
Dave Love <fx@gnu.org>
parents:
48039
diff
changeset
|
676 Nth (N is even) and (N+1)th characters in the string are non-shifted |
a76d113d3ce2
(quail-keyboard-layout): Move after
Dave Love <fx@gnu.org>
parents:
48039
diff
changeset
|
677 and shifted characters respectively at the same location. |
a76d113d3ce2
(quail-keyboard-layout): Move after
Dave Love <fx@gnu.org>
parents:
48039
diff
changeset
|
678 The location of Nth character is row (N / 30) and column ((N mod 30) / 2). |
a76d113d3ce2
(quail-keyboard-layout): Move after
Dave Love <fx@gnu.org>
parents:
48039
diff
changeset
|
679 The command `quail-set-keyboard-layout' usually sets this variable." |
a76d113d3ce2
(quail-keyboard-layout): Move after
Dave Love <fx@gnu.org>
parents:
48039
diff
changeset
|
680 :group 'quail |
a76d113d3ce2
(quail-keyboard-layout): Move after
Dave Love <fx@gnu.org>
parents:
48039
diff
changeset
|
681 :type `(choice |
a76d113d3ce2
(quail-keyboard-layout): Move after
Dave Love <fx@gnu.org>
parents:
48039
diff
changeset
|
682 ,@(mapcar (lambda (pair) |
a76d113d3ce2
(quail-keyboard-layout): Move after
Dave Love <fx@gnu.org>
parents:
48039
diff
changeset
|
683 (list 'const :tag (car pair) (cdr pair))) |
a76d113d3ce2
(quail-keyboard-layout): Move after
Dave Love <fx@gnu.org>
parents:
48039
diff
changeset
|
684 quail-keyboard-layout-alist) |
a76d113d3ce2
(quail-keyboard-layout): Move after
Dave Love <fx@gnu.org>
parents:
48039
diff
changeset
|
685 (string :tag "Other"))) |
a76d113d3ce2
(quail-keyboard-layout): Move after
Dave Love <fx@gnu.org>
parents:
48039
diff
changeset
|
686 |
31424 | 687 ;; A non-standard keyboard layout may miss some key locations of the |
688 ;; standard layout while having additional key locations not in the | |
689 ;; standard layout. This alist maps those additional key locations to | |
690 ;; the missing locations. The value is updated automatically by | |
691 ;; quail-set-keyboard-layout. | |
692 (defvar quail-keyboard-layout-substitution nil) | |
693 | |
694 (defun quail-update-keyboard-layout (kbd-type) | |
695 (let ((layout (assoc kbd-type quail-keyboard-layout-alist))) | |
696 (if (null layout) | |
697 ;; Here, we had better ask a user to define his own keyboard | |
698 ;; layout interactively. | |
699 (error "Unknown keyboard type `%s'" kbd-type)) | |
700 (setq quail-keyboard-layout (cdr layout)) | |
701 (let ((i quail-keyboard-layout-len) | |
702 subst-list missing-list) | |
703 ;; Sum up additional key locations not in the standard layout in | |
704 ;; subst-list, and missing key locations in missing-list. | |
705 (while (> i 0) | |
706 (setq i (1- i)) | |
707 (if (= (aref quail-keyboard-layout i) ? ) | |
708 (if (/= (aref quail-keyboard-layout-standard i) ? ) | |
709 (setq missing-list (cons i missing-list))) | |
710 (if (= (aref quail-keyboard-layout-standard i) ? ) | |
711 (setq subst-list (cons (cons i nil) subst-list))))) | |
712 (setq quail-keyboard-layout-substitution subst-list) | |
713 ;; If there are additional key locations, map them to missing | |
714 ;; key locations. | |
715 (while missing-list | |
716 (while (and subst-list (cdr (car subst-list))) | |
717 (setq subst-list (cdr subst-list))) | |
718 (if subst-list | |
719 (setcdr (car subst-list) (car missing-list))) | |
720 (setq missing-list (cdr missing-list)))))) | |
721 | |
722 (defcustom quail-keyboard-layout-type "standard" | |
723 "Type of keyboard layout used in Quail base input method. | |
724 Available types are listed in the variable `quail-keyboard-layout-alist'." | |
725 :group 'quail | |
42048
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
726 :type (cons 'choice (mapcar (lambda (elt) |
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
727 (list 'const (car elt))) |
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
728 quail-keyboard-layout-alist)) |
31424 | 729 :set #'(lambda (symbol value) |
730 (quail-update-keyboard-layout value) | |
731 (set symbol value))) | |
17052 | 732 |
19949
ad6d3d0b2cb4
(quail-set-keyboard-layout): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
19944
diff
changeset
|
733 ;;;###autoload |
17052 | 734 (defun quail-set-keyboard-layout (kbd-type) |
735 "Set the current keyboard layout to the same as keyboard KBD-TYPE. | |
736 | |
737 Since some Quail packages depends on a physical layout of keys (not | |
738 characters generated by them), those are created by assuming the | |
739 standard layout defined in `quail-keyboard-layout-standard'. This | |
740 function tells Quail system the layout of your keyboard so that what | |
741 you type is correctly handled." | |
742 (interactive | |
28213
2851f83ea432
(quail-set-keyboard-layout): Typo fixed.
Kenichi Handa <handa@m17n.org>
parents:
26891
diff
changeset
|
743 (let* ((completion-ignore-case t) |
17052 | 744 (type (completing-read "Keyboard type: " |
745 quail-keyboard-layout-alist))) | |
746 (list type))) | |
31424 | 747 (quail-update-keyboard-layout kbd-type) |
748 (setq quail-keyboard-layout-type kbd-type)) | |
17052 | 749 |
31424 | 750 (defun quail-keyboard-translate (char) |
751 "Translate CHAR to the one in the standard keyboard layout." | |
17052 | 752 (if (eq quail-keyboard-layout quail-keyboard-layout-standard) |
19675
32c3f7d9ef10
(quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents:
19655
diff
changeset
|
753 ;; All Quail packages are designed based on |
32c3f7d9ef10
(quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents:
19655
diff
changeset
|
754 ;; `quail-keyboard-layout-standard'. |
31424 | 755 char |
17052 | 756 (let ((i 0)) |
31424 | 757 ;; Find the key location on the current keyboard layout. |
17052 | 758 (while (and (< i quail-keyboard-layout-len) |
31424 | 759 (/= char (aref quail-keyboard-layout i))) |
17052 | 760 (setq i (1+ i))) |
761 (if (= i quail-keyboard-layout-len) | |
31424 | 762 ;; CHAR is not in quail-keyboard-layout, which means that a |
19675
32c3f7d9ef10
(quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents:
19655
diff
changeset
|
763 ;; user typed a key which generated a character code to be |
31424 | 764 ;; handled out of Quail. Just return CHAR and make |
19675
32c3f7d9ef10
(quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents:
19655
diff
changeset
|
765 ;; quail-execute-non-quail-command handle it correctly. |
31424 | 766 char |
767 (let ((ch (aref quail-keyboard-layout-standard i))) | |
768 (if (= ch ?\ ) | |
769 ;; This location not available in the standard keyboard | |
770 ;; layout. Check if the location is used to substitute | |
771 ;; for the other location of the standard layout. | |
772 (if (setq i (cdr (assq i quail-keyboard-layout-substitution))) | |
773 (aref quail-keyboard-layout-standard i) | |
774 ;; Just return CHAR as well as above. | |
775 char) | |
776 ch)))))) | |
777 | |
31828
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
778 (defun quail-keyseq-translate (keyseq) |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
779 (apply 'string |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
780 (mapcar (function (lambda (x) (quail-keyboard-translate x))) |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
781 keyseq))) |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
782 |
31424 | 783 (defun quail-insert-kbd-layout (kbd-layout) |
36465 | 784 "Insert the visual keyboard layout table according to KBD-LAYOUT. |
785 The format of KBD-LAYOUT is the same as `quail-keyboard-layout'." | |
31424 | 786 (let (done-list layout i ch) |
787 ;; At first, convert KBD-LAYOUT to the same size vector that | |
788 ;; contains translated character or string. | |
789 (setq layout (string-to-vector kbd-layout) | |
790 i 0) | |
791 (while (< i quail-keyboard-layout-len) | |
792 (setq ch (aref kbd-layout i)) | |
793 (if (quail-kbd-translate) | |
794 (setq ch (quail-keyboard-translate ch))) | |
795 (let* ((map (cdr (assq ch (cdr (quail-map))))) | |
796 (translation (and map (quail-get-translation | |
797 (car map) (char-to-string ch) 1)))) | |
798 (if translation | |
799 (progn | |
800 (if (consp translation) | |
90665
38ad9fa1876b
(quail-insert-kbd-layout): Check the
Kenichi Handa <handa@m17n.org>
parents:
90599
diff
changeset
|
801 (if (> (length (cdr translation)) 0) |
38ad9fa1876b
(quail-insert-kbd-layout): Check the
Kenichi Handa <handa@m17n.org>
parents:
90599
diff
changeset
|
802 (setq translation (aref (cdr translation) 0)) |
38ad9fa1876b
(quail-insert-kbd-layout): Check the
Kenichi Handa <handa@m17n.org>
parents:
90599
diff
changeset
|
803 (setq translation " "))) |
31424 | 804 (setq done-list (cons translation done-list))) |
805 (setq translation ch)) | |
806 (aset layout i translation)) | |
807 (setq i (1+ i))) | |
808 | |
809 (let ((pos (point)) | |
810 (bar "|") | |
811 lower upper row) | |
812 ;; Make table without horizontal lines. Each column for a key | |
813 ;; has the form "| LU |" where L is for lower key and and U is | |
814 ;; for a upper key. If width of L (U) is greater than 1, | |
815 ;; preceding (following) space is not inserted. | |
816 (put-text-property 0 1 'face 'bold bar) | |
817 (setq i 0) | |
818 (while (< i quail-keyboard-layout-len) | |
819 (when (= (% i 30) 0) | |
820 (setq row (/ i 30)) | |
821 (if (> row 1) | |
822 (insert-char 32 (+ row (/ (- row 2) 2))))) | |
823 (setq lower (aref layout i) | |
824 upper (aref layout (1+ i))) | |
825 (if (and (integerp lower) (>= lower 128) (< lower 256)) | |
826 (setq lower (unibyte-char-to-multibyte lower))) | |
827 (if (and (integerp upper) (>= upper 128) (< upper 256)) | |
828 (setq upper (unibyte-char-to-multibyte upper))) | |
829 (insert bar) | |
830 (if (= (if (stringp lower) (string-width lower) (char-width lower)) 1) | |
831 (insert " ")) | |
832 (insert lower upper) | |
833 (if (= (if (stringp upper) (string-width upper) (char-width upper)) 1) | |
834 (insert " ")) | |
835 (setq i (+ i 2)) | |
836 (if (= (% i 30) 0) | |
837 (insert bar "\n"))) | |
838 ;; Insert horizontal lines while deleting blank key columns at the | |
839 ;; beginning and end of each line. | |
840 (save-restriction | |
841 (narrow-to-region pos (point)) | |
842 (goto-char pos) | |
843 ;;(while (looking-at "[| ]*$") | |
844 ;;(forward-line 1) | |
845 ;;(delete-region pos (point))) | |
846 (let ((from1 100) (to1 0) from2 to2) | |
847 (while (not (eobp)) | |
848 (if (looking-at "[| ]*$") | |
849 ;; The entire row is blank. | |
850 (delete-region (point) (match-end 0)) | |
851 ;; Delete blank key columns at the head. | |
852 (if (looking-at " *\\(| \\)+") | |
853 (subst-char-in-region (point) (match-end 0) ?| ? )) | |
854 ;; Delete blank key columns at the tail. | |
855 (if (re-search-forward "\\( |\\)+$" (line-end-position) t) | |
856 (delete-region (match-beginning 0) (point))) | |
857 (beginning-of-line)) | |
858 ;; Calculate the start and end columns of a horizontal line. | |
859 (if (eolp) | |
860 (setq from2 from1 to2 to1) | |
861 (skip-chars-forward " ") | |
862 (setq from2 (current-column)) | |
863 (end-of-line) | |
864 (setq to2 (current-column)) | |
865 (if (< from2 from1) | |
866 (setq from1 from2)) | |
867 (if (> to2 to1) | |
868 (setq to1 to2)) | |
869 (beginning-of-line)) | |
870 ;; If the previous or the current line has at least one key | |
871 ;; column, insert a horizontal line. | |
872 (when (> to1 0) | |
873 (insert-char 32 from1) | |
874 (setq pos (point)) | |
875 (insert "+") | |
876 (insert-char ?- (- (- to1 from1) 2)) | |
877 (insert "+") | |
878 (put-text-property pos (point) 'face 'bold) | |
879 (insert "\n")) | |
880 (setq from1 from2 to1 to2) | |
881 (forward-line 1))) | |
882 ;; Insert "space bar" box. | |
883 (forward-line -1) | |
884 (setq pos (point)) | |
885 (insert | |
886 " +-----------------------------+ | |
887 | space bar | | |
888 +-----------------------------+ | |
889 ") | |
890 (put-text-property pos (point) 'face 'bold) | |
891 (insert ?\n))) | |
892 | |
893 done-list)) | |
894 | |
895 ;;;###autoload | |
896 (defun quail-show-keyboard-layout (&optional keyboard-type) | |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
897 "Show the physical layout of the keyboard type KEYBOARD-TYPE. |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
898 |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
899 The variable `quail-keyboard-layout-type' holds the currently selected |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
900 keyboard type." |
31424 | 901 (interactive |
65680
ed770a0a7846
2005-09-24 Emilio C. Lopes <eclig@gmx.net>
Romain Francoise <romain@orebokech.com>
parents:
64085
diff
changeset
|
902 (list (completing-read "Keyboard type (default current choice): " |
31424 | 903 quail-keyboard-layout-alist |
904 nil t))) | |
905 (or (and keyboard-type (> (length keyboard-type) 0)) | |
906 (setq keyboard-type quail-keyboard-layout-type)) | |
907 (let ((layout (assoc keyboard-type quail-keyboard-layout-alist))) | |
908 (or layout | |
909 (error "Unknown keyboard type: %s" keyboard-type)) | |
910 (with-output-to-temp-buffer "*Help*" | |
40667
589781f0ee38
(quail-help): Use `help-buffer' and move `help-setup-xref' to beginning.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39143
diff
changeset
|
911 (with-current-buffer standard-output |
31424 | 912 (insert "Keyboard layout (keyboard type: " |
913 keyboard-type | |
914 ")\n") | |
915 (quail-insert-kbd-layout (cdr layout)))))) | |
17052 | 916 |
917 ;; Quail map | |
918 | |
919 (defsubst quail-map-p (object) | |
920 "Return t if OBJECT is a Quail map. | |
921 | |
922 A Quail map holds information how a particular key should be translated. | |
923 Its format is (TRANSLATION . ALIST). | |
924 TRANSLATION is either a character, or a cons (INDEX . VECTOR). | |
925 In the latter case, each element of VECTOR is a candidate for the translation, | |
926 and INDEX points the currently selected translation. | |
927 | |
928 ALIST is normally a list of elements that look like (CHAR . DEFN), | |
929 where DEFN is another Quail map for a longer key (CHAR added to the | |
930 current key). It may also be a symbol of a function which returns an | |
931 alist of the above format. | |
932 | |
933 Just after a Quail package is read, TRANSLATION may be a string or a | |
934 vector. Then each element of the string or vector is a candidate for | |
935 the translation. These objects are transformed to cons cells in the | |
936 format \(INDEX . VECTOR), as described above." | |
937 (and (consp object) | |
938 (let ((translation (car object))) | |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
939 (or (integerp translation) (null translation) |
17052 | 940 (vectorp translation) (stringp translation) |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
941 (symbolp translation) |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
942 (and (consp translation) (not (vectorp (cdr translation)))))) |
17052 | 943 (let ((alist (cdr object))) |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
944 (or (and (listp alist) (consp (car alist))) |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
945 (symbolp alist))))) |
17052 | 946 |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
947 ;;;###autoload |
17052 | 948 (defmacro quail-define-rules (&rest rules) |
949 "Define translation rules of the current Quail package. | |
950 Each argument is a list of KEY and TRANSLATION. | |
951 KEY is a string meaning a sequence of keystrokes to be translated. | |
952 TRANSLATION is a character, a string, a vector, a Quail map, or a function. | |
24821
7f6aadd2625b
(quail-define-rules): Fix typo in docstring.
Kenichi Handa <handa@m17n.org>
parents:
24304
diff
changeset
|
953 If it is a character, it is the sole translation of KEY. |
17052 | 954 If it is a string, each character is a candidate for the translation. |
955 If it is a vector, each element (string or character) is a candidate | |
956 for the translation. | |
957 In these cases, a key specific Quail map is generated and assigned to KEY. | |
958 | |
959 If TRANSLATION is a Quail map or a function symbol which returns a Quail map, | |
30656
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
960 it is used to handle KEY. |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
961 |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
962 The first argument may be an alist of annotations for the following |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
963 rules. Each element has the form (ANNOTATION . VALUE), where |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
964 ANNOTATION is a symbol indicating the annotation type. Currently |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
965 the following annotation types are supported. |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
966 |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
967 append -- the value non-nil means that the following rules should |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
968 be appended to the rules of the current Quail package. |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
969 |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
970 face -- the value is a face to use for displaying TRANSLATIONs in |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
971 candidate list. |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
972 |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
973 advice -- the value is a function to call after one of RULES is |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
974 selected. The function is called with one argument, the |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
975 selected TRANSLATION string, after the TRANSLATION is |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
976 inserted. |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
977 |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
978 no-decode-map --- the value non-nil means that decoding map is not |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
979 generated for the following translations." |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
980 (let ((l rules) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
981 append no-decode-map props) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
982 ;; If the first argument is an alist of annotations, handle them. |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
983 (if (consp (car (car l))) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
984 (let ((annotations (car l))) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
985 (setq append (assq 'append annotations)) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
986 (if append |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
987 (setq annotations (delete append annotations) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
988 append (cdr append))) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
989 (setq no-decode-map (assq 'no-decode-map annotations)) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
990 (if no-decode-map |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
991 (setq annotations (delete no-decode-map annotations) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
992 no-decode-map (cdr no-decode-map))) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
993 ;; Convert the remaining annoations to property list PROPS. |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
994 (while annotations |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
995 (setq props |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
996 (cons (car (car annotations)) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
997 (cons (cdr (car annotations)) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
998 props)) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
999 annotations (cdr annotations))) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1000 (setq l (cdr l)))) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1001 ;; Process the remaining arguments one by one. |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1002 (if append |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1003 ;; There's no way to add new rules at compiling time. |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1004 `(let ((tail ',l) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1005 (map (quail-map)) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1006 (decode-map (and (quail-decode-map) (not ,no-decode-map))) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1007 (properties ',props) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1008 key trans) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1009 (while tail |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1010 (setq key (car (car tail)) trans (car (cdr (car tail))) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1011 tail (cdr tail)) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1012 (quail-defrule-internal key trans map t decode-map properties))) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1013 ;; We can build up quail map and decode map at compiling time. |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1014 (let ((map (list nil)) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1015 (decode-map (if (not no-decode-map) (list 'decode-map))) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1016 key trans) |
17052 | 1017 (while l |
30656
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1018 (setq key (car (car l)) trans (car (cdr (car l))) l (cdr l)) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1019 (quail-defrule-internal key trans map t decode-map props)) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1020 `(if (not (quail-decode-map)) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1021 (quail-install-map ',map) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1022 (quail-install-map ',map) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1023 (quail-install-decode-map ',decode-map)))))) |
17052 | 1024 |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1025 ;;;###autoload |
26891
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
1026 (defun quail-install-map (map &optional name) |
17052 | 1027 "Install the Quail map MAP in the current Quail package. |
26891
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
1028 |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
1029 Optional 2nd arg NAME, if non-nil, is a name of Quail package for |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
1030 which to install MAP. |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
1031 |
17052 | 1032 The installed map can be referred by the function `quail-map'." |
1033 (if (null quail-current-package) | |
1034 (error "No current Quail package")) | |
1035 (if (null (quail-map-p map)) | |
1036 (error "Invalid Quail map `%s'" map)) | |
1037 (setcar (cdr (cdr quail-current-package)) map)) | |
1038 | |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1039 ;;;###autoload |
30656
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1040 (defun quail-install-decode-map (decode-map &optional name) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1041 "Install the Quail decode map DECODE-MAP in the current Quail package. |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1042 |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1043 Optional 2nd arg NAME, if non-nil, is a name of Quail package for |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1044 which to install MAP. |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1045 |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1046 The installed decode map can be referred by the function `quail-decode-map'." |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1047 (if (null quail-current-package) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1048 (error "No current Quail package")) |
55541
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
1049 (if (if (consp decode-map) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
1050 (eq (car decode-map) 'decode-map) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
1051 (if (char-table-p decode-map) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
1052 (eq (char-table-subtype decode-map) 'quail-decode-map))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
1053 (setcar (nthcdr 10 quail-current-package) decode-map) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
1054 (error "Invalid Quail decode map `%s'" decode-map))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
1055 |
30656
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1056 |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1057 ;;;###autoload |
23401
a83ca83c8626
(quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents:
23304
diff
changeset
|
1058 (defun quail-defrule (key translation &optional name append) |
17052 | 1059 "Add one translation rule, KEY to TRANSLATION, in the current Quail package. |
1060 KEY is a string meaning a sequence of keystrokes to be translated. | |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1061 TRANSLATION is a character, a string, a vector, a Quail map, |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1062 a function, or a cons. |
17052 | 1063 It it is a character, it is the sole translation of KEY. |
1064 If it is a string, each character is a candidate for the translation. | |
1065 If it is a vector, each element (string or character) is a candidate | |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1066 for the translation. |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1067 If it is a cons, the car is one of the above and the cdr is a function |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1068 to call when translating KEY (the return value is assigned to the |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1069 variable `quail-current-data'). If the cdr part is not a function, |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1070 the value itself is assigned to `quail-current-data'. |
17052 | 1071 In these cases, a key specific Quail map is generated and assigned to KEY. |
1072 | |
1073 If TRANSLATION is a Quail map or a function symbol which returns a Quail map, | |
1074 it is used to handle KEY. | |
23401
a83ca83c8626
(quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents:
23304
diff
changeset
|
1075 |
a83ca83c8626
(quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents:
23304
diff
changeset
|
1076 Optional 3rd argument NAME, if specified, says which Quail package |
17052 | 1077 to define this translation rule in. The default is to define it in the |
23401
a83ca83c8626
(quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents:
23304
diff
changeset
|
1078 current Quail package. |
a83ca83c8626
(quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents:
23304
diff
changeset
|
1079 |
a83ca83c8626
(quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents:
23304
diff
changeset
|
1080 Optional 4th argument APPEND, if non-nil, appends TRANSLATION |
a83ca83c8626
(quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents:
23304
diff
changeset
|
1081 to the current translations for KEY instead of replacing them." |
17052 | 1082 (if name |
1083 (let ((package (quail-package name))) | |
1084 (if (null package) | |
1085 (error "No Quail package `%s'" name)) | |
1086 (setq quail-current-package package))) | |
23401
a83ca83c8626
(quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents:
23304
diff
changeset
|
1087 (quail-defrule-internal key translation (quail-map) append)) |
17052 | 1088 |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1089 ;;;###autoload |
30656
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1090 (defun quail-defrule-internal (key trans map &optional append decode-map props) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1091 "Define KEY as TRANS in a Quail map MAP. |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1092 |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1093 If Optional 4th arg APPEND is non-nil, TRANS is appended to the |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1094 current translations for KEY instead of replacing them. |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1095 |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1096 Optional 5th arg DECODE-MAP is a Quail decode map. |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1097 |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1098 Optional 6th arg PROPS is a property list annotating TRANS. See the |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1099 function `quail-define-rules' for the detail." |
72627
ab32c6acd9f2
(quail-defrule-internal): Add a check if a key is a vector.
Juri Linkov <juri@jurta.org>
parents:
72622
diff
changeset
|
1100 (if (not (or (stringp key) (vectorp key))) |
72622
adb1cbfb05ca
(quail-defrule-internal): Add missing `error' call for null key.
Juri Linkov <juri@jurta.org>
parents:
66485
diff
changeset
|
1101 (error "Invalid Quail key `%s'" key)) |
17052 | 1102 (if (not (or (numberp trans) (stringp trans) (vectorp trans) |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1103 (consp trans) |
17052 | 1104 (symbolp trans) |
1105 (quail-map-p trans))) | |
1106 (error "Invalid Quail translation `%s'" trans)) | |
1107 (if (null (quail-map-p map)) | |
1108 (error "Invalid Quail map `%s'" map)) | |
1109 (let ((len (length key)) | |
1110 (idx 0) | |
1111 ch entry) | |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1112 ;; Make a map for registering TRANS if necessary. |
17052 | 1113 (while (< idx len) |
1114 (if (null (consp map)) | |
1115 ;; We come here, for example, when we try to define a rule | |
1116 ;; for "ABC" but a rule for "AB" is already defined as a | |
1117 ;; symbol. | |
1118 (error "Quail key %s is too long" key)) | |
1119 (setq ch (aref key idx) | |
1120 entry (assq ch (cdr map))) | |
1121 (if (null entry) | |
1122 (progn | |
1123 (setq entry (cons ch (list nil))) | |
1124 (setcdr map (cons entry (cdr map))))) | |
1125 (setq map (cdr entry)) | |
1126 (setq idx (1+ idx))) | |
1127 (if (symbolp trans) | |
1128 (if (cdr map) | |
1129 ;; We come here, for example, when we try to define a rule | |
1130 ;; for "AB" as a symbol but a rule for "ABC" is already | |
1131 ;; defined. | |
1132 (error "Quail key %s is too short" key) | |
1133 (setcdr entry trans)) | |
1134 (if (quail-map-p trans) | |
1135 (if (not (listp (cdr map))) | |
1136 ;; We come here, for example, when we try to define a rule | |
1137 ;; for "AB" as a symbol but a rule for "ABC" is already | |
1138 ;; defined. | |
1139 (error "Quail key %s is too short" key) | |
1140 (if (not (listp (cdr trans))) | |
1141 (if (cdr map) | |
1142 ;; We come here, for example, when we try to | |
1143 ;; define a rule for "AB" as a symbol but a rule | |
1144 ;; for "ABC" is already defined. | |
1145 (error "Quail key %s is too short" key) | |
1146 (setcdr entry trans)) | |
1147 (setcdr entry (append trans (cdr map))))) | |
30656
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1148 ;; If PROPS is non-nil or DECODE-MAP is non-nil, convert TRANS |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1149 ;; to a vector of strings, add PROPS to each string and record |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1150 ;; this rule in DECODE-MAP. |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1151 (when (and (or props decode-map) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1152 (not (consp trans)) (not (symbolp trans))) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1153 (if (integerp trans) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1154 (setq trans (vector trans)) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1155 (if (stringp trans) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1156 (setq trans (string-to-vector trans)))) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1157 (let ((len (length trans)) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1158 elt) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1159 (while (> len 0) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1160 (setq len (1- len)) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1161 (setq elt (aref trans len)) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1162 (if (integerp elt) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1163 (setq elt (char-to-string elt))) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1164 (aset trans len elt) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1165 (if props |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1166 (add-text-properties 0 (length elt) props elt)) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1167 (if decode-map |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1168 (setcdr decode-map |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
1169 (cons (cons elt key) (cdr decode-map))))))) |
23401
a83ca83c8626
(quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents:
23304
diff
changeset
|
1170 (if (and (car map) append) |
a83ca83c8626
(quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents:
23304
diff
changeset
|
1171 (let ((prev (quail-get-translation (car map) key len))) |
a83ca83c8626
(quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents:
23304
diff
changeset
|
1172 (if (integerp prev) |
a83ca83c8626
(quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents:
23304
diff
changeset
|
1173 (setq prev (vector prev)) |
a83ca83c8626
(quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents:
23304
diff
changeset
|
1174 (setq prev (cdr prev))) |
a83ca83c8626
(quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents:
23304
diff
changeset
|
1175 (if (integerp trans) |
a83ca83c8626
(quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents:
23304
diff
changeset
|
1176 (setq trans (vector trans)) |
a83ca83c8626
(quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents:
23304
diff
changeset
|
1177 (if (stringp trans) |
a83ca83c8626
(quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents:
23304
diff
changeset
|
1178 (setq trans (string-to-vector trans)))) |
a83ca83c8626
(quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents:
23304
diff
changeset
|
1179 (setq trans |
a83ca83c8626
(quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents:
23304
diff
changeset
|
1180 (cons (list 0 0 0 0 nil) |
a83ca83c8626
(quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents:
23304
diff
changeset
|
1181 (vconcat prev trans))))) |
a83ca83c8626
(quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents:
23304
diff
changeset
|
1182 (setcar map trans))))) |
17052 | 1183 |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1184 (defun quail-get-translation (def key len) |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1185 "Return the translation specified as DEF for KEY of length LEN. |
17052 | 1186 The translation is either a character or a cons of the form (INDEX . VECTOR), |
1187 where VECTOR is a vector of candidates (character or string) for | |
1188 the translation, and INDEX points into VECTOR to specify the currently | |
1189 selected translation." | |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1190 (if (and def (symbolp def)) |
26891
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
1191 (if (functionp def) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
1192 ;; DEF is a symbol of a function which returns valid translation. |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
1193 (setq def (funcall def key len)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
1194 (setq def nil))) |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1195 (if (and (consp def) (not (vectorp (cdr def)))) |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1196 (setq def (car def))) |
17052 | 1197 |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1198 (cond |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1199 ((or (integerp def) (consp def)) |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1200 def) |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1201 |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1202 ((null def) |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1203 ;; No translation. |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1204 nil) |
17052 | 1205 |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1206 ((stringp def) |
31424 | 1207 ;; If the length is 1, we don't need vector but a single candidate |
1208 ;; as the translation. | |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1209 (if (= (length def) 1) |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1210 (aref def 0) |
31424 | 1211 ;; Each character in DEF is a candidate of translation. Reform |
1212 ;; it as (INDICES . VECTOR). | |
1213 (cons (list 0 0 0 0 nil) (string-to-vector def)))) | |
17052 | 1214 |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1215 ((vectorp def) |
31424 | 1216 ;; If the length is 1, and the length of element string is 1, we |
1217 ;; don't need vector but a single candidate as the translation. | |
1218 (if (and (= (length def) 1) | |
1219 (= (length (aref def 0)) 1)) | |
1220 (aref (aref def 0) 0) | |
1221 ;; Each element (string or character) in DEF is a candidate of | |
1222 ;; translation. Reform it as (INDICES . VECTOR). | |
1223 (cons (list 0 0 0 0 nil) def))) | |
17052 | 1224 |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1225 (t |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1226 (error "Invalid object in Quail map: %s" def)))) |
17052 | 1227 |
54999
894e3fd388c2
(quail-lookup-key): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
54997
diff
changeset
|
1228 (defun quail-lookup-key (key &optional len not-reset-indices) |
17052 | 1229 "Lookup KEY of length LEN in the current Quail map and return the definition. |
1230 The returned value is a Quail map specific to KEY." | |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1231 (or len |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1232 (setq len (length key))) |
17052 | 1233 (let ((idx 0) |
1234 (map (quail-map)) | |
1235 (kbd-translate (quail-kbd-translate)) | |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1236 slot ch translation def) |
17052 | 1237 (while (and map (< idx len)) |
1238 (setq ch (if kbd-translate (quail-keyboard-translate (aref key idx)) | |
1239 (aref key idx))) | |
1240 (setq idx (1+ idx)) | |
1241 (if (and (cdr map) (symbolp (cdr map))) | |
1242 (setcdr map (funcall (cdr map) key idx))) | |
1243 (setq slot (assq ch (cdr map))) | |
1244 (if (and (cdr slot) (symbolp (cdr slot))) | |
1245 (setcdr slot (funcall (cdr slot) key idx))) | |
1246 (setq map (cdr slot))) | |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1247 (setq def (car map)) |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1248 (setq quail-current-translations nil) |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1249 (if (and map (setq translation (quail-get-translation def key len))) |
17052 | 1250 (progn |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1251 (if (and (consp def) (not (vectorp (cdr def)))) |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1252 (progn |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1253 (if (not (equal (car def) translation)) |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1254 ;; We must reflect TRANSLATION to car part of DEF. |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1255 (setcar def translation)) |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1256 (setq quail-current-data |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1257 (if (functionp (cdr def)) |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1258 (funcall (cdr def)) |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1259 (cdr def)))) |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1260 (if (not (equal def translation)) |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1261 ;; We must reflect TRANSLATION to car part of MAP. |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
1262 (setcar map translation))) |
36465 | 1263 (if (and (consp translation) (vectorp (cdr translation))) |
17052 | 1264 (progn |
1265 (setq quail-current-translations translation) | |
54999
894e3fd388c2
(quail-lookup-key): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
54997
diff
changeset
|
1266 (if (and (not not-reset-indices) (quail-forget-last-selection)) |
24238
20d23ea9713b
(quail-lookup-key): If cdr of MAP is a
Kenichi Handa <handa@m17n.org>
parents:
23887
diff
changeset
|
1267 (setcar (car quail-current-translations) 0)))))) |
20d23ea9713b
(quail-lookup-key): If cdr of MAP is a
Kenichi Handa <handa@m17n.org>
parents:
23887
diff
changeset
|
1268 ;; We may have to reform cdr part of MAP. |
20d23ea9713b
(quail-lookup-key): If cdr of MAP is a
Kenichi Handa <handa@m17n.org>
parents:
23887
diff
changeset
|
1269 (if (and (cdr map) (functionp (cdr map))) |
20d23ea9713b
(quail-lookup-key): If cdr of MAP is a
Kenichi Handa <handa@m17n.org>
parents:
23887
diff
changeset
|
1270 (setcdr map (funcall (cdr map) key len))) |
17052 | 1271 map)) |
1272 | |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1273 (put 'quail-error 'error-conditions '(quail-error error)) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1274 (defun quail-error (&rest args) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1275 (signal 'quail-error (apply 'format args))) |
17052 | 1276 |
35076
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1277 (defun quail-input-string-to-events (str) |
36465 | 1278 "Convert input string STR to a list of events. |
89293
f657319ddd9b
(quail-input-string-to-events): Don't generate compose-chars-after
Kenichi Handa <handa@m17n.org>
parents:
89170
diff
changeset
|
1279 If STR has `advice' text property, append the following special event: |
f657319ddd9b
(quail-input-string-to-events): Don't generate compose-chars-after
Kenichi Handa <handa@m17n.org>
parents:
89170
diff
changeset
|
1280 \(quail-advice STR)" |
f657319ddd9b
(quail-input-string-to-events): Don't generate compose-chars-after
Kenichi Handa <handa@m17n.org>
parents:
89170
diff
changeset
|
1281 (let ((events (mapcar |
f657319ddd9b
(quail-input-string-to-events): Don't generate compose-chars-after
Kenichi Handa <handa@m17n.org>
parents:
89170
diff
changeset
|
1282 (lambda (c) |
f657319ddd9b
(quail-input-string-to-events): Don't generate compose-chars-after
Kenichi Handa <handa@m17n.org>
parents:
89170
diff
changeset
|
1283 ;; This gives us the chance to unify on input |
f657319ddd9b
(quail-input-string-to-events): Don't generate compose-chars-after
Kenichi Handa <handa@m17n.org>
parents:
89170
diff
changeset
|
1284 ;; (e.g. using ucs-tables.el). |
f657319ddd9b
(quail-input-string-to-events): Don't generate compose-chars-after
Kenichi Handa <handa@m17n.org>
parents:
89170
diff
changeset
|
1285 (or (and translation-table-for-input |
f657319ddd9b
(quail-input-string-to-events): Don't generate compose-chars-after
Kenichi Handa <handa@m17n.org>
parents:
89170
diff
changeset
|
1286 (aref translation-table-for-input c)) |
f657319ddd9b
(quail-input-string-to-events): Don't generate compose-chars-after
Kenichi Handa <handa@m17n.org>
parents:
89170
diff
changeset
|
1287 c)) |
f657319ddd9b
(quail-input-string-to-events): Don't generate compose-chars-after
Kenichi Handa <handa@m17n.org>
parents:
89170
diff
changeset
|
1288 str))) |
35076
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1289 (if (or (get-text-property 0 'advice str) |
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1290 (next-single-property-change 0 'advice str)) |
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1291 (setq events |
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1292 (nconc events (list (list 'quail-advice str))))) |
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1293 events)) |
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1294 |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1295 (defvar quail-translating nil) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1296 (defvar quail-converting nil) |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1297 (defvar quail-conversion-str nil) |
18201
feea31893155
(quail-prefix-arg): New variable.
Kenichi Handa <handa@m17n.org>
parents:
17764
diff
changeset
|
1298 |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1299 (defun quail-input-method (key) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1300 (if (or buffer-read-only |
22777
1b0761cbc15b
(quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents:
22765
diff
changeset
|
1301 overriding-terminal-local-map |
1b0761cbc15b
(quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents:
22765
diff
changeset
|
1302 overriding-local-map) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1303 (list key) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1304 (quail-setup-overlays (quail-conversion-keymap)) |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1305 (let ((modified-p (buffer-modified-p)) |
60701
cd94feb048c7
(quail-input-method): Locally bind
Kenichi Handa <handa@m17n.org>
parents:
59066
diff
changeset
|
1306 (buffer-undo-list t) |
cd94feb048c7
(quail-input-method): Locally bind
Kenichi Handa <handa@m17n.org>
parents:
59066
diff
changeset
|
1307 (inhibit-modification-hooks t)) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1308 (unwind-protect |
35076
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1309 (let ((input-string (if (quail-conversion-keymap) |
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1310 (quail-start-conversion key) |
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1311 (quail-start-translation key)))) |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1312 (setq quail-guidance-str "") |
35076
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1313 (when (and (stringp input-string) |
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1314 (> (length input-string) 0)) |
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1315 (if input-method-exit-on-first-char |
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1316 (list (aref input-string 0)) |
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1317 (quail-input-string-to-events input-string)))) |
22777
1b0761cbc15b
(quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents:
22765
diff
changeset
|
1318 (quail-delete-overlays) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1319 (set-buffer-modified-p modified-p) |
22777
1b0761cbc15b
(quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents:
22765
diff
changeset
|
1320 ;; Run this hook only when the current input method doesn't require |
1b0761cbc15b
(quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents:
22765
diff
changeset
|
1321 ;; conversion. When conversion is required, the conversion function |
1b0761cbc15b
(quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents:
22765
diff
changeset
|
1322 ;; should run this hook at a proper timing. |
1b0761cbc15b
(quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents:
22765
diff
changeset
|
1323 (unless (quail-conversion-keymap) |
1b0761cbc15b
(quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents:
22765
diff
changeset
|
1324 (run-hooks 'input-method-after-insert-chunk-hook)))))) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1325 |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1326 (defun quail-overlay-region-events (overlay) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1327 (let ((start (overlay-start overlay)) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1328 (end (overlay-end overlay))) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1329 (if (< start end) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1330 (prog1 |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1331 (string-to-list (buffer-substring start end)) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1332 (delete-region start end))))) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1333 |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1334 (defsubst quail-delete-region () |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1335 "Delete the text in the current translation region of Quail." |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1336 (if (overlay-start quail-overlay) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1337 (delete-region (overlay-start quail-overlay) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1338 (overlay-end quail-overlay)))) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1339 |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1340 (defun quail-start-translation (key) |
35076
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1341 "Start translation of the typed character KEY by the current Quail package. |
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1342 Return the input string." |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1343 ;; Check the possibility of translating KEY. |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1344 ;; If KEY is nil, we can anyway start translation. |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1345 (if (or (and (integerp key) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1346 (assq (if (quail-kbd-translate) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1347 (quail-keyboard-translate key) key) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1348 (cdr (quail-map)))) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1349 (null key)) |
23176 | 1350 ;; OK, we can start translation. |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1351 (let* ((echo-keystrokes 0) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1352 (help-char nil) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1353 (overriding-terminal-local-map (quail-translation-keymap)) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1354 (generated-events nil) |
29145
79b2b42f9a7b
(quail-start-translation): Don't change
Kenichi Handa <handa@m17n.org>
parents:
29129
diff
changeset
|
1355 (input-method-function nil) |
42611
7bb381bfe22a
(quail-start-translation, quail-start-conversion): Bind
Eli Zaretskii <eliz@gnu.org>
parents:
42126
diff
changeset
|
1356 (modified-p (buffer-modified-p)) |
7bb381bfe22a
(quail-start-translation, quail-start-conversion): Bind
Eli Zaretskii <eliz@gnu.org>
parents:
42126
diff
changeset
|
1357 last-command-event last-command this-command) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1358 (setq quail-current-key "" |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1359 quail-current-str "" |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1360 quail-translating t) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1361 (if key |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1362 (setq unread-command-events (cons key unread-command-events))) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1363 (while quail-translating |
29145
79b2b42f9a7b
(quail-start-translation): Don't change
Kenichi Handa <handa@m17n.org>
parents:
29129
diff
changeset
|
1364 (set-buffer-modified-p modified-p) |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1365 (quail-show-guidance) |
59066
c979627ce50b
(quail-start-translation): Fix prompt
Kenichi Handa <handa@m17n.org>
parents:
55549
diff
changeset
|
1366 (let* ((prompt (if input-method-use-echo-area |
c979627ce50b
(quail-start-translation): Fix prompt
Kenichi Handa <handa@m17n.org>
parents:
55549
diff
changeset
|
1367 (format "%s%s %s" |
c979627ce50b
(quail-start-translation): Fix prompt
Kenichi Handa <handa@m17n.org>
parents:
55549
diff
changeset
|
1368 (or input-method-previous-message "") |
c979627ce50b
(quail-start-translation): Fix prompt
Kenichi Handa <handa@m17n.org>
parents:
55549
diff
changeset
|
1369 quail-current-str |
c979627ce50b
(quail-start-translation): Fix prompt
Kenichi Handa <handa@m17n.org>
parents:
55549
diff
changeset
|
1370 quail-guidance-str))) |
c979627ce50b
(quail-start-translation): Fix prompt
Kenichi Handa <handa@m17n.org>
parents:
55549
diff
changeset
|
1371 (keyseq (read-key-sequence prompt nil nil t)) |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1372 (cmd (lookup-key (quail-translation-keymap) keyseq))) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1373 (if (if key |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1374 (and (commandp cmd) (not (eq cmd 'quail-other-command))) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1375 (eq cmd 'quail-self-insert-command)) |
42611
7bb381bfe22a
(quail-start-translation, quail-start-conversion): Bind
Eli Zaretskii <eliz@gnu.org>
parents:
42126
diff
changeset
|
1376 (progn |
7bb381bfe22a
(quail-start-translation, quail-start-conversion): Bind
Eli Zaretskii <eliz@gnu.org>
parents:
42126
diff
changeset
|
1377 (setq last-command-event (aref keyseq (1- (length keyseq))) |
7bb381bfe22a
(quail-start-translation, quail-start-conversion): Bind
Eli Zaretskii <eliz@gnu.org>
parents:
42126
diff
changeset
|
1378 last-command this-command |
7bb381bfe22a
(quail-start-translation, quail-start-conversion): Bind
Eli Zaretskii <eliz@gnu.org>
parents:
42126
diff
changeset
|
1379 this-command cmd) |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1380 (setq key t) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1381 (condition-case err |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1382 (call-interactively cmd) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1383 (quail-error (message "%s" (cdr err)) (beep)))) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1384 ;; KEYSEQ is not defined in the translation keymap. |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1385 ;; Let's return the event(s) to the caller. |
26891
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
1386 (setq unread-command-events |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1387 (string-to-list (this-single-command-raw-keys))) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1388 (setq quail-translating nil)))) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1389 (quail-delete-region) |
35076
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1390 quail-current-str) |
17052 | 1391 |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1392 ;; Since KEY doesn't start any translation, just return it. |
31828
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1393 ;; But translate KEY if necessary. |
35076
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1394 (if (quail-kbd-translate) |
31584
a5e682286ab6
(quail-start-translation): Translate KEY if necessary even if it
Kenichi Handa <handa@m17n.org>
parents:
31549
diff
changeset
|
1395 (setq key (quail-keyboard-translate key))) |
35076
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1396 (char-to-string key))) |
17052 | 1397 |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1398 (defun quail-start-conversion (key) |
35076
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1399 "Start conversion of the typed character KEY by the current Quail package. |
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1400 Return the input string." |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1401 ;; Check the possibility of translating KEY. |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1402 ;; If KEY is nil, we can anyway start translation. |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1403 (if (or (and (integerp key) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1404 (assq (if (quail-kbd-translate) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1405 (quail-keyboard-translate key) key) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1406 (cdr (quail-map)))) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1407 (null key)) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1408 ;; Ok, we can start translation and conversion. |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1409 (let* ((echo-keystrokes 0) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1410 (help-char nil) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1411 (overriding-terminal-local-map (quail-conversion-keymap)) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1412 (generated-events nil) |
29145
79b2b42f9a7b
(quail-start-translation): Don't change
Kenichi Handa <handa@m17n.org>
parents:
29129
diff
changeset
|
1413 (input-method-function nil) |
42611
7bb381bfe22a
(quail-start-translation, quail-start-conversion): Bind
Eli Zaretskii <eliz@gnu.org>
parents:
42126
diff
changeset
|
1414 (modified-p (buffer-modified-p)) |
7bb381bfe22a
(quail-start-translation, quail-start-conversion): Bind
Eli Zaretskii <eliz@gnu.org>
parents:
42126
diff
changeset
|
1415 last-command-event last-command this-command) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1416 (setq quail-current-key "" |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1417 quail-current-str "" |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1418 quail-translating t |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1419 quail-converting t |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1420 quail-conversion-str "") |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1421 (if key |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1422 (setq unread-command-events (cons key unread-command-events))) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1423 (while quail-converting |
29145
79b2b42f9a7b
(quail-start-translation): Don't change
Kenichi Handa <handa@m17n.org>
parents:
29129
diff
changeset
|
1424 (set-buffer-modified-p modified-p) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1425 (or quail-translating |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1426 (progn |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1427 (setq quail-current-key "" |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1428 quail-current-str "" |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1429 quail-translating t) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1430 (quail-setup-overlays nil))) |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1431 (quail-show-guidance) |
59066
c979627ce50b
(quail-start-translation): Fix prompt
Kenichi Handa <handa@m17n.org>
parents:
55549
diff
changeset
|
1432 (let* ((prompt (if input-method-use-echo-area |
c979627ce50b
(quail-start-translation): Fix prompt
Kenichi Handa <handa@m17n.org>
parents:
55549
diff
changeset
|
1433 (format "%s%s%s %s" |
c979627ce50b
(quail-start-translation): Fix prompt
Kenichi Handa <handa@m17n.org>
parents:
55549
diff
changeset
|
1434 (or input-method-previous-message "") |
c979627ce50b
(quail-start-translation): Fix prompt
Kenichi Handa <handa@m17n.org>
parents:
55549
diff
changeset
|
1435 quail-conversion-str |
c979627ce50b
(quail-start-translation): Fix prompt
Kenichi Handa <handa@m17n.org>
parents:
55549
diff
changeset
|
1436 quail-current-str |
c979627ce50b
(quail-start-translation): Fix prompt
Kenichi Handa <handa@m17n.org>
parents:
55549
diff
changeset
|
1437 quail-guidance-str))) |
c979627ce50b
(quail-start-translation): Fix prompt
Kenichi Handa <handa@m17n.org>
parents:
55549
diff
changeset
|
1438 (keyseq (read-key-sequence prompt nil nil t)) |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1439 (cmd (lookup-key (quail-conversion-keymap) keyseq))) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1440 (if (if key (commandp cmd) (eq cmd 'quail-self-insert-command)) |
42611
7bb381bfe22a
(quail-start-translation, quail-start-conversion): Bind
Eli Zaretskii <eliz@gnu.org>
parents:
42126
diff
changeset
|
1441 (progn |
7bb381bfe22a
(quail-start-translation, quail-start-conversion): Bind
Eli Zaretskii <eliz@gnu.org>
parents:
42126
diff
changeset
|
1442 (setq last-command-event (aref keyseq (1- (length keyseq))) |
7bb381bfe22a
(quail-start-translation, quail-start-conversion): Bind
Eli Zaretskii <eliz@gnu.org>
parents:
42126
diff
changeset
|
1443 last-command this-command |
7bb381bfe22a
(quail-start-translation, quail-start-conversion): Bind
Eli Zaretskii <eliz@gnu.org>
parents:
42126
diff
changeset
|
1444 this-command cmd) |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1445 (setq key t) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1446 (condition-case err |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1447 (call-interactively cmd) |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1448 (quail-error (message "%s" (cdr err)) (beep))) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1449 (or quail-translating |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1450 (progn |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1451 (if quail-current-str |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1452 (setq quail-conversion-str |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1453 (concat quail-conversion-str |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1454 (if (stringp quail-current-str) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1455 quail-current-str |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1456 (char-to-string quail-current-str))))) |
29326
44c929164604
(quail-start-conversion): Don't include
Kenichi Handa <handa@m17n.org>
parents:
29145
diff
changeset
|
1457 (if (or input-method-exit-on-first-char |
44c929164604
(quail-start-conversion): Don't include
Kenichi Handa <handa@m17n.org>
parents:
29145
diff
changeset
|
1458 (= (length quail-conversion-str) 0)) |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1459 (setq quail-converting nil))))) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1460 ;; KEYSEQ is not defined in the conversion keymap. |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1461 ;; Let's return the event(s) to the caller. |
29326
44c929164604
(quail-start-conversion): Don't include
Kenichi Handa <handa@m17n.org>
parents:
29145
diff
changeset
|
1462 (setq unread-command-events |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1463 (string-to-list (this-single-command-raw-keys))) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1464 (setq quail-converting nil)))) |
38105
14d329bebf2a
(quail-start-conversion): Reset
Gerd Moellmann <gerd@gnu.org>
parents:
36723
diff
changeset
|
1465 (setq quail-translating nil) |
22793
c3ab1de66dfc
(quail-simple-translation-keymap): Typo
Kenichi Handa <handa@m17n.org>
parents:
22777
diff
changeset
|
1466 (if (overlay-start quail-conv-overlay) |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1467 (delete-region (overlay-start quail-conv-overlay) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1468 (overlay-end quail-conv-overlay))) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1469 (if (> (length quail-conversion-str) 0) |
35076
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1470 quail-conversion-str)) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1471 |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1472 ;; Since KEY doesn't start any translation, just return it. |
31828
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1473 ;; But translate KEY if necessary. |
35076
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1474 (if (quail-kbd-translate) |
31584
a5e682286ab6
(quail-start-translation): Translate KEY if necessary even if it
Kenichi Handa <handa@m17n.org>
parents:
31549
diff
changeset
|
1475 (setq key (quail-keyboard-translate key))) |
35076
778deeeffb6d
(quail-input-string-to-events): New function.
Kenichi Handa <handa@m17n.org>
parents:
34725
diff
changeset
|
1476 (char-to-string key))) |
17052 | 1477 |
1478 (defun quail-terminate-translation () | |
19519
1c0ecc266e38
(quail-terminate-translation): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
19453
diff
changeset
|
1479 "Terminate the translation of the current key." |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1480 (setq quail-translating nil) |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1481 (setq quail-guidance-str " ")) |
17052 | 1482 |
1483 (defun quail-select-current () | |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
1484 "Accept the currently selected translation." |
17052 | 1485 (interactive) |
1486 (quail-terminate-translation)) | |
1487 | |
1488 (defun quail-update-translation (control-flag) | |
36465 | 1489 "Update the current translation status according to CONTROL-FLAG. |
1490 If CONTROL-FLAG is integer value, it is the number of keys in the | |
1491 head `quail-current-key' which can be translated. The remaining keys | |
1492 are put back to `unread-command-events' to be handled again. If | |
1493 CONTROL-FLAG is t, terminate the translation for the whole keys in | |
1494 `quail-current-key'. If CONTROL-FLAG is nil, proceed the translation | |
1495 with more keys." | |
17052 | 1496 (let ((func (quail-update-translation-function))) |
1497 (if func | |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1498 (setq control-flag (funcall func control-flag)) |
31828
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1499 (cond ((numberp control-flag) |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1500 (let ((len (length quail-current-key))) |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1501 (if (= control-flag 0) |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1502 (setq quail-current-str |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1503 (if (quail-kbd-translate) |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1504 (quail-keyseq-translate quail-current-key) |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1505 quail-current-key))) |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1506 (or input-method-exit-on-first-char |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1507 (while (> len control-flag) |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1508 (setq len (1- len)) |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1509 (setq unread-command-events |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1510 (cons (aref quail-current-key len) |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1511 unread-command-events)))))) |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1512 ((null control-flag) |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1513 (unless quail-current-str |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1514 (setq quail-current-str |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1515 (if (quail-kbd-translate) |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1516 (quail-keyseq-translate quail-current-key) |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1517 quail-current-key)) |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1518 (if (and input-method-exit-on-first-char |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1519 (quail-simple)) |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
1520 (setq control-flag t))))))) |
23304
3a7a029df593
(quail-update-guidance): Check for the
Kenichi Handa <handa@m17n.org>
parents:
23176
diff
changeset
|
1521 (or input-method-use-echo-area |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1522 (let (pos) |
23304
3a7a029df593
(quail-update-guidance): Check for the
Kenichi Handa <handa@m17n.org>
parents:
23176
diff
changeset
|
1523 (quail-delete-region) |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1524 (setq pos (point)) |
54997
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1525 (or enable-multibyte-characters |
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1526 (let (char) |
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1527 (if (stringp quail-current-str) |
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1528 (catch 'tag |
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1529 (mapc #'(lambda (ch) |
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1530 (when (/= (unibyte-char-to-multibyte |
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1531 (multibyte-char-to-unibyte ch)) |
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1532 ch) |
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1533 (setq char ch) |
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1534 (throw 'tag nil))) |
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1535 quail-current-str)) |
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1536 (if (/= (unibyte-char-to-multibyte |
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1537 (multibyte-char-to-unibyte quail-current-str)) |
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1538 quail-current-str) |
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1539 (setq char quail-current-str))) |
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1540 (when char |
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1541 (message "Can't input %c in the current unibyte buffer" char) |
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1542 (ding) |
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1543 (sit-for 2) |
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1544 (message nil) |
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1545 (setq quail-current-str nil) |
21d4358a7507
(quail-update-translation): Don't insert
Kenichi Handa <handa@m17n.org>
parents:
54520
diff
changeset
|
1546 (throw 'quail-tag nil)))) |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1547 (insert quail-current-str) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1548 (move-overlay quail-overlay pos (point)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1549 (if (overlayp quail-conv-overlay) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1550 (if (not (overlay-start quail-conv-overlay)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1551 (move-overlay quail-conv-overlay pos (point)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1552 (if (< (overlay-end quail-conv-overlay) (point)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1553 (move-overlay quail-conv-overlay |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1554 (overlay-start quail-conv-overlay) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1555 (point))))))) |
23304
3a7a029df593
(quail-update-guidance): Check for the
Kenichi Handa <handa@m17n.org>
parents:
23176
diff
changeset
|
1556 (let (quail-current-str) |
3a7a029df593
(quail-update-guidance): Check for the
Kenichi Handa <handa@m17n.org>
parents:
23176
diff
changeset
|
1557 (quail-update-guidance)) |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1558 (or (stringp quail-current-str) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1559 (setq quail-current-str (char-to-string quail-current-str))) |
19432
4492653b04e8
(quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents:
19404
diff
changeset
|
1560 (if control-flag |
4492653b04e8
(quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents:
19404
diff
changeset
|
1561 (quail-terminate-translation))) |
17052 | 1562 |
1563 (defun quail-self-insert-command () | |
31286
62621544edd2
(quail-self-insert-command): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
31284
diff
changeset
|
1564 "Translate the typed key by the current Quail map, and insert." |
17052 | 1565 (interactive "*") |
1566 (setq quail-current-key | |
1567 (concat quail-current-key (char-to-string last-command-event))) | |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1568 (or (catch 'quail-tag |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1569 (quail-update-translation (quail-translate-key)) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1570 t) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1571 ;; If someone throws for `quail-tag' by value nil, we exit from |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1572 ;; translation mode. |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1573 (setq quail-translating nil))) |
17052 | 1574 |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1575 (defun quail-map-definition (map) |
36465 | 1576 "Return the actual definition part of Quail map MAP." |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1577 (let ((def (car map))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1578 (if (and (consp def) (not (vectorp (cdr def)))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1579 (setq def (car def))) |
26891
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
1580 (if (eq def t) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
1581 (setq def nil)) |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1582 def)) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1583 |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1584 (defun quail-get-current-str (len def) |
36465 | 1585 "Return string to be shown as current translation of key sequence. |
1586 LEN is the length of the sequence. DEF is a definition part of the | |
1587 Quail map for the sequence." | |
90665
38ad9fa1876b
(quail-insert-kbd-layout): Check the
Kenichi Handa <handa@m17n.org>
parents:
90599
diff
changeset
|
1588 (or (and (consp def) |
38ad9fa1876b
(quail-insert-kbd-layout): Check the
Kenichi Handa <handa@m17n.org>
parents:
90599
diff
changeset
|
1589 (if (> (length (cdr def)) (car (car def))) |
38ad9fa1876b
(quail-insert-kbd-layout): Check the
Kenichi Handa <handa@m17n.org>
parents:
90599
diff
changeset
|
1590 (aref (cdr def) (car (car def))) |
38ad9fa1876b
(quail-insert-kbd-layout): Check the
Kenichi Handa <handa@m17n.org>
parents:
90599
diff
changeset
|
1591 "")) |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1592 def |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1593 (and (> len 1) |
66485
2c4be4c0eb6f
(quail-get-current-str): Translate last raw character
Juri Linkov <juri@jurta.org>
parents:
66426
diff
changeset
|
1594 (let* ((str (quail-get-current-str |
2c4be4c0eb6f
(quail-get-current-str): Translate last raw character
Juri Linkov <juri@jurta.org>
parents:
66426
diff
changeset
|
1595 (1- len) |
2c4be4c0eb6f
(quail-get-current-str): Translate last raw character
Juri Linkov <juri@jurta.org>
parents:
66426
diff
changeset
|
1596 (quail-map-definition (quail-lookup-key |
2c4be4c0eb6f
(quail-get-current-str): Translate last raw character
Juri Linkov <juri@jurta.org>
parents:
66426
diff
changeset
|
1597 quail-current-key (1- len))))) |
2c4be4c0eb6f
(quail-get-current-str): Translate last raw character
Juri Linkov <juri@jurta.org>
parents:
66426
diff
changeset
|
1598 (substr1 (substring quail-current-key (1- len) len)) |
2c4be4c0eb6f
(quail-get-current-str): Translate last raw character
Juri Linkov <juri@jurta.org>
parents:
66426
diff
changeset
|
1599 (str1 (and (quail-deterministic) |
2c4be4c0eb6f
(quail-get-current-str): Translate last raw character
Juri Linkov <juri@jurta.org>
parents:
66426
diff
changeset
|
1600 (quail-get-current-str |
2c4be4c0eb6f
(quail-get-current-str): Translate last raw character
Juri Linkov <juri@jurta.org>
parents:
66426
diff
changeset
|
1601 1 |
2c4be4c0eb6f
(quail-get-current-str): Translate last raw character
Juri Linkov <juri@jurta.org>
parents:
66426
diff
changeset
|
1602 (quail-map-definition (quail-lookup-key |
2c4be4c0eb6f
(quail-get-current-str): Translate last raw character
Juri Linkov <juri@jurta.org>
parents:
66426
diff
changeset
|
1603 substr1 1)))))) |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1604 (if str |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1605 (concat (if (stringp str) str (char-to-string str)) |
66485
2c4be4c0eb6f
(quail-get-current-str): Translate last raw character
Juri Linkov <juri@jurta.org>
parents:
66426
diff
changeset
|
1606 (if str1 |
2c4be4c0eb6f
(quail-get-current-str): Translate last raw character
Juri Linkov <juri@jurta.org>
parents:
66426
diff
changeset
|
1607 (if (stringp str1) str1 (char-to-string str1)) |
2c4be4c0eb6f
(quail-get-current-str): Translate last raw character
Juri Linkov <juri@jurta.org>
parents:
66426
diff
changeset
|
1608 substr1))))))) |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1609 |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1610 (defvar quail-guidance-translations-starting-column 20) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1611 |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1612 (defun quail-update-current-translations (&optional relative-index) |
36465 | 1613 "Update `quail-current-translations'. |
1614 Make RELATIVE-INDEX the current translation." | |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1615 (let* ((indices (car quail-current-translations)) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1616 (cur (car indices)) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1617 (start (nth 1 indices)) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1618 (end (nth 2 indices))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1619 ;; Validate the index number of current translation. |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1620 (if (< cur 0) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1621 (setcar indices (setq cur 0)) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1622 (if (>= cur (length (cdr quail-current-translations))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1623 (setcar indices |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1624 (setq cur (1- (length (cdr quail-current-translations))))))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1625 |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1626 (if (or (null end) ; We have not yet calculated END. |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1627 (< cur start) ; We moved to the previous block. |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1628 (>= cur end)) ; We moved to the next block. |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1629 (let ((len (length (cdr quail-current-translations))) |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1630 (maxcol (- (window-width) |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1631 quail-guidance-translations-starting-column)) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1632 (block (nth 3 indices)) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1633 col idx width trans num-items blocks) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1634 (if (< cur start) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1635 ;; We must calculate from the head. |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1636 (setq start 0 block 0) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1637 (if end ; i.e. (>= cur end) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1638 (setq start end))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1639 (setq idx start col 0 end start num-items 0) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1640 ;; Loop until we hit the tail, or reach the block of CUR. |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1641 (while (and (< idx len) (>= cur end)) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1642 (if (= num-items 0) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1643 (setq start idx col 0 block (1+ block))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1644 (setq trans (aref (cdr quail-current-translations) idx)) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1645 (setq width (if (integerp trans) (char-width trans) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1646 (string-width trans))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1647 (setq col (+ col width 3) num-items (1+ num-items)) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1648 (if (and (> num-items 0) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1649 (or (>= col maxcol) (> num-items 10))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1650 (setq end idx num-items 0) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1651 (setq idx (1+ idx)))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1652 (setcar (nthcdr 3 indices) block) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1653 (if (>= idx len) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1654 (progn |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1655 ;; We hit the tail before reaching MAXCOL. |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1656 (setq end idx) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1657 (setcar (nthcdr 4 indices) block))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1658 (setcar (cdr indices) start) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1659 (setcar (nthcdr 2 indices) end))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1660 (if relative-index |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1661 (if (>= (+ start relative-index) end) |
31424 | 1662 (setcar indices (1- end)) |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1663 (setcar indices (+ start relative-index)))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1664 (setq quail-current-str |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1665 (aref (cdr quail-current-translations) (car indices))) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1666 (or (stringp quail-current-str) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1667 (setq quail-current-str (char-to-string quail-current-str))))) |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1668 |
17052 | 1669 (defun quail-translate-key () |
1670 "Translate the current key sequence according to the current Quail map. | |
1671 Return t if we can terminate the translation. | |
1672 Return nil if the current key sequence may be followed by more keys. | |
1673 Return number if we can't find any translation for the current key | |
1674 sequence. The number is the count of valid keys in the current | |
1675 sequence counting from the head." | |
1676 (let* ((len (length quail-current-key)) | |
1677 (map (quail-lookup-key quail-current-key len)) | |
1678 def ch) | |
1679 (if map | |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1680 (let ((def (quail-map-definition map))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1681 (setq quail-current-str (quail-get-current-str len def)) |
17052 | 1682 ;; Return t only if we can terminate the current translation. |
1683 (and | |
1684 ;; No alternative translations. | |
1685 (or (null (consp def)) (= (length (cdr def)) 1)) | |
1686 ;; No translation for the longer key. | |
1687 (null (cdr map)) | |
1688 ;; No shorter breaking point. | |
1689 (or (null (quail-maximum-shortest)) | |
1690 (< len 3) | |
1691 (null (quail-lookup-key quail-current-key (1- len))) | |
1692 (null (quail-lookup-key | |
1693 (substring quail-current-key -2 -1) 1))))) | |
1694 | |
1695 ;; There's no translation for the current key sequence. Before | |
1696 ;; giving up, we must check two possibilities. | |
1697 (cond ((and | |
1698 (quail-maximum-shortest) | |
36723
d80d936f6165
(quail-translate-key): Fix condition to
Kenichi Handa <handa@m17n.org>
parents:
36562
diff
changeset
|
1699 (>= len 3) |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1700 (setq def (quail-map-definition |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1701 (quail-lookup-key quail-current-key (- len 2)))) |
17052 | 1702 (quail-lookup-key (substring quail-current-key -2) 2)) |
1703 ;; Now the sequence is "...ABCD", which can be split into | |
1704 ;; "...AB" and "CD..." to get valid translation. | |
1705 ;; At first, get translation of "...AB". | |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1706 (setq quail-current-str (quail-get-current-str (- len 2) def)) |
17052 | 1707 ;; Then, return the length of "...AB". |
1708 (- len 2)) | |
1709 | |
18797
e9aa787f0154
(quail-translate-key): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
18642
diff
changeset
|
1710 ((and (> len 0) |
e9aa787f0154
(quail-translate-key): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
18642
diff
changeset
|
1711 (quail-lookup-key (substring quail-current-key 0 -1)) |
e9aa787f0154
(quail-translate-key): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
18642
diff
changeset
|
1712 quail-current-translations |
17052 | 1713 (not (quail-deterministic)) |
1714 (setq ch (aref quail-current-key (1- len))) | |
1715 (>= ch ?0) (<= ch ?9)) | |
1716 ;; A numeric key is entered to select a desirable translation. | |
1717 (setq quail-current-key (substring quail-current-key 0 -1)) | |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1718 ;; We treat key 1,2..,9,0 as specifying 0,1,..8,9. |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1719 (setq ch (if (= ch ?0) 9 (- ch ?1))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1720 (quail-update-current-translations ch) |
17052 | 1721 ;; And, we can terminate the current translation. |
1722 t) | |
1723 | |
66426
54f639048139
(quail-translate-key): If the input
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1724 ((quail-deterministic) |
54f639048139
(quail-translate-key): If the input
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1725 ;; No way to handle the last character in this context. |
54f639048139
(quail-translate-key): If the input
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1726 ;; Commit the longest successfully translated characters, and |
54f639048139
(quail-translate-key): If the input
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1727 ;; handle the remaining characters in a new loop. |
54f639048139
(quail-translate-key): If the input
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1728 (setq def nil) |
54f639048139
(quail-translate-key): If the input
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1729 (while (and (not def) (> len 1)) |
54f639048139
(quail-translate-key): If the input
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1730 (setq len (1- len)) |
54f639048139
(quail-translate-key): If the input
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1731 (setq def (quail-map-definition |
54f639048139
(quail-translate-key): If the input
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1732 (quail-lookup-key quail-current-key len)))) |
54f639048139
(quail-translate-key): If the input
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1733 (if def (setq quail-current-str |
54f639048139
(quail-translate-key): If the input
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1734 (quail-get-current-str len def)) |
54f639048139
(quail-translate-key): If the input
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1735 (setq quail-current-str (aref quail-current-key 0))) |
54f639048139
(quail-translate-key): If the input
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1736 len) |
54f639048139
(quail-translate-key): If the input
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1737 |
17052 | 1738 (t |
1739 ;; No way to handle the last character in this context. | |
51972
86e781de42e7
(quail-translate-key): Update quail-current-str correctly.
Kenichi Handa <handa@m17n.org>
parents:
50541
diff
changeset
|
1740 (setq def (quail-map-definition |
86e781de42e7
(quail-translate-key): Update quail-current-str correctly.
Kenichi Handa <handa@m17n.org>
parents:
50541
diff
changeset
|
1741 (quail-lookup-key quail-current-key (1- len)))) |
52049
520603204d7c
(quail-translate-key): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
51972
diff
changeset
|
1742 (if def (setq quail-current-str |
520603204d7c
(quail-translate-key): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
51972
diff
changeset
|
1743 (quail-get-current-str (1- len) def))) |
17052 | 1744 (1- len)))))) |
1745 | |
1746 (defun quail-next-translation () | |
1747 "Select next translation in the current batch of candidates." | |
1748 (interactive) | |
1749 (if quail-current-translations | |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1750 (let ((indices (car quail-current-translations))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1751 (if (= (1+ (car indices)) (length (cdr quail-current-translations))) |
19084
9f4b95f30c4f
(quail-next-translation): Call
Kenichi Handa <handa@m17n.org>
parents:
18983
diff
changeset
|
1752 ;; We are already at the tail. |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1753 (beep) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1754 (setcar indices (1+ (car indices))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1755 (quail-update-current-translations) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1756 (quail-update-translation nil))) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1757 (setq unread-command-events |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1758 (cons last-command-event unread-command-events)) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1759 (quail-terminate-translation))) |
17052 | 1760 |
1761 (defun quail-prev-translation () | |
1762 "Select previous translation in the current batch of candidates." | |
1763 (interactive) | |
1764 (if quail-current-translations | |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1765 (let ((indices (car quail-current-translations))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1766 (if (= (car indices) 0) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1767 ;; We are already at the head. |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1768 (beep) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1769 (setcar indices (1- (car indices))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1770 (quail-update-current-translations) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1771 (quail-update-translation nil))) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1772 (setq unread-command-events |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1773 (cons last-command-event unread-command-events)) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1774 (quail-terminate-translation))) |
17052 | 1775 |
1776 (defun quail-next-translation-block () | |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1777 "Select from the next block of translations." |
17052 | 1778 (interactive) |
1779 (if quail-current-translations | |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1780 (let* ((indices (car quail-current-translations)) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1781 (offset (- (car indices) (nth 1 indices)))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1782 (if (>= (nth 2 indices) (length (cdr quail-current-translations))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1783 ;; We are already at the last block. |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1784 (beep) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1785 (setcar indices (+ (nth 2 indices) offset)) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1786 (quail-update-current-translations) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1787 (quail-update-translation nil))) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1788 (setq unread-command-events |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1789 (cons last-command-event unread-command-events)) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1790 (quail-terminate-translation))) |
17052 | 1791 |
1792 (defun quail-prev-translation-block () | |
1793 "Select the previous batch of 10 translation candidates." | |
1794 (interactive) | |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1795 (if quail-current-translations |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1796 (let* ((indices (car quail-current-translations)) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1797 (offset (- (car indices) (nth 1 indices)))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1798 (if (= (nth 1 indices) 0) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1799 ;; We are already at the first block. |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1800 (beep) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1801 (setcar indices (1- (nth 1 indices))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1802 (quail-update-current-translations) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1803 (if (< (+ (nth 1 indices) offset) (nth 2 indices)) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1804 (progn |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1805 (setcar indices (+ (nth 1 indices) offset)) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1806 (quail-update-current-translations))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1807 (quail-update-translation nil))) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1808 (setq unread-command-events |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1809 (cons last-command-event unread-command-events)) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1810 (quail-terminate-translation))) |
17052 | 1811 |
1812 (defun quail-abort-translation () | |
1813 "Abort translation and delete the current Quail key sequence." | |
1814 (interactive) | |
1815 (quail-delete-region) | |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1816 (setq quail-current-str nil) |
17052 | 1817 (quail-terminate-translation)) |
1818 | |
1819 (defun quail-delete-last-char () | |
1820 "Delete the last input character from the current Quail key sequence." | |
1821 (interactive) | |
1822 (if (= (length quail-current-key) 1) | |
1823 (quail-abort-translation) | |
1824 (setq quail-current-key (substring quail-current-key 0 -1)) | |
26891
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
1825 (quail-delete-region) |
17052 | 1826 (quail-update-translation (quail-translate-key)))) |
1827 | |
1828 ;; For conversion mode. | |
1829 | |
23887
3a4d3e2418dc
(quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents:
23629
diff
changeset
|
1830 (defsubst quail-point-in-conversion-region () |
3a4d3e2418dc
(quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents:
23629
diff
changeset
|
1831 "Return non-nil value if the point is in conversion region of Quail mode." |
3a4d3e2418dc
(quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents:
23629
diff
changeset
|
1832 (let (start pos) |
3a4d3e2418dc
(quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents:
23629
diff
changeset
|
1833 (and (setq start (overlay-start quail-conv-overlay)) |
3a4d3e2418dc
(quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents:
23629
diff
changeset
|
1834 (>= (setq pos (point)) start) |
3a4d3e2418dc
(quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents:
23629
diff
changeset
|
1835 (<= pos (overlay-end quail-conv-overlay))))) |
3a4d3e2418dc
(quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents:
23629
diff
changeset
|
1836 |
17052 | 1837 (defun quail-conversion-backward-char () |
1838 (interactive) | |
1839 (if (<= (point) (overlay-start quail-conv-overlay)) | |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1840 (quail-error "Beginning of conversion region")) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1841 (setq quail-translating nil) |
17052 | 1842 (forward-char -1)) |
1843 | |
1844 (defun quail-conversion-forward-char () | |
1845 (interactive) | |
1846 (if (>= (point) (overlay-end quail-conv-overlay)) | |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1847 (quail-error "End of conversion region")) |
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1848 (setq quail-translating nil) |
17052 | 1849 (forward-char 1)) |
1850 | |
1851 (defun quail-conversion-beginning-of-region () | |
1852 (interactive) | |
22777
1b0761cbc15b
(quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents:
22765
diff
changeset
|
1853 (setq quail-translating nil) |
17052 | 1854 (goto-char (overlay-start quail-conv-overlay))) |
1855 | |
1856 (defun quail-conversion-end-of-region () | |
1857 (interactive) | |
22777
1b0761cbc15b
(quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents:
22765
diff
changeset
|
1858 (setq quail-translating nil) |
17052 | 1859 (goto-char (overlay-end quail-conv-overlay))) |
1860 | |
1861 (defun quail-conversion-delete-char () | |
1862 (interactive) | |
22777
1b0761cbc15b
(quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents:
22765
diff
changeset
|
1863 (setq quail-translating nil) |
17052 | 1864 (if (>= (point) (overlay-end quail-conv-overlay)) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
1865 (quail-error "End of conversion region")) |
17052 | 1866 (delete-char 1) |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1867 (let ((start (overlay-start quail-conv-overlay)) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1868 (end (overlay-end quail-conv-overlay))) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1869 (setq quail-conversion-str (buffer-substring start end)) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1870 (if (= start end) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1871 (setq quail-converting nil)))) |
17052 | 1872 |
22777
1b0761cbc15b
(quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents:
22765
diff
changeset
|
1873 (defun quail-conversion-delete-tail () |
1b0761cbc15b
(quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents:
22765
diff
changeset
|
1874 (interactive) |
1b0761cbc15b
(quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents:
22765
diff
changeset
|
1875 (if (>= (point) (overlay-end quail-conv-overlay)) |
1b0761cbc15b
(quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents:
22765
diff
changeset
|
1876 (quail-error "End of conversion region")) |
1b0761cbc15b
(quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents:
22765
diff
changeset
|
1877 (delete-region (point) (overlay-end quail-conv-overlay)) |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1878 (let ((start (overlay-start quail-conv-overlay)) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1879 (end (overlay-end quail-conv-overlay))) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1880 (setq quail-conversion-str (buffer-substring start end)) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1881 (if (= start end) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
1882 (setq quail-converting nil)))) |
22777
1b0761cbc15b
(quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents:
22765
diff
changeset
|
1883 |
17052 | 1884 (defun quail-conversion-backward-delete-char () |
1885 (interactive) | |
23887
3a4d3e2418dc
(quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents:
23629
diff
changeset
|
1886 (if (> (length quail-current-key) 0) |
3a4d3e2418dc
(quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents:
23629
diff
changeset
|
1887 (quail-delete-last-char) |
3a4d3e2418dc
(quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents:
23629
diff
changeset
|
1888 (if (<= (point) (overlay-start quail-conv-overlay)) |
3a4d3e2418dc
(quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents:
23629
diff
changeset
|
1889 (quail-error "Beginning of conversion region")) |
3a4d3e2418dc
(quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents:
23629
diff
changeset
|
1890 (delete-char -1) |
3a4d3e2418dc
(quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents:
23629
diff
changeset
|
1891 (let ((start (overlay-start quail-conv-overlay)) |
3a4d3e2418dc
(quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents:
23629
diff
changeset
|
1892 (end (overlay-end quail-conv-overlay))) |
3a4d3e2418dc
(quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents:
23629
diff
changeset
|
1893 (setq quail-conversion-str (buffer-substring start end)) |
3a4d3e2418dc
(quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents:
23629
diff
changeset
|
1894 (if (= start end) |
3a4d3e2418dc
(quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents:
23629
diff
changeset
|
1895 (setq quail-converting nil))))) |
17052 | 1896 |
1897 (defun quail-do-conversion (func &rest args) | |
1898 "Call FUNC to convert text in the current conversion region of Quail. | |
1899 Remaining args are for FUNC." | |
1900 (delete-overlay quail-overlay) | |
1901 (apply func args)) | |
1902 | |
1903 (defun quail-no-conversion () | |
1904 "Do no conversion of the current conversion region of Quail." | |
1905 (interactive) | |
22777
1b0761cbc15b
(quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents:
22765
diff
changeset
|
1906 (setq quail-converting nil)) |
17052 | 1907 |
1908 ;; Guidance, Completion, and Help buffer handlers. | |
1909 | |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1910 (defun quail-make-guidance-frame () |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1911 "Make a new one-line frame for Quail guidance." |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1912 (let* ((fparam (frame-parameters)) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1913 (top (cdr (assq 'top fparam))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1914 (border (cdr (assq 'border-width fparam))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1915 (internal-border (cdr (assq 'internal-border-width fparam))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1916 (newtop (- top |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1917 (frame-char-height) (* internal-border 2) (* border 2)))) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1918 (if (< newtop 0) |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1919 (setq newtop (+ top (frame-pixel-height) internal-border border))) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1920 (make-frame (append '((user-position . t) (height . 1) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1921 (minibuffer) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1922 (menu-bar-lines . 0) (tool-bar-lines . 0)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1923 (cons (cons 'top newtop) fparam))))) |
17052 | 1924 |
19432
4492653b04e8
(quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents:
19404
diff
changeset
|
1925 (defun quail-setup-completion-buf () |
36465 | 1926 "Setup Quail completion buffer." |
19432
4492653b04e8
(quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents:
19404
diff
changeset
|
1927 (unless (buffer-live-p quail-completion-buf) |
92784
a7f3b0c8e4a5
(quail-setup-completion-buf): Use set-buffer-multibyte rather than
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91327
diff
changeset
|
1928 (let ((mb enable-multibyte-characters)) |
a7f3b0c8e4a5
(quail-setup-completion-buf): Use set-buffer-multibyte rather than
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91327
diff
changeset
|
1929 (setq quail-completion-buf (get-buffer-create "*Quail Completions*")) |
a7f3b0c8e4a5
(quail-setup-completion-buf): Use set-buffer-multibyte rather than
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91327
diff
changeset
|
1930 (with-current-buffer quail-completion-buf |
a7f3b0c8e4a5
(quail-setup-completion-buf): Use set-buffer-multibyte rather than
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91327
diff
changeset
|
1931 (set-buffer-multibyte mb) |
a7f3b0c8e4a5
(quail-setup-completion-buf): Use set-buffer-multibyte rather than
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91327
diff
changeset
|
1932 (setq buffer-read-only t) |
a7f3b0c8e4a5
(quail-setup-completion-buf): Use set-buffer-multibyte rather than
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91327
diff
changeset
|
1933 (setq quail-overlay (make-overlay (point-min) (point-min))) |
a7f3b0c8e4a5
(quail-setup-completion-buf): Use set-buffer-multibyte rather than
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91327
diff
changeset
|
1934 (overlay-put quail-overlay 'face 'highlight))))) |
19432
4492653b04e8
(quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents:
19404
diff
changeset
|
1935 |
19849
1c5164d81426
(quail-simple): New function.
Kenichi Handa <handa@m17n.org>
parents:
19844
diff
changeset
|
1936 (defun quail-require-guidance-buf () |
78484
edc666d07b2c
Replace `iff' in doc-strings and comments.
Glenn Morris <rgm@gnu.org>
parents:
78310
diff
changeset
|
1937 "Return t if the current Quail package requires showing guidance buffer." |
19849
1c5164d81426
(quail-simple): New function.
Kenichi Handa <handa@m17n.org>
parents:
19844
diff
changeset
|
1938 (and input-method-verbose-flag |
20160
b8234ea503cd
(quail-require-guidance-buf): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
19987
diff
changeset
|
1939 (if (eq input-method-verbose-flag 'default) |
b8234ea503cd
(quail-require-guidance-buf): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
19987
diff
changeset
|
1940 (not (and (eq (selected-window) (minibuffer-window)) |
b8234ea503cd
(quail-require-guidance-buf): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
19987
diff
changeset
|
1941 (quail-simple))) |
b8234ea503cd
(quail-require-guidance-buf): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
19987
diff
changeset
|
1942 (if (eq input-method-verbose-flag 'complex-only) |
b8234ea503cd
(quail-require-guidance-buf): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
19987
diff
changeset
|
1943 (not (quail-simple)) |
b8234ea503cd
(quail-require-guidance-buf): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
19987
diff
changeset
|
1944 t)))) |
19849
1c5164d81426
(quail-simple): New function.
Kenichi Handa <handa@m17n.org>
parents:
19844
diff
changeset
|
1945 |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1946 |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1947 ;; Quail specific version of minibuffer-message. It displays STRING |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1948 ;; with timeout 1000000 seconds instead of two seconds. |
17052 | 1949 |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1950 (defun quail-minibuffer-message (string) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1951 (message nil) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1952 (let ((point-max (point-max)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1953 (inhibit-quit t)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1954 (save-excursion |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1955 (goto-char point-max) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1956 (insert string)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1957 (sit-for 1000000) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1958 (delete-region point-max (point-max)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1959 (when quit-flag |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1960 (setq quit-flag nil |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1961 unread-command-events '(7))))) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1962 |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1963 (defun quail-show-guidance () |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1964 "Display a guidance for Quail input method in some window. |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1965 The guidance is normally displayed at the echo area, |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1966 or in a newly created frame (if the current buffer is a |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1967 minibuffer and the selected frame has no other windows)." |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1968 ;; At first, setup a buffer for completion. |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1969 (quail-setup-completion-buf) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1970 (bury-buffer quail-completion-buf) |
23599
ab69e7987be0
(quail-start-translation): Handle
Kenichi Handa <handa@m17n.org>
parents:
23401
diff
changeset
|
1971 |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1972 ;; Then, show the guidance. |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1973 (when (and (quail-require-guidance-buf) |
59066
c979627ce50b
(quail-start-translation): Fix prompt
Kenichi Handa <handa@m17n.org>
parents:
55549
diff
changeset
|
1974 (not input-method-use-echo-area) |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1975 (null unread-command-events) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1976 (null unread-post-input-method-events)) |
59066
c979627ce50b
(quail-start-translation): Fix prompt
Kenichi Handa <handa@m17n.org>
parents:
55549
diff
changeset
|
1977 (if (eq (selected-window) (minibuffer-window)) |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1978 (if (eq (minibuffer-window) (frame-root-window)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1979 ;; Use another frame. It is sure that we are using some |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1980 ;; window system. |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1981 (let ((guidance quail-guidance-str)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1982 (or (frame-live-p quail-guidance-frame) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1983 (setq quail-guidance-frame |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1984 (quail-make-guidance-frame))) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1985 (or (buffer-live-p quail-guidance-buf) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1986 (setq quail-guidance-buf |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1987 (get-buffer-create " *Quail-guidance*"))) |
92784
a7f3b0c8e4a5
(quail-setup-completion-buf): Use set-buffer-multibyte rather than
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91327
diff
changeset
|
1988 (with-current-buffer quail-guidance-buf |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1989 (erase-buffer) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1990 (setq cursor-type nil) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1991 (insert guidance)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1992 (set-window-buffer (frame-root-window quail-guidance-frame) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1993 quail-guidance-buf) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1994 (quail-minibuffer-message |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1995 (format " [%s]" current-input-method-title))) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1996 ;; Show the guidance in the next line of the currrent |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1997 ;; minibuffer. |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1998 (quail-minibuffer-message |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
1999 (format " [%s]\n%s" |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2000 current-input-method-title quail-guidance-str))) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2001 ;; Show the guidance in echo area without logging. |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2002 (let ((message-log-max nil)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2003 (message "%s" quail-guidance-str))))) |
17052 | 2004 |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2005 (defun quail-hide-guidance () |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2006 "Hide the Quail guidance." |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2007 (when (and (quail-require-guidance-buf) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2008 (or (eq (selected-window) (minibuffer-window)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2009 input-method-use-echo-area) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2010 (eq (minibuffer-window) (frame-root-window))) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2011 ;; We are using another frame for the guidance. |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2012 (if (frame-live-p quail-guidance-frame) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2013 (delete-frame quail-guidance-frame)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2014 (if (buffer-live-p quail-guidance-buf) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2015 (kill-buffer quail-guidance-buf)))) |
17052 | 2016 |
2017 (defun quail-update-guidance () | |
2018 "Update the Quail guidance buffer and completion buffer (if displayed now)." | |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2019 ;; Update the guidance string. |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2020 (when (quail-require-guidance-buf) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2021 (let ((guidance (quail-guidance))) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2022 (cond ((or (eq guidance t) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2023 (consp guidance)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2024 ;; Show the current possible translations. |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2025 (setq quail-guidance-str |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2026 (quail-get-translations))) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2027 ((null guidance) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2028 ;; Show the current input keys. |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2029 (let ((key quail-current-key)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2030 (if (quail-kbd-translate) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2031 (setq key (quail-keyseq-translate key))) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2032 (setq quail-guidance-str (if (stringp key) key (string key))))) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2033 (t |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2034 (setq quail-guidance-str " "))))) |
17052 | 2035 |
2036 ;; Update completion buffer if displayed now. We highlight the | |
2037 ;; selected candidate string in *Completion* buffer if any. | |
2038 (let ((win (get-buffer-window quail-completion-buf)) | |
2039 key str pos) | |
2040 (if win | |
2041 (save-excursion | |
2042 (setq str (if (stringp quail-current-str) | |
2043 quail-current-str | |
2044 (if (numberp quail-current-str) | |
2045 (char-to-string quail-current-str))) | |
2046 key quail-current-key) | |
2047 (set-buffer quail-completion-buf) | |
2048 (goto-char (point-min)) | |
2049 (if (null (search-forward (concat " " key ":") nil t)) | |
2050 (delete-overlay quail-overlay) | |
2051 (setq pos (point)) | |
2052 (if (and str (search-forward (concat "." str) nil t)) | |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2053 (move-overlay quail-overlay (1+ (match-beginning 0)) (point)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2054 (move-overlay quail-overlay (match-beginning 0) (point))) |
17052 | 2055 ;; Now POS points end of KEY and (point) points end of STR. |
2056 (if (pos-visible-in-window-p (point) win) | |
2057 ;; STR is already visible. | |
2058 nil | |
2059 ;; We want to make both KEY and STR visible, but if the | |
2060 ;; window is too short, make at least STR visible. | |
2061 (setq pos (progn (point) (goto-char pos))) | |
2062 (beginning-of-line) | |
2063 (set-window-start win (point)) | |
2064 (if (not (pos-visible-in-window-p pos win)) | |
2065 (set-window-start win pos)) | |
2066 )))))) | |
2067 | |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2068 (defun quail-get-translations () |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2069 "Return a string containing the current possible translations." |
90690
9a11c329a57b
(quail-get-translations): Make
Kenichi Handa <handa@m17n.org>
parents:
90665
diff
changeset
|
2070 (or (multibyte-string-p quail-current-key) |
9a11c329a57b
(quail-get-translations): Make
Kenichi Handa <handa@m17n.org>
parents:
90665
diff
changeset
|
2071 (setq quail-current-key (string-to-multibyte quail-current-key))) |
54999
894e3fd388c2
(quail-lookup-key): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
54997
diff
changeset
|
2072 (let ((map (quail-lookup-key quail-current-key nil t)) |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2073 (str (copy-sequence quail-current-key))) |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
2074 (if quail-current-translations |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
2075 (quail-update-current-translations)) |
17052 | 2076 |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2077 ;; Show the current key. |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2078 (let ((guidance (quail-guidance))) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2079 (if (listp guidance) |
90690
9a11c329a57b
(quail-get-translations): Make
Kenichi Handa <handa@m17n.org>
parents:
90665
diff
changeset
|
2080 ;; We must replace the typed key with the specified PROMPT-KEY. |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2081 (dotimes (i (length str)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2082 (let ((prompt-key (cdr (assoc (aref str i) guidance)))) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2083 (if prompt-key |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2084 (aset str i (aref prompt-key 0))))))) |
17052 | 2085 |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
2086 ;; Show followable keys. |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2087 (if (and (> (length quail-current-key) 0) (cdr map)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2088 (setq str |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2089 (format "%s[%s]" |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2090 str |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2091 (concat (sort (mapcar (function (lambda (x) (car x))) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2092 (cdr map)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2093 '<))))) |
17052 | 2094 ;; Show list of translations. |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2095 (if (and quail-current-translations |
26891
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2096 (not (quail-deterministic))) |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2097 (let* ((indices (car quail-current-translations)) |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
2098 (cur (car indices)) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
2099 (start (nth 1 indices)) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
2100 (end (nth 2 indices)) |
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
2101 (idx start)) |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2102 (if (< (string-width str) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2103 (- quail-guidance-translations-starting-column 7)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2104 (setq str |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2105 (concat str |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2106 (make-string |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2107 (- quail-guidance-translations-starting-column |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2108 7 (string-width str)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2109 32)))) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2110 (setq str (format "%s(%02d/%s)" |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2111 str (nth 3 indices) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2112 (if (nth 4 indices) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2113 (format "%02d" (nth 4 indices)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2114 "??"))) |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
2115 (while (< idx end) |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2116 (let ((len (length str)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2117 (trans (aref (cdr quail-current-translations) idx))) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2118 (or (stringp trans) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2119 (setq trans (string trans))) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2120 (setq str (format "%s %d.%s" |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2121 str |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2122 (if (= (- idx start) 9) 0 |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2123 (1+ (- idx start))) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2124 trans)) |
18556
99e8ae18137f
(quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
2125 (if (= idx cur) |
50541
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2126 (put-text-property (+ len 3) (length str) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2127 'face 'highlight str)) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2128 (setq idx (1+ idx)))))) |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2129 |
ad343b711d5e
* international/quail.el (quail-guidance-str)
Kenichi Handa <handa@m17n.org>
parents:
50088
diff
changeset
|
2130 str)) |
17052 | 2131 |
26891
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2132 (defvar quail-completion-max-depth 5 |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2133 "The maximum depth of Quail completion list.") |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2134 |
17052 | 2135 (defun quail-completion () |
2136 "List all completions for the current key. | |
2137 All possible translations of the current key and whole possible longer keys | |
26891
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2138 are shown (at most to the depth specified `quail-completion-max-depth')." |
17052 | 2139 (interactive) |
19432
4492653b04e8
(quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents:
19404
diff
changeset
|
2140 (quail-setup-completion-buf) |
22124
10b3c1cd7f18
(quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents:
21881
diff
changeset
|
2141 (let ((win (get-buffer-window quail-completion-buf 'visible)) |
10b3c1cd7f18
(quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents:
21881
diff
changeset
|
2142 (key quail-current-key) |
54999
894e3fd388c2
(quail-lookup-key): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
54997
diff
changeset
|
2143 (map (quail-lookup-key quail-current-key nil t)) |
22124
10b3c1cd7f18
(quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents:
21881
diff
changeset
|
2144 (require-update nil)) |
40667
589781f0ee38
(quail-help): Use `help-buffer' and move `help-setup-xref' to beginning.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39143
diff
changeset
|
2145 (with-current-buffer quail-completion-buf |
22124
10b3c1cd7f18
(quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents:
21881
diff
changeset
|
2146 (if (and win |
10b3c1cd7f18
(quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents:
21881
diff
changeset
|
2147 (equal key quail-current-key) |
10b3c1cd7f18
(quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents:
21881
diff
changeset
|
2148 (eq last-command 'quail-completion)) |
10b3c1cd7f18
(quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents:
21881
diff
changeset
|
2149 ;; The window for Quail completion buffer has already been |
10b3c1cd7f18
(quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents:
21881
diff
changeset
|
2150 ;; shown. We just scroll it appropriately. |
10b3c1cd7f18
(quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents:
21881
diff
changeset
|
2151 (if (pos-visible-in-window-p (point-max) win) |
10b3c1cd7f18
(quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents:
21881
diff
changeset
|
2152 (set-window-start win (point-min)) |
47591
5d173712d50a
(quail-completion): Be sure to scroll quail-completion-buf.
Kenichi Handa <handa@m17n.org>
parents:
45907
diff
changeset
|
2153 (let ((other-window-scroll-buffer quail-completion-buf) |
5d173712d50a
(quail-completion): Be sure to scroll quail-completion-buf.
Kenichi Handa <handa@m17n.org>
parents:
45907
diff
changeset
|
2154 ;; This nil binding is necessary to surely scroll |
5d173712d50a
(quail-completion): Be sure to scroll quail-completion-buf.
Kenichi Handa <handa@m17n.org>
parents:
45907
diff
changeset
|
2155 ;; quail-completion-buf. |
5d173712d50a
(quail-completion): Be sure to scroll quail-completion-buf.
Kenichi Handa <handa@m17n.org>
parents:
45907
diff
changeset
|
2156 (minibuffer-scroll-window nil)) |
22124
10b3c1cd7f18
(quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents:
21881
diff
changeset
|
2157 (scroll-other-window))) |
10b3c1cd7f18
(quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents:
21881
diff
changeset
|
2158 (setq quail-current-key key) |
76616
9d0123cc9c1d
(quail-setup-completion-buf): Make the
Kenichi Handa <handa@m17n.org>
parents:
75602
diff
changeset
|
2159 (let ((inhibit-read-only t)) |
9d0123cc9c1d
(quail-setup-completion-buf): Make the
Kenichi Handa <handa@m17n.org>
parents:
75602
diff
changeset
|
2160 (erase-buffer) |
9d0123cc9c1d
(quail-setup-completion-buf): Make the
Kenichi Handa <handa@m17n.org>
parents:
75602
diff
changeset
|
2161 (insert "Possible completion and corresponding characters are:\n") |
9d0123cc9c1d
(quail-setup-completion-buf): Make the
Kenichi Handa <handa@m17n.org>
parents:
75602
diff
changeset
|
2162 (quail-completion-1 key map 1) |
9d0123cc9c1d
(quail-setup-completion-buf): Make the
Kenichi Handa <handa@m17n.org>
parents:
75602
diff
changeset
|
2163 (set-buffer-modified-p nil)) |
22124
10b3c1cd7f18
(quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents:
21881
diff
changeset
|
2164 (goto-char (point-min)) |
10b3c1cd7f18
(quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents:
21881
diff
changeset
|
2165 (display-buffer (current-buffer)) |
10b3c1cd7f18
(quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents:
21881
diff
changeset
|
2166 (setq require-update t))) |
10b3c1cd7f18
(quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents:
21881
diff
changeset
|
2167 (if require-update |
10b3c1cd7f18
(quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents:
21881
diff
changeset
|
2168 (quail-update-guidance))) |
10b3c1cd7f18
(quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents:
21881
diff
changeset
|
2169 (setq this-command 'quail-completion)) |
17052 | 2170 |
2171 (defun quail-completion-1 (key map indent) | |
36465 | 2172 "List all completions of KEY in MAP with indentation INDENT." |
17052 | 2173 (let ((len (length key))) |
2174 (indent-to indent) | |
2175 (insert key ":") | |
2176 (if (and (symbolp map) (fboundp map)) | |
2177 (setq map (funcall map key len))) | |
2178 (if (car map) | |
2179 (quail-completion-list-translations map key (+ indent len 1)) | |
2180 (insert " -\n")) | |
2181 (setq indent (+ indent 2)) | |
26891
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2182 (if (and (cdr map) (< (/ (1- indent) 2) quail-completion-max-depth)) |
17052 | 2183 (let ((l (cdr map)) |
2184 (newkey (make-string (1+ len) 0)) | |
2185 (i 0)) | |
26891
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2186 (if (functionp l) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2187 (setq l (funcall l))) |
17052 | 2188 ;; Set KEY in the first LEN characters of NEWKEY. |
2189 (while (< i len) | |
2190 (aset newkey i (aref key i)) | |
2191 (setq i (1+ i))) | |
39024
3fa2820b45e2
(quail-completion-1): Reverse
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
2192 (setq l (reverse l)) |
17052 | 2193 (while l ; L = ((CHAR . DEFN) ....) ; |
2194 (aset newkey len (car (car l))) | |
2195 (quail-completion-1 newkey (cdr (car l)) indent) | |
2196 (setq l (cdr l))))))) | |
2197 | |
2198 (defun quail-completion-list-translations (map key indent) | |
36465 | 2199 "List all possible translations of KEY in Quail MAP with indentation INDENT." |
20169
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2200 (let (beg (translations |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
2201 (quail-get-translation (car map) key (length key)))) |
17052 | 2202 (if (integerp translations) |
20169
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2203 (progn |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2204 (insert "(1/1) 1.") |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2205 ;; Endow the character `translations' with `mouse-face' text |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2206 ;; property to enable `mouse-2' completion. |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2207 (setq beg (point)) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2208 (insert translations) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2209 (put-text-property beg (point) 'mouse-face 'highlight) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2210 (insert "\n")) |
17052 | 2211 ;; We need only vector part. |
2212 (setq translations (cdr translations)) | |
2213 ;; Insert every 10 elements with indices in a line. | |
2214 (let ((len (length translations)) | |
2215 (i 0) | |
2216 num) | |
2217 (while (< i len) | |
19944
e274dc2d61f1
(quail-completion-list-translations): Fix
Richard M. Stallman <rms@gnu.org>
parents:
19934
diff
changeset
|
2218 (when (zerop (% i 10)) |
e274dc2d61f1
(quail-completion-list-translations): Fix
Richard M. Stallman <rms@gnu.org>
parents:
19934
diff
changeset
|
2219 (when (>= i 10) |
20169
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2220 (insert "\n") |
19944
e274dc2d61f1
(quail-completion-list-translations): Fix
Richard M. Stallman <rms@gnu.org>
parents:
19934
diff
changeset
|
2221 (indent-to indent)) |
e274dc2d61f1
(quail-completion-list-translations): Fix
Richard M. Stallman <rms@gnu.org>
parents:
19934
diff
changeset
|
2222 (insert (format "(%d/%d)" (1+ (/ i 10)) (1+ (/ len 10))))) |
17052 | 2223 ;; We show the last digit of FROM while converting |
2224 ;; 0,1,..,9 to 1,2,..,0. | |
19944
e274dc2d61f1
(quail-completion-list-translations): Fix
Richard M. Stallman <rms@gnu.org>
parents:
19934
diff
changeset
|
2225 (insert (format " %d." (% (1+ i) 10))) |
20169
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2226 (setq beg (point)) |
17052 | 2227 (insert (aref translations i)) |
20169
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2228 ;; Passing the mouse over a character will highlight. |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2229 (put-text-property beg (point) 'mouse-face 'highlight) |
17052 | 2230 (setq i (1+ i))) |
20169
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2231 (insert "\n"))))) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2232 |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2233 (defun quail-mouse-choose-completion (event) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2234 "Click on an alternative in the `*Quail Completions*' buffer to choose it." |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2235 (interactive "e") |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2236 ;; This function is an exact copy of the mouse.el function |
36465 | 2237 ;; `mouse-choose-completion' except that we: |
20169
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2238 ;; 1) add two lines from `choose-completion' in simple.el to give |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2239 ;; the `mouse-2' click a little more leeway. |
42048
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
2240 ;; 2) don't bury *Quail Completions* buffer, so comment a section, and |
20169
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2241 ;; 3) delete/terminate the current quail selection here. |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2242 ;; Give temporary modes such as isearch a chance to turn off. |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2243 (run-hooks 'mouse-leave-buffer-hook) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2244 (let ((buffer (window-buffer)) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2245 choice |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2246 base-size) |
40667
589781f0ee38
(quail-help): Use `help-buffer' and move `help-setup-xref' to beginning.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39143
diff
changeset
|
2247 (with-current-buffer (window-buffer (posn-window (event-start event))) |
20169
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2248 (if completion-reference-buffer |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2249 (setq buffer completion-reference-buffer)) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2250 (setq base-size completion-base-size) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2251 (save-excursion |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2252 (goto-char (posn-point (event-start event))) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2253 (let (beg end) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2254 (if (and (not (eobp)) (get-text-property (point) 'mouse-face)) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2255 (setq end (point) beg (1+ (point)))) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2256 (if (and (not (bobp)) (get-text-property (1- (point)) 'mouse-face)) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2257 (setq end (1- (point)) beg (point))) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2258 (if (null beg) |
22765
7cf2c3800e8f
(quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents:
22124
diff
changeset
|
2259 (quail-error "No completion here")) |
20169
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2260 (setq beg (previous-single-property-change beg 'mouse-face)) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2261 (setq end (or (next-single-property-change end 'mouse-face) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2262 (point-max))) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2263 (setq choice (buffer-substring beg end))))) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2264 ; (let ((owindow (selected-window))) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2265 ; (select-window (posn-window (event-start event))) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2266 ; (if (and (one-window-p t 'selected-frame) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2267 ; (window-dedicated-p (selected-window))) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2268 ; ;; This is a special buffer's frame |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2269 ; (iconify-frame (selected-frame)) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2270 ; (or (window-dedicated-p (selected-window)) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2271 ; (bury-buffer))) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2272 ; (select-window owindow)) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2273 (quail-delete-region) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2274 (quail-choose-completion-string choice buffer base-size) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2275 (quail-terminate-translation))) |
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2276 |
42048
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
2277 ;; BASE-SIZE here is for compatibility with an (unused) arg of a |
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
2278 ;; previous implementation. |
20169
d938bdf82445
(quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents:
20160
diff
changeset
|
2279 (defun quail-choose-completion-string (choice &optional buffer base-size) |
42048
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
2280 (setq quail-current-str choice) |
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
2281 (choose-completion-string choice buffer)) |
17052 | 2282 |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2283 (defun quail-build-decode-map (map-list key decode-map num |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2284 &optional maxnum ignores) |
36465 | 2285 "Build a decoding map. |
2286 Accumulate in the cdr part of DECODE-MAP all pairs of key sequences | |
2287 vs the corresponding translations defined in the Quail map | |
2288 specified by the first element MAP-LIST. Each pair has the form | |
2289 \(KEYSEQ . TRANSLATION). DECODE-MAP should have the form | |
2290 \(decode-map . ALIST), where ALIST is an alist of length NUM. KEY | |
2291 is a key sequence to reach MAP. | |
2292 Optional 5th arg MAXNUM limits the number of accumulated pairs. | |
2293 Optional 6th arg IGNORES is a list of translations to ignore." | |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2294 (let* ((map (car map-list)) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2295 (translation (quail-get-translation (car map) key (length key))) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2296 elt) |
31424 | 2297 (cond ((integerp translation) |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2298 ;; Accept only non-ASCII chars not listed in IGNORES. |
31424 | 2299 (when (and (> translation 255) (not (memq translation ignores))) |
2300 (setcdr decode-map | |
2301 (cons (cons key translation) (cdr decode-map))) | |
2302 (setq num (1+ num)))) | |
2303 ((consp translation) | |
2304 (setq translation (cdr translation)) | |
2305 (let ((multibyte nil)) | |
2306 (mapc (function (lambda (x) | |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2307 ;; Accept only non-ASCII chars not |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2308 ;; listed in IGNORES. |
31424 | 2309 (if (and (if (integerp x) (> x 255) |
94329
22f1fdbf5cde
(quail-build-decode-map): Avoid string-bytes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92785
diff
changeset
|
2310 (string-match-p "[^[:ascii:]]" x)) |
31424 | 2311 (not (member x ignores))) |
2312 (setq multibyte t)))) | |
2313 translation) | |
2314 (when multibyte | |
2315 (setcdr decode-map | |
2316 (cons (cons key translation) (cdr decode-map))) | |
2317 (setq num (+ num (length translation))))))) | |
2318 (if (and maxnum (> num maxnum)) | |
2319 (- num) | |
2320 (setq map (cdr map)) | |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2321 ;; Recursively check the deeper map. |
31424 | 2322 (while (and map (>= num 0)) |
2323 (setq elt (car map) map (cdr map)) | |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2324 (when (and (integerp (car elt)) (consp (cdr elt)) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2325 (not (memq (cdr elt) map-list))) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2326 (setq num (quail-build-decode-map (cons (cdr elt) map-list) |
31424 | 2327 (format "%s%c" key (car elt)) |
2328 decode-map num maxnum ignores)))) | |
2329 num))) | |
2330 | |
2331 (defun quail-insert-decode-map (decode-map) | |
36465 | 2332 "Insert pairs of key sequences vs the corresponding translations. |
2333 These are stored in DECODE-MAP using the concise format. DECODE-MAP | |
2334 should be made by `quail-build-decode-map' (which see)." | |
31424 | 2335 (setq decode-map |
2336 (sort (cdr decode-map) | |
2337 (function (lambda (x y) | |
2338 (setq x (car x) y (car y)) | |
2339 (or (> (length x) (length y)) | |
2340 (and (= (length x) (length y)) | |
2341 (not (string< x y)))))))) | |
54520
1fb2ee02e2aa
(quail-insert-decode-map): Use window-width instead of frame-width.
Juri Linkov <juri@jurta.org>
parents:
53031
diff
changeset
|
2342 (let ((window-width (window-width (get-buffer-window |
1fb2ee02e2aa
(quail-insert-decode-map): Use window-width instead of frame-width.
Juri Linkov <juri@jurta.org>
parents:
53031
diff
changeset
|
2343 (current-buffer) 'visible))) |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2344 (single-key-width 3) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2345 (single-trans-width 4) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2346 (multiple-key-width 3) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2347 (single-list nil) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2348 (multiple-list nil) |
31424 | 2349 elt trans width pos cols rows col row str col-width) |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2350 ;; Divide the elements of decoding map into single ones (i.e. the |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2351 ;; one that has single translation) and multibyte ones (i.e. the |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2352 ;; one that has multiple translations). |
31424 | 2353 (while decode-map |
2354 (setq elt (car decode-map) decode-map (cdr decode-map) | |
2355 trans (cdr elt)) | |
2356 (if (and (vectorp trans) (= (length trans) 1)) | |
2357 (setq trans (aref trans 0))) | |
2358 (if (vectorp trans) | |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2359 (setq multiple-list (cons elt multiple-list)) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2360 (setq single-list (cons (cons (car elt) trans) single-list) |
31424 | 2361 width (if (stringp trans) (string-width trans) |
2362 (char-width trans))) | |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2363 (if (> width single-trans-width) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2364 (setq single-trans-width width))) |
31424 | 2365 (setq width (length (car elt))) |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2366 (if (> width single-key-width) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2367 (setq single-key-width width)) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2368 (if (> width multiple-key-width) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2369 (setq multiple-key-width width))) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2370 (when single-list |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2371 (setq col-width (+ single-key-width 1 single-trans-width 1) |
54520
1fb2ee02e2aa
(quail-insert-decode-map): Use window-width instead of frame-width.
Juri Linkov <juri@jurta.org>
parents:
53031
diff
changeset
|
2372 cols (/ window-width col-width) |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2373 rows (/ (length single-list) cols)) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2374 (if (> (% (length single-list) cols) 0) |
31424 | 2375 (setq rows (1+ rows))) |
2376 (insert "key") | |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2377 (indent-to (1+ single-key-width)) |
31424 | 2378 (insert "char") |
2379 (indent-to (1+ col-width)) | |
2380 (insert "[type a key sequence to insert the corresponding character]\n") | |
2381 (setq pos (point)) | |
2382 (insert-char ?\n (+ rows 2)) | |
2383 (goto-char pos) | |
2384 (setq col (- col-width) row 0) | |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2385 (while single-list |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2386 (setq elt (car single-list) single-list (cdr single-list)) |
31424 | 2387 (when (= (% row rows) 0) |
2388 (goto-char pos) | |
2389 (setq col (+ col col-width)) | |
2390 (move-to-column col t) | |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2391 (insert-char ?- single-key-width) |
31424 | 2392 (insert ? ) |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2393 (insert-char ?- single-trans-width) |
31424 | 2394 (forward-line 1)) |
2395 (move-to-column col t) | |
2396 (insert (car elt)) | |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2397 (indent-to (+ col single-key-width 1)) |
31424 | 2398 (insert (cdr elt)) |
2399 (forward-line 1) | |
2400 (setq row (1+ row))) | |
2401 (goto-char (point-max))) | |
2402 | |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2403 (when multiple-list |
31424 | 2404 (insert "key") |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2405 (indent-to (1+ multiple-key-width)) |
31424 | 2406 (insert "character(s) [type a key (sequence) and select one from the list]\n") |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2407 (insert-char ?- multiple-key-width) |
31424 | 2408 (insert " ------------\n") |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2409 (while multiple-list |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2410 (setq elt (car multiple-list) multiple-list (cdr multiple-list)) |
31424 | 2411 (insert (car elt)) |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2412 (indent-to multiple-key-width) |
31424 | 2413 (if (vectorp (cdr elt)) |
2414 (mapc (function | |
2415 (lambda (x) | |
2416 (let ((width (if (integerp x) (char-width x) | |
2417 (string-width x)))) | |
54520
1fb2ee02e2aa
(quail-insert-decode-map): Use window-width instead of frame-width.
Juri Linkov <juri@jurta.org>
parents:
53031
diff
changeset
|
2418 (when (> (+ (current-column) 1 width) window-width) |
31424 | 2419 (insert "\n") |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2420 (indent-to multiple-key-width)) |
31424 | 2421 (insert " " x)))) |
2422 (cdr elt)) | |
2423 (insert " " (cdr elt))) | |
2424 (insert ?\n)) | |
2425 (insert ?\n)))) | |
2426 | |
82284
65186e6b080e
Wrap (require 'help-mode) by
Kenichi Handa <handa@m17n.org>
parents:
78310
diff
changeset
|
2427 (defun quail-help-init () |
65186e6b080e
Wrap (require 'help-mode) by
Kenichi Handa <handa@m17n.org>
parents:
78310
diff
changeset
|
2428 (unless (featurep 'help-mode) |
65186e6b080e
Wrap (require 'help-mode) by
Kenichi Handa <handa@m17n.org>
parents:
78310
diff
changeset
|
2429 (require 'help-mode) |
65186e6b080e
Wrap (require 'help-mode) by
Kenichi Handa <handa@m17n.org>
parents:
78310
diff
changeset
|
2430 (define-button-type 'quail-keyboard-layout-button |
65186e6b080e
Wrap (require 'help-mode) by
Kenichi Handa <handa@m17n.org>
parents:
78310
diff
changeset
|
2431 :supertype 'help-xref |
65186e6b080e
Wrap (require 'help-mode) by
Kenichi Handa <handa@m17n.org>
parents:
78310
diff
changeset
|
2432 'help-function '(lambda (layout) |
65186e6b080e
Wrap (require 'help-mode) by
Kenichi Handa <handa@m17n.org>
parents:
78310
diff
changeset
|
2433 (help-setup-xref `(quail-keyboard-layout-button ,layout) |
65186e6b080e
Wrap (require 'help-mode) by
Kenichi Handa <handa@m17n.org>
parents:
78310
diff
changeset
|
2434 nil) |
65186e6b080e
Wrap (require 'help-mode) by
Kenichi Handa <handa@m17n.org>
parents:
78310
diff
changeset
|
2435 (quail-show-keyboard-layout layout)) |
65186e6b080e
Wrap (require 'help-mode) by
Kenichi Handa <handa@m17n.org>
parents:
78310
diff
changeset
|
2436 'help-echo (purecopy "mouse-2, RET: show keyboard layout")) |
41506
f2e8fb1e1928
(quail-keyboard-layout-button): Define button type.
Richard M. Stallman <rms@gnu.org>
parents:
40766
diff
changeset
|
2437 |
82284
65186e6b080e
Wrap (require 'help-mode) by
Kenichi Handa <handa@m17n.org>
parents:
78310
diff
changeset
|
2438 (define-button-type 'quail-keyboard-customize-button |
65186e6b080e
Wrap (require 'help-mode) by
Kenichi Handa <handa@m17n.org>
parents:
78310
diff
changeset
|
2439 :supertype 'help-customize-variable |
65186e6b080e
Wrap (require 'help-mode) by
Kenichi Handa <handa@m17n.org>
parents:
78310
diff
changeset
|
2440 'help-echo (purecopy "mouse-2, RET: customize keyboard layout")))) |
41506
f2e8fb1e1928
(quail-keyboard-layout-button): Define button type.
Richard M. Stallman <rms@gnu.org>
parents:
40766
diff
changeset
|
2441 |
31247
e49bf88ce1f8
(quail-help): New arg PACKAGE. Hyperlinks to mule related items.
Kenichi Handa <handa@m17n.org>
parents:
31217
diff
changeset
|
2442 (defun quail-help (&optional package) |
e49bf88ce1f8
(quail-help): New arg PACKAGE. Hyperlinks to mule related items.
Kenichi Handa <handa@m17n.org>
parents:
31217
diff
changeset
|
2443 "Show brief description of the current Quail package. |
40667
589781f0ee38
(quail-help): Use `help-buffer' and move `help-setup-xref' to beginning.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39143
diff
changeset
|
2444 Optional arg PACKAGE specifies the name of alternative Quail |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2445 package to describe." |
17052 | 2446 (interactive) |
82284
65186e6b080e
Wrap (require 'help-mode) by
Kenichi Handa <handa@m17n.org>
parents:
78310
diff
changeset
|
2447 (quail-help-init) |
35630
f9eed7569e52
(quail-setup-completion-buf): Make the
Kenichi Handa <handa@m17n.org>
parents:
35076
diff
changeset
|
2448 (let ((help-xref-mule-regexp help-xref-mule-regexp-template) |
92785
ca94bdbd0b62
(quail-help): Use set-buffer-multibyte rather than
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92784
diff
changeset
|
2449 (mb enable-multibyte-characters) |
41506
f2e8fb1e1928
(quail-keyboard-layout-button): Define button type.
Richard M. Stallman <rms@gnu.org>
parents:
40766
diff
changeset
|
2450 (package-def |
f2e8fb1e1928
(quail-keyboard-layout-button): Define button type.
Richard M. Stallman <rms@gnu.org>
parents:
40766
diff
changeset
|
2451 (if package |
f2e8fb1e1928
(quail-keyboard-layout-button): Define button type.
Richard M. Stallman <rms@gnu.org>
parents:
40766
diff
changeset
|
2452 (assoc package quail-package-alist) |
f2e8fb1e1928
(quail-keyboard-layout-button): Define button type.
Richard M. Stallman <rms@gnu.org>
parents:
40766
diff
changeset
|
2453 quail-current-package))) |
34357
30d5effa35e9
(quail-insert-decode-map): Check the
Kenichi Handa <handa@m17n.org>
parents:
33544
diff
changeset
|
2454 ;; At first, make sure that the help buffer has window. |
43079
a202d9fb56eb
(quail-help): Don't call help-setup-xref.
Richard M. Stallman <rms@gnu.org>
parents:
42611
diff
changeset
|
2455 (let ((temp-buffer-show-hook nil)) |
a202d9fb56eb
(quail-help): Don't call help-setup-xref.
Richard M. Stallman <rms@gnu.org>
parents:
42611
diff
changeset
|
2456 (with-output-to-temp-buffer (help-buffer) |
a202d9fb56eb
(quail-help): Don't call help-setup-xref.
Richard M. Stallman <rms@gnu.org>
parents:
42611
diff
changeset
|
2457 (with-current-buffer standard-output |
92785
ca94bdbd0b62
(quail-help): Use set-buffer-multibyte rather than
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92784
diff
changeset
|
2458 (set-buffer-multibyte mb) |
43079
a202d9fb56eb
(quail-help): Don't call help-setup-xref.
Richard M. Stallman <rms@gnu.org>
parents:
42611
diff
changeset
|
2459 (setq quail-current-package package-def)))) |
34357
30d5effa35e9
(quail-insert-decode-map): Check the
Kenichi Handa <handa@m17n.org>
parents:
33544
diff
changeset
|
2460 ;; Then, insert text in the help buffer while paying attention to |
54520
1fb2ee02e2aa
(quail-insert-decode-map): Use window-width instead of frame-width.
Juri Linkov <juri@jurta.org>
parents:
53031
diff
changeset
|
2461 ;; the width of the window in which the buffer displayed. |
40667
589781f0ee38
(quail-help): Use `help-buffer' and move `help-setup-xref' to beginning.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39143
diff
changeset
|
2462 (with-current-buffer (help-buffer) |
34725
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2463 (setq buffer-read-only nil) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2464 (insert "Input method: " (quail-name) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2465 " (mode line indicator:" |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2466 (quail-title) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2467 ")\n\n") |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2468 (save-restriction |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2469 (narrow-to-region (point) (point)) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2470 (insert (quail-docstring)) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2471 (goto-char (point-min)) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2472 (with-syntax-table emacs-lisp-mode-syntax-table |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2473 (while (re-search-forward "\\\\<\\sw\\(\\sw\\|\\s_\\)+>" nil t) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2474 (let ((sym (intern-soft |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2475 (buffer-substring (+ (match-beginning 0) 2) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2476 (1- (point)))))) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2477 (if (and (boundp sym) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2478 (stringp (symbol-value sym))) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2479 (replace-match (symbol-value sym) t t))))) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2480 (goto-char (point-max))) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2481 (or (bolp) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2482 (insert "\n")) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2483 (insert "\n") |
31424 | 2484 |
34725
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2485 (let ((done-list nil)) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2486 ;; Show keyboard layout if the current package requests it.. |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2487 (when (quail-show-layout) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2488 (insert " |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2489 KEYBOARD LAYOUT |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2490 --------------- |
31828
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
2491 This input method works by translating individual input characters. |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
2492 Assuming that your actual keyboard has the `") |
34725
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2493 (help-insert-xref-button |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2494 quail-keyboard-layout-type |
41506
f2e8fb1e1928
(quail-keyboard-layout-button): Define button type.
Richard M. Stallman <rms@gnu.org>
parents:
40766
diff
changeset
|
2495 'quail-keyboard-layout-button |
f2e8fb1e1928
(quail-keyboard-layout-button): Define button type.
Richard M. Stallman <rms@gnu.org>
parents:
40766
diff
changeset
|
2496 quail-keyboard-layout-type) |
34725
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2497 (insert "' layout, |
31828
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
2498 translation results in the following \"virtual\" keyboard layout: |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
2499 ") |
34725
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2500 (setq done-list |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2501 (quail-insert-kbd-layout quail-keyboard-layout)) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2502 (insert "If your keyboard has a different layout, rearranged from |
31828
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
2503 `") |
34725
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2504 (help-insert-xref-button |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2505 "standard" |
41506
f2e8fb1e1928
(quail-keyboard-layout-button): Define button type.
Richard M. Stallman <rms@gnu.org>
parents:
40766
diff
changeset
|
2506 'quail-keyboard-layout-button "standard") |
34725
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2507 (insert "', the \"virtual\" keyboard you get with this input method |
31828
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
2508 will be rearranged in the same way. |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
2509 |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
2510 You can set the variable `quail-keyboard-layout-type' to specify |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
2511 the physical layout of your keyboard; the tables shown in |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
2512 documentation of input methods including this one are based on the |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
2513 physical keyboard layout as specified with that variable. |
c6cdd9deac21
(quail-help): The output message is improved.
Kenichi Handa <handa@m17n.org>
parents:
31584
diff
changeset
|
2514 ") |
34725
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2515 (help-insert-xref-button |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2516 "[customize keyboard layout]" |
41506
f2e8fb1e1928
(quail-keyboard-layout-button): Define button type.
Richard M. Stallman <rms@gnu.org>
parents:
40766
diff
changeset
|
2517 'quail-keyboard-customize-button 'quail-keyboard-layout-type) |
34725
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2518 (insert "\n")) |
31424 | 2519 |
34725
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2520 ;; Show key sequences. |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2521 (let ((decode-map (list 'decode-map)) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2522 elt pos num) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2523 (setq num (quail-build-decode-map (list (quail-map)) "" decode-map |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2524 0 512 done-list)) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2525 (when (> num 0) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2526 (insert " |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2527 KEY SEQUENCE |
89170 | 2528 ------------ |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2529 ") |
34725
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2530 (if (quail-show-layout) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2531 (insert "You can also input more characters") |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2532 (insert "You can input characters")) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2533 (insert " by the following key sequences:\n") |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2534 (quail-insert-decode-map decode-map)))) |
31424 | 2535 |
34725
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2536 (quail-help-insert-keymap-description |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2537 (quail-translation-keymap) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2538 "\ |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2539 KEY BINDINGS FOR TRANSLATION |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2540 ----------------------------\n") |
34725
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2541 (insert ?\n) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2542 (if (quail-conversion-keymap) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2543 (quail-help-insert-keymap-description |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2544 (quail-conversion-keymap) |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2545 "\ |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2546 KEY BINDINGS FOR CONVERSION |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2547 ---------------------------\n")) |
36465 | 2548 (setq quail-current-package nil) |
34725
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2549 ;; Resize the help window again, now that it has all its contents. |
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2550 (save-selected-window |
45907
5ec9521eeae0
(quail-help): Don't assume the buffer is displayed in the same frame.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43079
diff
changeset
|
2551 (select-window (get-buffer-window (current-buffer) t)) |
34725
30f56d213a09
(quail-input-method): Resize the help window again after it has all its
Miles Bader <miles@gnu.org>
parents:
34701
diff
changeset
|
2552 (run-hooks 'temp-buffer-show-hook))))) |
18349
f468344dd2bd
(quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents:
18297
diff
changeset
|
2553 |
17052 | 2554 (defun quail-help-insert-keymap-description (keymap &optional header) |
31424 | 2555 (let (pos1 pos2 eol) |
2556 (setq pos1 (point)) | |
17052 | 2557 (if header |
2558 (insert header)) | |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2559 (save-excursion |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2560 (insert (substitute-command-keys "\\{keymap}"))) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2561 ;; Skip headers "key bindings", etc. |
31424 | 2562 (forward-line 3) |
2563 (setq pos2 (point)) | |
2564 (with-syntax-table emacs-lisp-mode-syntax-table | |
2565 (while (re-search-forward "\\sw\\(\\sw\\|\\s_\\)+" nil t) | |
2566 (let ((sym (intern-soft (buffer-substring (match-beginning 0) | |
2567 (point))))) | |
2568 (if (and sym (fboundp sym) | |
31546
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2569 (or (eq (get sym 'quail-help) 'hide) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2570 (and (quail-deterministic) |
09bc2badb9e6
(quail-translation-docstring): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31453
diff
changeset
|
2571 (eq (get sym 'quail-help) 'non-deterministic)))) |
31424 | 2572 (delete-region (line-beginning-position) |
2573 (1+ (line-end-position))))))) | |
2574 (goto-char pos2) | |
2575 (while (not (eobp)) | |
2576 (if (looking-at "[ \t]*$") | |
2577 (delete-region (point) (1+ (line-end-position))) | |
2578 (forward-line 1))) | |
2579 (goto-char pos2) | |
2580 (if (eobp) | |
2581 (delete-region pos1 (point))) | |
2582 (goto-char (point-max)))) | |
17052 | 2583 |
2584 (defun quail-translation-help () | |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2585 "Show help message while translating in Quail input method." |
17052 | 2586 (interactive) |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2587 (if (not (eq this-command last-command)) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2588 (let (state-msg keymap) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2589 (if (and quail-converting (= (length quail-current-key) 0)) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2590 (setq state-msg |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2591 (format "Converting string %S by input method %S.\n" |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2592 quail-conversion-str (quail-name)) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2593 keymap (quail-conversion-keymap)) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2594 (setq state-msg |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2595 (format "Translating key sequence %S by input method %S.\n" |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2596 quail-current-key (quail-name)) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2597 keymap (quail-translation-keymap))) |
31247
e49bf88ce1f8
(quail-help): New arg PACKAGE. Hyperlinks to mule related items.
Kenichi Handa <handa@m17n.org>
parents:
31217
diff
changeset
|
2598 (with-output-to-temp-buffer "*Help*" |
40667
589781f0ee38
(quail-help): Use `help-buffer' and move `help-setup-xref' to beginning.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39143
diff
changeset
|
2599 (with-current-buffer standard-output |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2600 (insert state-msg) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2601 (quail-help-insert-keymap-description |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2602 keymap |
31247
e49bf88ce1f8
(quail-help): New arg PACKAGE. Hyperlinks to mule related items.
Kenichi Handa <handa@m17n.org>
parents:
31217
diff
changeset
|
2603 "-----------------------\n") |
40667
589781f0ee38
(quail-help): Use `help-buffer' and move `help-setup-xref' to beginning.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39143
diff
changeset
|
2604 ;; Isn't this redundant ? -stef |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2605 (help-mode))))) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2606 (let (scroll-help) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2607 (save-selected-window |
31247
e49bf88ce1f8
(quail-help): New arg PACKAGE. Hyperlinks to mule related items.
Kenichi Handa <handa@m17n.org>
parents:
31217
diff
changeset
|
2608 (select-window (get-buffer-window "*Help*")) |
22917
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2609 (if (eq this-command last-command) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2610 (if (< (window-end) (point-max)) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2611 (scroll-up) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2612 (if (> (window-start) (point-min)) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2613 (set-window-start (selected-window) (point-min))))) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2614 (setq scroll-help |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2615 (if (< (window-end (selected-window) 'up-to-date) (point-max)) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2616 "Type \\[quail-translation-help] to scroll up the help" |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2617 (if (> (window-start) (point-min)) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2618 "Type \\[quail-translation-help] to see the head of help")))) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2619 (if scroll-help |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2620 (progn |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2621 (message "%s" (substitute-command-keys scroll-help)) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2622 (sit-for 1) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2623 (message nil) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2624 (quail-update-guidance) |
00f3497854c4
(quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents:
22883
diff
changeset
|
2625 )))) |
26891
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2626 |
55541
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2627 ;; Add KEY (string) to the element of TABLE (char-table) for CHAR if |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2628 ;; it is not yet stored. As a result, the element is a string or a |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2629 ;; list of strings. |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2630 |
82284
65186e6b080e
Wrap (require 'help-mode) by
Kenichi Handa <handa@m17n.org>
parents:
78310
diff
changeset
|
2631 (defun quail-store-decode-map-key (table char key) |
55541
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2632 (let ((elt (aref table char))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2633 (if elt |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2634 (if (consp elt) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2635 (or (member key elt) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2636 (aset table char (cons key elt))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2637 (or (string= key elt) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2638 (aset table char (list key elt)))) |
75560
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2639 (aset table char key)) |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2640 (if (and translation-table-for-input |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2641 (setq char (aref translation-table-for-input char))) |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2642 (let ((translation-table-for-input nil)) |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2643 (quail-store-decode-map-key table char key))))) |
55541
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2644 |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2645 ;; Helper function for quail-gen-decode-map. Store key strings to |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2646 ;; type each character under MAP in TABLE (char-table). MAP is an |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2647 ;; element of the current Quail map reached by typing keys in KEY |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2648 ;; (string). |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2649 |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2650 (defun quail-gen-decode-map1 (map key table) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2651 (when (and (consp map) (listp (cdr map))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2652 (let ((trans (car map))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2653 (cond ((integerp trans) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2654 (quail-store-decode-map-key table trans key)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2655 ((stringp trans) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2656 (dotimes (i (length trans)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2657 (quail-store-decode-map-key table (aref trans i) key))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2658 ((or (vectorp trans) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2659 (and (consp trans) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2660 (setq trans (cdr trans)))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2661 (dotimes (i (length trans)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2662 (let ((elt (aref trans i))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2663 (if (stringp elt) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2664 (if (= (length elt) 1) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2665 (quail-store-decode-map-key table (aref elt 0) key)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2666 (quail-store-decode-map-key table elt key))))))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2667 (if (> (length key) 1) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2668 (dolist (elt (cdr map)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2669 (quail-gen-decode-map1 (cdr elt) key table)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2670 (dolist (elt (cdr map)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2671 (quail-gen-decode-map1 (cdr elt) (format "%s%c" key (car elt)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2672 table))))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2673 |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2674 (put 'quail-decode-map 'char-table-extra-slots 0) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2675 |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2676 ;; Generate a halfly-cooked decode map (char-table) for the current |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2677 ;; Quail map. An element for a character C is a key string or a list |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2678 ;; of a key strings to type to input C. The lenth of key string is at |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2679 ;; most 2. If it is 2, more keys may be required to input C. |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2680 |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2681 (defun quail-gen-decode-map () |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2682 (let ((table (make-char-table 'quail-decode-map nil))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2683 (dolist (elt (cdr (quail-map))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2684 (quail-gen-decode-map1 (cdr elt) (string (car elt)) table)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2685 table)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2686 |
75560
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2687 ;; Check if CHAR equals to TARGET while also trying to translate CHAR |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2688 ;; by translation-table-for-input. |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2689 |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2690 (defsubst quail-char-equal-p (char target) |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2691 (or (= char target) |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2692 (and translation-table-for-input |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2693 (setq char (aref translation-table-for-input char)) |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2694 (= char target)))) |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2695 |
55541
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2696 ;; Helper function for quail-find-key. Prepend key strings to type |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2697 ;; for inputting CHAR by the current input method to KEY-LIST and |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2698 ;; return the result. MAP is an element of the current Quail map |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2699 ;; reached by typing keys in KEY. |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2700 |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2701 (defun quail-find-key1 (map key char key-list) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2702 (let ((trans (car map)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2703 (found-here nil)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2704 (cond ((stringp trans) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2705 (setq found-here |
75560
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2706 (and (= (length trans) 1) |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2707 (quail-char-equal-p (aref trans 0) char)))) |
55541
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2708 ((or (vectorp trans) (consp trans)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2709 (if (consp trans) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2710 (setq trans (cdr trans))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2711 (setq found-here |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2712 (catch 'tag |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2713 (dotimes (i (length trans)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2714 (let ((target (aref trans i))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2715 (if (integerp target) |
75560
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2716 (if (quail-char-equal-p target char) |
55541
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2717 (throw 'tag t)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2718 (if (and (= (length target) 1) |
75560
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2719 (quail-char-equal-p (aref target 0) char)) |
55541
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2720 (throw 'tag t)))))))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2721 ((integerp trans) |
75560
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2722 (setq found-here (quail-char-equal-p trans char)))) |
55541
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2723 (if found-here |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2724 (setq key-list (cons key key-list))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2725 (if (> (length key) 1) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2726 (dolist (elt (cdr map)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2727 (setq key-list |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2728 (quail-find-key1 (cdr elt) (format "%s%c" key (car elt)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2729 char key-list)))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2730 key-list)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2731 |
75560
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2732 ;; If non-nil, the value has the form (QUAIL-MAP . CODING-SYSTEM) |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2733 ;; where QUAIL-MAP is a quail-map of which decode map was generated |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2734 ;; while buffer-file-coding-system was CODING-SYSTEM. |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2735 |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2736 (defvar quail-decode-map-generated nil) |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2737 |
55541
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2738 (defun quail-find-key (char) |
55549
0a72a48de076
(quail-find-key): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
55541
diff
changeset
|
2739 "Return a list of keys to type to input CHAR in the current input method. |
0a72a48de076
(quail-find-key): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
55541
diff
changeset
|
2740 If CHAR is an ASCII character and can be input by typing itself, return t." |
75560
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2741 (let ((decode-map (or (and (or (not quail-decode-map-generated) |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2742 (and (eq (car quail-decode-map-generated) (quail-map)) |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2743 (eq (cdr quail-decode-map-generated) |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2744 (or buffer-file-coding-system t)))) |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2745 (quail-decode-map)) |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2746 (let ((map (quail-gen-decode-map))) |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2747 (setq quail-decode-map-generated |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2748 (cons (quail-map) (or buffer-file-coding-system t))) |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2749 (setcar (nthcdr 10 quail-current-package) map) |
607b2d435418
(quail-store-decode-map-key): Store a
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2750 map))) |
55541
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2751 (key-list nil)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2752 (if (consp decode-map) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2753 (let ((str (string char))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2754 (mapc #'(lambda (elt) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2755 (if (string= str (car elt)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2756 (setq key-list (cons (cdr elt) key-list)))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2757 (cdr decode-map))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2758 (let ((key-head (aref decode-map char))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2759 (if (stringp key-head) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2760 (setq key-list (quail-find-key1 |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2761 (quail-lookup-key key-head nil t) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2762 key-head char nil)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2763 (mapc #'(lambda (elt) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2764 (setq key-list |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2765 (quail-find-key1 |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2766 (quail-lookup-key elt nil t) elt char key-list))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2767 key-head)))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2768 (or key-list |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2769 (and (< char 128) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2770 (not (quail-lookup-key (string char) 1)))))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2771 |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2772 (defun quail-show-key () |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2773 "Show a list of key strings to type for inputting a character at point." |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2774 (interactive) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2775 (or current-input-method |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2776 (error "No input method is activated")) |
75583
2a562d836178
(quail-show-key): Signal an error if the
Kenichi Handa <handa@m17n.org>
parents:
75560
diff
changeset
|
2777 (or (assoc current-input-method quail-package-alist) |
75602
e1ae80eb2fcb
(quail-show-key): Fix an error message.
Kenichi Handa <handa@m17n.org>
parents:
75584
diff
changeset
|
2778 (error "The current input method does not use Quail")) |
55541
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2779 (let* ((char (following-char)) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2780 (key-list (quail-find-key char))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2781 (cond ((consp key-list) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2782 (message "To input `%c', type \"%s\"" |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2783 char |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2784 (mapconcat 'identity key-list "\", \""))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2785 ((eq key-list t) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2786 (message "To input `%s', just type it" |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2787 (single-key-description char))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2788 (t |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2789 (message "%c can't be input by the current input method" char))))) |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2790 |
1cd6f125aac9
(quail-install-decode-map): Accept a
Kenichi Handa <handa@m17n.org>
parents:
54999
diff
changeset
|
2791 |
26891
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2792 ;; Quail map generator from state transition table. |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2793 |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2794 (defun quail-map-from-table (table) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2795 "Make quail map from state transition table TABLE. |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2796 |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2797 TABLE is an alist, the form is: |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2798 ((STATE-0 TRANSITION-0-1 TRANSITION-0-2 ...) (STATE-1 ...) ...) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2799 |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2800 STATE-n are symbols to denote state. STATE-0 is the initial state. |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2801 |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2802 TRANSITION-n-m are transition rules from STATE-n, and have the form |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2803 \(RULES . STATE-x) or RULES, where STATE-x is one of STATE-n above, |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2804 RULES is a symbol whose value is an alist of keys \(string) vs the |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2805 correponding characters or strings. The format of the symbol value of |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2806 RULES is the same as arguments to `quail-define-rules'. |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2807 |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2808 If TRANSITION-n-m has the form (RULES . STATE-x), it means that |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2809 STATE-n transits to STATE-x when keys in RULES are input. Recursive |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2810 transition is allowed, i.e. STATE-x may be STATE-n. |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2811 |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2812 If TRANSITION-n-m has the form RULES, the transition terminates |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2813 when keys in RULES are input. |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2814 |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2815 The generated map can be set for the current Quail package by the |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2816 function `quail-install-map' (which see)." |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2817 (let ((state-alist (mapcar (lambda (x) (list (car x))) table)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2818 tail elt) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2819 ;; STATE-ALIST is an alist of states vs the correponding sub Quail |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2820 ;; map. It is now initialized to ((STATE-0) (STATE-1) ...). |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2821 ;; Set key sequence mapping rules in cdr part of each element. |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2822 (while table |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2823 (quail-map-from-table-1 state-alist (car table)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2824 (setq table (cdr table))) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2825 |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2826 ;; Now STATE-ALIST has the form ((STATE-0 MAPPING-RULES) ...). |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2827 ;; Elements of MAPPING-RULES may have the form (STATE-x). Replace |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2828 ;; them with MAPPING-RULES of STATE-x to make elements of |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2829 ;; STATE-ALIST valid Quail maps. |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2830 (setq tail state-alist) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2831 (while tail |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2832 (setq elt (car tail) tail (cdr tail)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2833 (quail-map-from-table-2 state-alist elt)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2834 |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2835 ;; Return the Quail map for the initial state. |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2836 (car state-alist))) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2837 |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2838 ;; STATE-INFO has the form (STATE TRANSITION ...). Set key sequence |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2839 ;; mapping rules in the element of STATE-ALIST that corresponds to |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2840 ;; STATE according to TRANSITION ... |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2841 (defun quail-map-from-table-1 (state-alist state-info) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2842 (let* ((state (car state-info)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2843 (map (assq state state-alist)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2844 (transitions (cdr state-info)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2845 elt) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2846 (while transitions |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2847 (setq elt (car transitions) transitions (cdr transitions)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2848 (let (rules dst-state key trans) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2849 ;; ELT has the form (RULES-SYMBOL . STATE-x) or RULES-SYMBOL. |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2850 ;; STATE-x is one of car parts of STATE-ALIST's elements. |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2851 (if (consp elt) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2852 (setq rules (symbol-value (car elt)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2853 ;; Set (STATE-x) as branches for all keys in RULES. |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2854 ;; It is replaced with actual branches for STATE-x |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2855 ;; later in `quail-map-from-table-2'. |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2856 dst-state (list (cdr elt))) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2857 (setq rules (symbol-value elt))) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2858 (while rules |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2859 (setq key (car (car rules)) trans (cdr (car rules)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2860 rules (cdr rules)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2861 (if (stringp trans) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2862 (if (= (length trans) 1) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2863 (setq trans (aref trans 0)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2864 (setq trans (string-to-vector trans)))) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2865 (set-nested-alist key trans map nil dst-state)))))) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2866 |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2867 ;; ELEMENT is one element of STATE-ALIST. ELEMENT is a nested alist; |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2868 ;; the form is: |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2869 ;; (STATE (CHAR NESTED-ALIST) ...) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2870 ;; NESTED-ALIST is a nested alist; the form is: |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2871 ;; (TRANS (CHAR NESTED-ALIST) ...) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2872 ;; or |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2873 ;; (TRANS (CHAR NESTED-ALIST) ... . (STATE-x)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2874 ;; Here, the task is to replace all occurrences of (STATE-x) with: |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2875 ;; (cdr (assq STATE-x STATE-ALIST)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2876 |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2877 (defun quail-map-from-table-2 (state-alist element) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2878 (let ((prev element) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2879 (tail (cdr element)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2880 elt) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2881 (while (cdr tail) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2882 (setq elt (car tail) prev tail tail (cdr tail)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2883 (quail-map-from-table-2 state-alist (cdr elt))) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2884 (setq elt (car tail)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2885 (if (consp elt) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2886 (quail-map-from-table-2 state-alist (cdr elt)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2887 (setcdr prev (cdr (assq elt state-alist)))))) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2888 |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2889 ;; Concatenate translations for all heading substrings of KEY in the |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2890 ;; current Quail map. Here, `heading substring' means (substring KEY |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2891 ;; 0 LEN), where LEN is 1, 2, ... (length KEY). |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2892 (defun quail-lookup-map-and-concat (key) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2893 (let* ((len (length key)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2894 (translation-list nil) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2895 map) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2896 (while (> len 0) |
54999
894e3fd388c2
(quail-lookup-key): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
54997
diff
changeset
|
2897 (setq map (quail-lookup-key key len t) |
26891
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2898 len (1- len)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2899 (if map |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2900 (let* ((def (quail-map-definition map)) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2901 (trans (if (consp def) (aref (cdr def) (car (car def))) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2902 def))) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2903 (if (integerp trans) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2904 (setq trans (char-to-string trans))) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2905 (setq translation-list (cons trans translation-list))))) |
651d521c8f52
(quail-install-map): New optional arg
Kenichi Handa <handa@m17n.org>
parents:
24821
diff
changeset
|
2906 (apply 'concat translation-list))) |
17052 | 2907 |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
2908 |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
2909 (defvar quail-directory-name "quail" |
23176 | 2910 "Name of Quail directory which contains Quail packages. |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
2911 This is a sub-directory of LEIM directory.") |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
2912 |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
2913 ;;;###autoload |
19605
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2914 (defun quail-update-leim-list-file (dirname &rest dirnames) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2915 "Update entries for Quail packages in `LEIM' list file in directory DIRNAME. |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2916 DIRNAME is a directory containing Emacs input methods; |
19200
74ec766c0ada
(quail-update-leim-list-file):
Richard M. Stallman <rms@gnu.org>
parents:
19144
diff
changeset
|
2917 normally, it should specify the `leim' subdirectory |
19605
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2918 of the Emacs source tree. |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2919 |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2920 It searches for Quail packages under `quail' subdirectory of DIRNAME, |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2921 and update the file \"leim-list.el\" in DIRNAME. |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2922 |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2923 When called from a program, the remaining arguments are additional |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2924 directory names to search for Quail packages under `quail' subdirectory |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2925 of each directory." |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
2926 (interactive "FDirectory of LEIM: ") |
19605
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2927 (setq dirname (expand-file-name dirname)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2928 (let ((leim-list (expand-file-name leim-list-file-name dirname)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2929 quail-dirs list-buf pkg-list pkg-buf pos) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2930 (if (not (file-writable-p leim-list)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2931 (error "Can't write to file \"%s\"" leim-list)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2932 (message "Updating %s ..." leim-list) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2933 (setq list-buf (find-file-noselect leim-list)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2934 |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2935 ;; At first, clean up the file. |
40667
589781f0ee38
(quail-help): Use `help-buffer' and move `help-setup-xref' to beginning.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39143
diff
changeset
|
2936 (with-current-buffer list-buf |
19605
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2937 (goto-char 1) |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
2938 |
19605
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2939 ;; Insert the correct header. |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2940 (if (looking-at (regexp-quote leim-list-header)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2941 (goto-char (match-end 0)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2942 (insert leim-list-header)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2943 (setq pos (point)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2944 (if (not (re-search-forward leim-list-entry-regexp nil t)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2945 nil |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2946 |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2947 ;; Remove garbages after the header. |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2948 (goto-char (match-beginning 0)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2949 (if (< pos (point)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2950 (delete-region pos (point))) |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
2951 |
19605
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2952 ;; Remove all entries for Quail. |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2953 (while (re-search-forward leim-list-entry-regexp nil 'move) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2954 (goto-char (match-beginning 0)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2955 (setq pos (point)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2956 (condition-case nil |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2957 (let ((form (read list-buf))) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2958 (when (equal (nth 3 form) ''quail-use-package) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2959 (if (eolp) (forward-line 1)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2960 (delete-region pos (point)))) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2961 (error |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2962 ;; Delete the remaining contents because it seems that |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2963 ;; this file is broken. |
23014
ddc2fa7883d6
(quail-update-leim-list-file): Fix message syntax.
Richard M. Stallman <rms@gnu.org>
parents:
22984
diff
changeset
|
2964 (message "Garbage in %s deleted" leim-list) |
19605
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2965 (delete-region pos (point-max))))))) |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
2966 |
23176 | 2967 ;; Search for `quail' subdirectory under each DIRNAMES. |
19605
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2968 (setq dirnames (cons dirname dirnames)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2969 (let ((l dirnames)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2970 (while l |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2971 (setcar l (expand-file-name (car l))) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2972 (setq dirname (expand-file-name quail-directory-name (car l))) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2973 (if (file-readable-p dirname) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2974 (setq quail-dirs (cons dirname quail-dirs)) |
23014
ddc2fa7883d6
(quail-update-leim-list-file): Fix message syntax.
Richard M. Stallman <rms@gnu.org>
parents:
22984
diff
changeset
|
2975 (message "%s doesn't have `%s' subdirectory, just ignored" |
19605
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2976 (car l) quail-directory-name) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2977 (setq quail-dirs (cons nil quail-dirs))) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2978 (setq l (cdr l))) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2979 (setq quail-dirs (nreverse quail-dirs))) |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
2980 |
19605
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2981 ;; Insert input method registering forms. |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2982 (while quail-dirs |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2983 (setq dirname (car quail-dirs)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2984 (when dirname |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2985 (setq pkg-list (directory-files dirname 'full "\\.el$" 'nosort)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2986 (while pkg-list |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2987 (message "Checking %s ..." (car pkg-list)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2988 (with-temp-buffer |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2989 (insert-file-contents (car pkg-list)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2990 (goto-char (point-min)) |
42048
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
2991 ;; Don't get fooled by commented-out code. |
281baedc1a99
(quail-keyboard-layout-alist): Add
Dave Love <fx@gnu.org>
parents:
41538
diff
changeset
|
2992 (while (re-search-forward "^[ \t]*(quail-define-package" nil t) |
19605
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2993 (goto-char (match-beginning 0)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2994 (condition-case nil |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2995 (let ((form (read (current-buffer)))) |
40667
589781f0ee38
(quail-help): Use `help-buffer' and move `help-setup-xref' to beginning.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39143
diff
changeset
|
2996 (with-current-buffer list-buf |
19605
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2997 (insert |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
2998 (format "(register-input-method |
18297
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
2999 %S %S '%s |
5c8e37591da5
(quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents:
18201
diff
changeset
|
3000 %S %S |
19200
74ec766c0ada
(quail-update-leim-list-file):
Richard M. Stallman <rms@gnu.org>
parents:
19144
diff
changeset
|
3001 %S)\n" |
19605
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
3002 (nth 1 form) ; PACKAGE-NAME |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
3003 (nth 2 form) ; LANGUAGE |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
3004 'quail-use-package ; ACTIVATE-FUNC |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
3005 (nth 3 form) ; PACKAGE-TITLE |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
3006 (progn ; PACKAGE-DESCRIPTION (one line) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
3007 (string-match ".*" (nth 5 form)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
3008 (match-string 0 (nth 5 form))) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
3009 (file-relative-name ; PACKAGE-FILENAME |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
3010 (file-name-sans-extension (car pkg-list)) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
3011 (car dirnames)))))) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
3012 (error |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
3013 ;; Ignore the remaining contents of this file. |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
3014 (goto-char (point-max)) |
40766
90c5fdb81e29
(quail-update-leim-list-file): Print the
Eli Zaretskii <eliz@gnu.org>
parents:
40667
diff
changeset
|
3015 (message "Some part of \"%s\" is broken" (car pkg-list)))))) |
19605
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
3016 (setq pkg-list (cdr pkg-list))) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
3017 (setq quail-dirs (cdr quail-dirs) dirnames (cdr dirnames)))) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
3018 |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
3019 ;; At last, write out LEIM list file. |
40667
589781f0ee38
(quail-help): Use `help-buffer' and move `help-setup-xref' to beginning.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39143
diff
changeset
|
3020 (with-current-buffer list-buf |
88753
444ef6485085
(quail-update-leim-list-file): Force
Kenichi Handa <handa@m17n.org>
parents:
43079
diff
changeset
|
3021 (let ((coding-system-for-write 'iso-2022-7bit)) |
444ef6485085
(quail-update-leim-list-file): Force
Kenichi Handa <handa@m17n.org>
parents:
43079
diff
changeset
|
3022 (save-buffer 0))) |
19605
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
3023 (kill-buffer list-buf) |
3b700b203cfd
(quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents:
19519
diff
changeset
|
3024 (message "Updating %s ... done" leim-list))) |
30656
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
3025 |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
3026 (defun quail-advice (args) |
36465 | 3027 "Advise users about the characters input by the current Quail package. |
30656
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
3028 The argument is a parameterized event of the form: |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
3029 (quail-advice STRING) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
3030 where STRING is a string containing the input characters. |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
3031 If STRING has property `advice' and the value is a function, |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
3032 call it with one argument STRING." |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
3033 (interactive "e") |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
3034 (let* ((string (nth 1 args)) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
3035 (func (get-text-property 0 'advice string))) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
3036 (if (functionp func) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
3037 (funcall func string)))) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
3038 |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
3039 (global-set-key [quail-advice] 'quail-advice) |
321084a896d1
(quail-define-rules): Handle Quail decode
Kenichi Handa <handa@m17n.org>
parents:
29690
diff
changeset
|
3040 |
17052 | 3041 ;; |
3042 (provide 'quail) | |
3043 | |
92784
a7f3b0c8e4a5
(quail-setup-completion-buf): Use set-buffer-multibyte rather than
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91327
diff
changeset
|
3044 ;; arch-tag: 46d7db54-5467-42c4-a2a9-53ca90a1e886 |
17052 | 3045 ;;; quail.el ends here |