annotate lisp/international/quail.el @ 71356:a183bff9cb83

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