annotate lisp/international/quail.el @ 24821:7f6aadd2625b

(quail-define-rules): Fix typo in docstring.
author Kenichi Handa <handa@m17n.org>
date Mon, 07 Jun 1999 11:02:33 +0000
parents cef9cf0a46b4
children 651d521c8f52
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
17315
a3ca5e15c82a Fix the format of the first line.
Kenichi Handa <handa@m17n.org>
parents: 17174
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
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
18377
8b4a66c66dd6 Change copyright notice.
Richard M. Stallman <rms@gnu.org>
parents: 18349
diff changeset
4 ;; Licensed to the Free Software Foundation.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6 ;; Author: Kenichi HANDA <handa@etl.go.jp>
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7 ;; Naoto TAKAHASHI <ntakahas@etl.go.jp>
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8 ;; Maintainer: Kenichi HANDA <handa@etl.go.jp>
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
9 ;; Keywords: mule, multilingual, input method
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
10
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
11 ;; This file is part of GNU Emacs.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
12
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
13 ;; GNU Emacs is free software; you can redistribute it and/or modify
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
14 ;; it under the terms of the GNU General Public License as published by
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
15 ;; the Free Software Foundation; either version 2, or (at your option)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
16 ;; any later version.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
17
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
18 ;; GNU Emacs is distributed in the hope that it will be useful,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
21 ;; GNU General Public License for more details.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
22
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
23 ;; 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
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
25 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
26 ;; Boston, MA 02111-1307, USA.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
27
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
28 ;;; Commentary:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
29
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
30 ;; In Quail minor mode, you can input multilingual text easily. By
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
31 ;; defining a translation table (named Quail map) which maps ASCII key
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
32 ;; string to multilingual character or string, you can input any text
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
33 ;; from ASCII keyboard.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
34 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
35 ;; We use words "translation" and "conversion" differently. The
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
36 ;; former is done by Quail package itself, the latter is the further
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
37 ;; process of converting a translated text to some more desirable
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
38 ;; text. For instance, Quail package for Japanese (`quail-jp')
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
39 ;; translates Roman text (transliteration of Japanese in Latin
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
40 ;; alphabets) to Hiragana text, which is then converted to
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
41 ;; Kanji-and-Kana mixed text or Katakana text by commands specified in
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
42 ;; CONVERSION-KEYS argument of the Quail package.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
43
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
44 ;;; Code:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
45
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
46 (require 'faces)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
47
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
48 ;; Buffer local variables
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
49
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
50 (defvar quail-current-package nil
19391
763bc03e7797 (quail-guidance-buf): Now a permanent local.
Richard M. Stallman <rms@gnu.org>
parents: 19327
diff changeset
51 "The current Quail package, which depends on the current input method.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
52 See the documentation of `quail-package-alist' for the format.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
53 (make-variable-buffer-local 'quail-current-package)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
54 (put 'quail-current-package 'permanent-local t)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
55
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
56 ;; Quail uses the following two buffers to assist users.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
57 ;; A buffer to show available key sequence or translation list.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
58 (defvar quail-guidance-buf nil)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
59 ;; A buffer to show completion list of the current key sequence.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
60 (defvar quail-completion-buf nil)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
61
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
62 ;; Each buffer in which Quail is activated should use different
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
63 ;; guidance buffers.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
64 (make-variable-buffer-local 'quail-guidance-buf)
19391
763bc03e7797 (quail-guidance-buf): Now a permanent local.
Richard M. Stallman <rms@gnu.org>
parents: 19327
diff changeset
65 (put 'quail-guidance-buf 'permanent-local t)
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
66
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
67 ;; A main window showing Quail guidance buffer.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
68 (defvar quail-guidance-win nil)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
69 (make-variable-buffer-local 'quail-guidance-win)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
70
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
71 (defvar quail-overlay nil
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
72 "Overlay which covers the current translation region of Quail.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
73 (make-variable-buffer-local 'quail-overlay)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
74
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
75 (defvar quail-conv-overlay nil
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
76 "Overlay which covers the text to be converted in Quail mode.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
77 (make-variable-buffer-local 'quail-conv-overlay)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
78
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
79 (defvar quail-current-key nil
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
80 "Current key for translation in Quail mode.")
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
81 (make-variable-buffer-local 'quail-current-key)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
82
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
83 (defvar quail-current-str nil
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
84 "Currently selected translation of the current key.")
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
85 (make-variable-buffer-local 'quail-current-str)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
86
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
87 (defvar quail-current-translations nil
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
88 "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
89 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
90 CURRENT is an index of the current translation,
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
91 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
92 BLOCK is the current block index,
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
93 BLOCKS is a number of blocks of translation.")
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
94 (make-variable-buffer-local 'quail-current-translations)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
95
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
96 (defvar quail-current-data nil
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
97 "Any Lisp object holding information of current translation status.
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
98 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
99 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
100 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
101 to that Lisp object.")
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
102 (make-variable-buffer-local 'quail-current-data)
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
103
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
104 ;; Quail package handlers.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
105
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
106 (defvar quail-package-alist nil
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
107 "List of Quail packages.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
108 A Quail package is a list of these elements:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
109 NAME, TITLE, QUAIL-MAP, GUIDANCE, DOCSTRING, TRANSLATION-KEYS,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
110 FORGET-LAST-SELECTION, DETERMINISTIC, KBD-TRANSLATE, SHOW-LAYOUT,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
111 DECODE-MAP, MAXIMUM-SHORTEST, OVERLAY-PLIST, UPDATE-TRANSLATION-FUNCTION,
19849
1c5164d81426 (quail-simple): New function.
Kenichi Handa <handa@m17n.org>
parents: 19844
diff changeset
112 CONVERSION-KEYS, SIMPLE.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
113
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
114 QUAIL-MAP is a data structure to map key strings to translations. For
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
115 the format, see the documentation of `quail-map-p'.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
116
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
117 DECODE-MAP is an alist of translations and corresponding keys.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
118
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
119 See the documentation of `quail-define-package' for the other elements.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
120
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
121 ;; Return various slots in the current quail-package.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
122
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
123 (defsubst quail-name ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
124 "Return the name of the current Quail package."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
125 (nth 0 quail-current-package))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
126 (defsubst quail-title ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
127 "Return the title of the current Quail package."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
128 (nth 1 quail-current-package))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
129 (defsubst quail-map ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
130 "Return the translation map of the current Quail package."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
131 (nth 2 quail-current-package))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
132 (defsubst quail-guidance ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
133 "Return an object used for `guidance' feature of the current Quail package.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
134 See also the documentation of `quail-define-package'."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
135 (nth 3 quail-current-package))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
136 (defsubst quail-docstring ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
137 "Return the documentation string of the current Quail package."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
138 (nth 4 quail-current-package))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
139 (defsubst quail-translation-keymap ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
140 "Return translation keymap in the current Quail package.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
141 Translation keymap is a keymap used while translation region is active."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
142 (nth 5 quail-current-package))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
143 (defsubst quail-forget-last-selection ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
144 "Return `forget-last-selection' flag of the current Quail package.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
145 See also the documentation of `quail-define-package'."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
146 (nth 6 quail-current-package))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
147 (defsubst quail-deterministic ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
148 "Return `deterministic' flag of the current Quail package.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
149 See also the documentation of `quail-define-package'."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
150 (nth 7 quail-current-package))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
151 (defsubst quail-kbd-translate ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
152 "Return `kbd-translate' flag of the current Quail package.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
153 See also the documentation of `quail-define-package'."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
154 (nth 8 quail-current-package))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
155 (defsubst quail-show-layout ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
156 "Return `show-layout' flag of the current Quail package.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
157 See also the documentation of `quail-define-package'."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
158 (nth 9 quail-current-package))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
159 (defsubst quail-decode-map ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
160 "Return decode map of the current Quail package.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
161 It is an alist of translations and corresponding keys."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
162 (nth 10 quail-current-package))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
163 (defsubst quail-maximum-shortest ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
164 "Return `maximum-shortest' flag of the current Quail package.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
165 See also the documentation of `quail-define-package'."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
166 (nth 11 quail-current-package))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
167 (defsubst quail-overlay-plist ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
168 "Return property list of an overly used in the current Quail package."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
169 (nth 12 quail-current-package))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
170 (defsubst quail-update-translation-function ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
171 "Return a function for updating translation in the current Quail package."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
172 (nth 13 quail-current-package))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
173 (defsubst quail-conversion-keymap ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
174 "Return conversion keymap in the current Quail package.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
175 Conversion keymap is a keymap used while conversion region is active
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
176 but translation region is not active."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
177 (nth 14 quail-current-package))
19849
1c5164d81426 (quail-simple): New function.
Kenichi Handa <handa@m17n.org>
parents: 19844
diff changeset
178 (defsubst quail-simple ()
1c5164d81426 (quail-simple): New function.
Kenichi Handa <handa@m17n.org>
parents: 19844
diff changeset
179 "Return t if the current Quail package is simple."
1c5164d81426 (quail-simple): New function.
Kenichi Handa <handa@m17n.org>
parents: 19844
diff changeset
180 (nth 15 quail-current-package))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
181
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
182 (defsubst quail-package (name)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
183 "Return Quail package named NAME."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
184 (assoc name quail-package-alist))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
185
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
186 (defun quail-add-package (package)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
187 "Add Quail package PACKAGE to `quail-package-alist'."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
188 (let ((pac (quail-package (car package))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
189 (if pac
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
190 (setcdr pac (cdr package))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
191 (setq quail-package-alist (cons package quail-package-alist)))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
192
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
193 (defun quail-select-package (name)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
194 "Select Quail package named NAME as the current Quail package."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
195 (let ((package (quail-package name)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
196 (if (null package)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
197 (error "No Quail package `%s'" name))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
198 (setq quail-current-package package)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
199 (setq-default quail-current-package package)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
200 name))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
201
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
202 ;;;###autoload
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
203 (defun quail-use-package (package-name &rest libraries)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
204 "Start using Quail package PACKAGE-NAME.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
205 The remaining arguments are libraries to be loaded before using the package."
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
206 (let ((package (quail-package package-name)))
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
207 (if (null package)
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
208 ;; Perhaps we have not yet loaded necessary libraries.
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
209 (while libraries
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
210 (if (not (load (car libraries) t))
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
211 (progn
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
212 (with-output-to-temp-buffer "*Help*"
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
213 (princ "Quail package \"")
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
214 (princ package-name)
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
215 (princ "\" can't be activated\n because library \"")
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
216 (princ (car libraries))
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
217 (princ "\" is not in `load-path'.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
218
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
219 The most common case is that you have not yet installed appropriate
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
220 libraries in LEIM (Libraries of Emacs Input Method) which is
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
221 distributed separately from Emacs.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
222
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
223 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
224 (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
225 (setq libraries (cdr libraries))))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
226 (quail-select-package package-name)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
227 (setq current-input-method-title (quail-title))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
228 (quail-activate))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
229
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
230 (defvar quail-translation-keymap
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
231 (let ((map (make-keymap))
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
232 (i 0))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
233 (while (< i ?\ )
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
234 (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
235 (setq i (1+ i)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
236 (while (< i 127)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
237 (define-key map (char-to-string i) 'quail-self-insert-command)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
238 (setq i (1+ i)))
19647
9b9af28bee8d (quail-translation-keymap): Do not bind
Kenichi Handa <handa@m17n.org>
parents: 19619
diff changeset
239 (setq i 128)
19655
47d11f4bbc6c (quail-translation-keymap): Fix previous
Kenichi Handa <handa@m17n.org>
parents: 19647
diff changeset
240 (while (< i 256)
19647
9b9af28bee8d (quail-translation-keymap): Do not bind
Kenichi Handa <handa@m17n.org>
parents: 19619
diff changeset
241 (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
242 (setq i (1+ i)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
243 (define-key map "\177" 'quail-delete-last-char)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
244 (define-key map "\C-f" 'quail-next-translation)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
245 (define-key map "\C-b" 'quail-prev-translation)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
246 (define-key map "\C-n" 'quail-next-translation-block)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
247 (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
248 (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
249 (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
250 (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
251 (define-key map [up] 'quail-prev-translation-block)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
252 (define-key map "\C-i" 'quail-completion)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
253 (define-key map "\C-@" 'quail-select-current)
20169
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
254 ;; 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
255 ;; 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
256 ;; any completion visible in the *Quail Completions* buffer.
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
257 (define-key map [kp-enter] 'quail-select-current)
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
258 (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
259 (define-key map [down-mouse-2] nil)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
260 (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
261 (define-key map [?\C- ] 'quail-select-current)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
262 (define-key map [tab] 'quail-completion)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
263 (define-key map [delete] 'quail-delete-last-char)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
264 (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
265 map)
19619
b033d0b34c71 (quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents: 19605
diff changeset
266 "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
267 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
268 most use `quail-simple-translation-keymap' instead.
b033d0b34c71 (quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents: 19605
diff changeset
269 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
270
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
271 (defvar quail-simple-translation-keymap
19619
b033d0b34c71 (quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents: 19605
diff changeset
272 (let ((map (make-keymap))
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
273 (i 0))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
274 (while (< i ?\ )
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
275 (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
276 (setq i (1+ i)))
19619
b033d0b34c71 (quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents: 19605
diff changeset
277 (while (< i 127)
b033d0b34c71 (quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents: 19605
diff changeset
278 (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
279 (setq i (1+ i)))
b033d0b34c71 (quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents: 19605
diff changeset
280 (define-key map "\177" 'quail-delete-last-char)
19951
820fc18dd520 (quail-simple-translation-keymap):
Richard M. Stallman <rms@gnu.org>
parents: 19949
diff changeset
281 (define-key map [delete] 'quail-delete-last-char)
820fc18dd520 (quail-simple-translation-keymap):
Richard M. Stallman <rms@gnu.org>
parents: 19949
diff changeset
282 (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
283 ;;(let ((meta-map (make-sparse-keymap)))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
284 ;;(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
285 ;;(define-key map [escape] meta-map))
19878
a69ae37e6932 (quail-update-translation): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 19849
diff changeset
286 map)
19619
b033d0b34c71 (quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents: 19605
diff changeset
287 "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
288 A few especially complex input methods use `quail-translation-keymap' instead.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
289 This map is activated while translation region is active.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
290
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
291 (defvar quail-conversion-keymap
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
292 (let ((map (make-keymap))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
293 (i ?\ ))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
294 (while (< i 127)
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
295 (define-key map (char-to-string i) 'quail-self-insert-command)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
296 (setq i (1+ i)))
19647
9b9af28bee8d (quail-translation-keymap): Do not bind
Kenichi Handa <handa@m17n.org>
parents: 19619
diff changeset
297 (setq i 128)
19655
47d11f4bbc6c (quail-translation-keymap): Fix previous
Kenichi Handa <handa@m17n.org>
parents: 19647
diff changeset
298 (while (< i 256)
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
299 (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
300 (setq i (1+ i)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
301 (define-key map "\C-b" 'quail-conversion-backward-char)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
302 (define-key map "\C-f" 'quail-conversion-forward-char)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
303 (define-key map "\C-a" 'quail-conversion-beginning-of-region)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
304 (define-key map "\C-e" 'quail-conversion-end-of-region)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
305 (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
306 (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
307 (define-key map "\C-h" 'quail-translation-help)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
308 (define-key map "\177" 'quail-conversion-backward-delete-char)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
309 (define-key map [delete] 'quail-conversion-backward-delete-char)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
310 (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
311 map)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
312 "Keymap used for processing conversion in Quail mode.
23176
3852eb64cf0e Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23172
diff changeset
313 This map is activated while conversion region is active but translation
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
314 region is not active.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
315
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
316 ;;;###autoload
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
317 (defun quail-define-package (name language title
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
318 &optional guidance docstring translation-keys
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
319 forget-last-selection deterministic
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
320 kbd-translate show-layout create-decode-map
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
321 maximum-shortest overlay-plist
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
322 update-translation-function
19619
b033d0b34c71 (quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents: 19605
diff changeset
323 conversion-keys simple)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
324 "Define NAME as a new Quail package for input LANGUAGE.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
325 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
326 Optional arguments are GUIDANCE, DOCSTRING, TRANSLATION-KEYS,
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
327 FORGET-LAST-SELECTION, DETERMINISTIC, KBD-TRANSLATE, SHOW-LAYOUT,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
328 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
329 UPDATE-TRANSLATION-FUNCTION, CONVERSION-KEYS and SIMPLE.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
330
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
331 GUIDANCE specifies how a guidance string is shown in echo area.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
332 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
333 with the currently selected translation being highlighted.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
334 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
335 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
336 shown.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
337 If it is nil, the current key is shown.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
338
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
339 DOCSTRING is the documentation string of this package.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
340
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
341 TRANSLATION-KEYS specifies additional key bindings used while translation
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
342 region is active. It is an alist of single key character vs. corresponding
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
343 command to be called.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
344
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
345 FORGET-LAST-SELECTION non-nil means a selected translation is not kept
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
346 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
347 translation selected for a key is remembered so that it can be the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
348 first candidate when the same key is entered later.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
349
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
350 DETERMINISTIC non-nil means the first candidate of translation is
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
351 selected automatically without allowing users to select another
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
352 translation for a key. In this case, unselected translations are of
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
353 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
354 programs. If this flag is non-nil, FORGET-LAST-SELECTION is also set
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
355 to t.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
356
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
357 KBD-TRANSLATE non-nil means input characters are translated from a
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
358 user's keyboard layout to the standard keyboard layout. See the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
359 documentation of `quail-keyboard-layout' and
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
360 `quail-keyboard-layout-standard' for more detail.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
361
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
362 SHOW-LAYOUT non-nil means the `quail-help' command should show
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
363 the user's keyboard layout visually with translated characters.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
364 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
365 this package defines no translations for single character keys.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
366
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
367 CREATE-DECODE-MAP non-nil means decode map is also created. A decode
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
368 map is an alist of translations and corresponding original keys.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
369 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
370 other programs. For instance, Vietnamese supporting needs this map to
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
371 convert Vietnamese text to VIQR format which uses only ASCII
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
372 characters to represent Vietnamese characters.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
373
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
374 MAXIMUM-SHORTEST non-nil means break key sequence to get maximum
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
375 length of the shortest sequence. When we don't have a translation of
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
376 key \"..ABCD\" but have translations of \"..AB\" and \"CD..\", break
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
377 the key at \"..AB\" and start translation of \"CD..\". Hangul
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
378 packages, for instance, use this facility. If this flag is nil, we
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
379 break the key just at \"..ABC\" and start translation of \"D..\".
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
380
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
381 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
382 covers Quail translation region.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
383
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
384 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
385 the current translation region according to a new translation data. By
3852eb64cf0e Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23172
diff changeset
386 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
387 for it) is inserted.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
388
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
389 CONVERSION-KEYS specifies additional key bindings used while
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
390 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
391 vs. corresponding command to be called.
b033d0b34c71 (quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents: 19605
diff changeset
392
b033d0b34c71 (quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents: 19605
diff changeset
393 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
394 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
395 non-Quail commands."
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
396 (let (translation-keymap conversion-keymap)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
397 (if deterministic (setq forget-last-selection t))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
398 (if translation-keys
19404
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
399 (progn
19619
b033d0b34c71 (quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents: 19605
diff changeset
400 (setq translation-keymap (copy-keymap
b033d0b34c71 (quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents: 19605
diff changeset
401 (if simple quail-simple-translation-keymap
b033d0b34c71 (quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents: 19605
diff changeset
402 quail-translation-keymap)))
19404
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
403 (while translation-keys
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
404 (define-key translation-keymap
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
405 (car (car translation-keys)) (cdr (car translation-keys)))
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
406 (setq translation-keys (cdr translation-keys))))
19619
b033d0b34c71 (quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents: 19605
diff changeset
407 (setq translation-keymap
b033d0b34c71 (quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents: 19605
diff changeset
408 (if simple quail-simple-translation-keymap
b033d0b34c71 (quail-define-package): New arg SIMPLE.
Richard M. Stallman <rms@gnu.org>
parents: 19605
diff changeset
409 quail-translation-keymap)))
19404
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
410 (when conversion-keys
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
411 (setq conversion-keymap (copy-keymap quail-conversion-keymap))
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
412 (while conversion-keys
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
413 (define-key conversion-keymap
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
414 (car (car conversion-keys)) (cdr (car conversion-keys)))
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
415 (setq conversion-keys (cdr conversion-keys))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
416 (quail-add-package
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
417 (list name title (list nil) guidance (or docstring "")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
418 translation-keymap
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
419 forget-last-selection deterministic kbd-translate show-layout
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
420 (if create-decode-map (list 'decode-map) nil)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
421 maximum-shortest overlay-plist update-translation-function
19849
1c5164d81426 (quail-simple): New function.
Kenichi Handa <handa@m17n.org>
parents: 19844
diff changeset
422 conversion-keymap simple))
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
423
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
424 ;; Update input-method-alist.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
425 (let ((slot (assoc name input-method-alist))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
426 (val (list language 'quail-use-package title docstring)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
427 (if slot (setcdr slot val)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
428 (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
429
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
430 (quail-select-package name))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
431
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
432 ;; Quail minor mode handlers.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
433
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
434 ;; Setup overlays used in Quail mode.
19404
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
435 (defun quail-setup-overlays (conversion-mode)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
436 (let ((pos (point)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
437 (if (overlayp quail-overlay)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
438 (move-overlay quail-overlay pos pos)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
439 (setq quail-overlay (make-overlay pos pos nil nil t))
19404
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
440 (if input-method-highlight-flag
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
441 (overlay-put quail-overlay 'face 'underline))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
442 (let ((l (quail-overlay-plist)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
443 (while l
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
444 (overlay-put quail-overlay (car l) (car (cdr l)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
445 (setq l (cdr (cdr l))))))
19404
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
446 (if conversion-mode
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
447 (if (overlayp quail-conv-overlay)
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
448 (if (not (overlay-start quail-conv-overlay))
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
449 (move-overlay quail-conv-overlay pos pos))
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
450 (setq quail-conv-overlay (make-overlay pos pos nil nil t))
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
451 (if input-method-highlight-flag
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
452 (overlay-put quail-conv-overlay 'face 'underline))))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
453
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
454 ;; Delete overlays used in Quail mode.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
455 (defun quail-delete-overlays ()
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
456 (if (and (overlayp quail-overlay) (overlay-start quail-overlay))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
457 (delete-overlay quail-overlay))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
458 (if (and (overlayp quail-conv-overlay) (overlay-start quail-conv-overlay))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
459 (delete-overlay quail-conv-overlay)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
460
19432
4492653b04e8 (quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents: 19404
diff changeset
461 ;; Kill Quail guidance buffer. Set in kill-buffer-hook.
4492653b04e8 (quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents: 19404
diff changeset
462 (defun quail-kill-guidance-buf ()
4492653b04e8 (quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents: 19404
diff changeset
463 (if (buffer-live-p quail-guidance-buf)
4492653b04e8 (quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents: 19404
diff changeset
464 (kill-buffer quail-guidance-buf)))
4492653b04e8 (quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents: 19404
diff changeset
465
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
466 (defun quail-inactivate ()
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
467 "Inactivate Quail input method."
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
468 (interactive)
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
469 (quail-activate -1))
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
470
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
471 (defun quail-activate (&optional arg)
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
472 "Activate Quail input method.
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
473 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
474
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
475 While this input method is active, the variable
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
476 `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
477 (if (and arg
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
478 (< (prefix-numeric-value arg) 0))
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
479 ;; Let's inactivate Quail input method.
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
480 (unwind-protect
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
481 (progn
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
482 (quail-hide-guidance-buf)
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
483 (quail-delete-overlays)
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
484 (setq describe-current-input-method-function nil)
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
485 (run-hooks 'quail-inactivate-hook))
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
486 (kill-local-variable 'input-method-function))
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
487 ;; Let's active Quail input method.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
488 (if (null quail-current-package)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
489 ;; Quail package is not yet selected. Select one now.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
490 (let (name)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
491 (if quail-package-alist
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
492 (setq name (car (car quail-package-alist)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
493 (error "No Quail package loaded"))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
494 (quail-select-package name)))
19404
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
495 (setq inactivate-current-input-method-function 'quail-inactivate)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
496 (setq describe-current-input-method-function 'quail-help)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
497 (quail-delete-overlays)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
498 (quail-show-guidance-buf)
19432
4492653b04e8 (quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents: 19404
diff changeset
499 ;; 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
500 ;; before exiting.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
501 (if (eq (selected-window) (minibuffer-window))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
502 (add-hook 'minibuffer-exit-hook 'quail-exit-from-minibuffer))
19432
4492653b04e8 (quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents: 19404
diff changeset
503 (make-local-hook 'kill-buffer-hook)
4492653b04e8 (quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents: 19404
diff changeset
504 (add-hook 'kill-buffer-hook 'quail-kill-guidance-buf nil t)
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
505 (run-hooks 'quail-activate-hook)
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
506 (make-local-variable 'input-method-function)
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
507 (setq input-method-function 'quail-input-method)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
508
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
509 (defun quail-exit-from-minibuffer ()
19432
4492653b04e8 (quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents: 19404
diff changeset
510 (inactivate-input-method)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
511 (if (<= (minibuffer-depth) 1)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
512 (remove-hook 'minibuffer-exit-hook 'quail-exit-from-minibuffer)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
513
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
514 ;; Keyboard layout translation handlers.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
515
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
516 ;; Some Quail packages provide localized keyboard simulation which
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
517 ;; requires a particular keyboard layout. In this case, what we need
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
518 ;; is locations of keys the user entered, not character codes
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
519 ;; generated by those keys. However, for the moment, there's no
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
520 ;; common way to get such information. So, we ask a user to give
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
521 ;; information of his own keyboard layout, then translate it to the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
522 ;; standard layout which we defined so that all Quail packages depend
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
523 ;; just on it.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
524
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
525 (defconst quail-keyboard-layout-standard
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
526 "\
17174
9c1191812679 (quail-translation-keymap): Add entry for escape key.
Kenichi Handa <handa@m17n.org>
parents: 17095
diff changeset
527 \
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
528 1!2@3#4$5%6^7&8*9(0)-_=+`~ \
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
529 qQwWeErRtTyYuUiIoOpP[{]} \
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
530 aAsSdDfFgGhHjJkKlL;:'\"\\| \
17174
9c1191812679 (quail-translation-keymap): Add entry for escape key.
Kenichi Handa <handa@m17n.org>
parents: 17095
diff changeset
531 zZxXcCvVbBnNmM,<.>/? \
9c1191812679 (quail-translation-keymap): Add entry for escape key.
Kenichi Handa <handa@m17n.org>
parents: 17095
diff changeset
532 "
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
533 "Standard keyboard layout of printable characters Quail assumes.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
534 See the documentation of `quail-keyboard-layout' for this format.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
535 This layout is almost the same as that of VT100,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
536 but the location of key \\ (backslash) is just right of key ' (single-quote),
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
537 not right of RETURN key.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
538
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
539 (defvar quail-keyboard-layout quail-keyboard-layout-standard
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
540 "A string which represents physical key layout of a particular keyboard.
17174
9c1191812679 (quail-translation-keymap): Add entry for escape key.
Kenichi Handa <handa@m17n.org>
parents: 17095
diff changeset
541 We assume there are six rows and each row has 15 keys (columns),
9c1191812679 (quail-translation-keymap): Add entry for escape key.
Kenichi Handa <handa@m17n.org>
parents: 17095
diff changeset
542 the first row is above the `1' - `0' row,
9c1191812679 (quail-translation-keymap): Add entry for escape key.
Kenichi Handa <handa@m17n.org>
parents: 17095
diff changeset
543 the first column of the second row is left of key `1',
9c1191812679 (quail-translation-keymap): Add entry for escape key.
Kenichi Handa <handa@m17n.org>
parents: 17095
diff changeset
544 the first column of the third row is left of key `q',
9c1191812679 (quail-translation-keymap): Add entry for escape key.
Kenichi Handa <handa@m17n.org>
parents: 17095
diff changeset
545 the first column of the fourth row is left of key `a',
9c1191812679 (quail-translation-keymap): Add entry for escape key.
Kenichi Handa <handa@m17n.org>
parents: 17095
diff changeset
546 the first column of the fifth row is left of key `z',
9c1191812679 (quail-translation-keymap): Add entry for escape key.
Kenichi Handa <handa@m17n.org>
parents: 17095
diff changeset
547 the sixth row is below the `z' - `/' row.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
548 Nth (N is even) and (N+1)th characters in the string are non-shifted
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
549 and shifted characters respectively at the same location.
19391
763bc03e7797 (quail-guidance-buf): Now a permanent local.
Richard M. Stallman <rms@gnu.org>
parents: 19327
diff changeset
550 The location of Nth character is row (N / 30) and column ((N mod 30) / 2).
763bc03e7797 (quail-guidance-buf): Now a permanent local.
Richard M. Stallman <rms@gnu.org>
parents: 19327
diff changeset
551 The command `quail-set-keyboard-layout' usually sets this variable.")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
552
17174
9c1191812679 (quail-translation-keymap): Add entry for escape key.
Kenichi Handa <handa@m17n.org>
parents: 17095
diff changeset
553 (defconst quail-keyboard-layout-len 180)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
554
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
555 ;; Here we provide several examples of famous keyboard layouts.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
556
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
557 (defvar quail-keyboard-layout-alist
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
558 (list
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
559 '("sun-type3" . "\
17174
9c1191812679 (quail-translation-keymap): Add entry for escape key.
Kenichi Handa <handa@m17n.org>
parents: 17095
diff changeset
560 \
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
561 1!2@3#4$5%6^7&8*9(0)-_=+\\|`~\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
562 qQwWeErRtTyYuUiIoOpP[{]} \
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
563 aAsSdDfFgGhHjJkKlL;:'\" \
17174
9c1191812679 (quail-translation-keymap): Add entry for escape key.
Kenichi Handa <handa@m17n.org>
parents: 17095
diff changeset
564 zZxXcCvVbBnNmM,<.>/? \
9c1191812679 (quail-translation-keymap): Add entry for escape key.
Kenichi Handa <handa@m17n.org>
parents: 17095
diff changeset
565 ")
19675
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
566 '("atari-german" . "\
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
567 \
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
568 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
569 qQwWeErRtTzZuUiIoOpP\374\334+* \
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
570 aAsSdDfFgGhHjJkKlL\366\326\344\304~| \
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
571 <>yYxXcCvVbBnNmM,;.:-_ \
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
572 ")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
573 (cons "standard" quail-keyboard-layout-standard))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
574 "Alist of keyboard names and corresponding layout strings.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
575 See the documentation of `quail-keyboard-layout' for the format of
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
576 the layout string.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
577
19949
ad6d3d0b2cb4 (quail-set-keyboard-layout): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 19944
diff changeset
578 ;;;###autoload
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
579 (defun quail-set-keyboard-layout (kbd-type)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
580 "Set the current keyboard layout to the same as keyboard KBD-TYPE.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
581
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
582 Since some Quail packages depends on a physical layout of keys (not
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
583 characters generated by them), those are created by assuming the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
584 standard layout defined in `quail-keyboard-layout-standard'. This
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
585 function tells Quail system the layout of your keyboard so that what
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
586 you type is correctly handled."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
587 (interactive
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
588 (let* ((completing-ignore-case t)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
589 (type (completing-read "Keyboard type: "
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
590 quail-keyboard-layout-alist)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
591 (list type)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
592 (let ((layout (assoc kbd-type quail-keyboard-layout-alist)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
593 (if (null layout)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
594 ;; Here, we had better ask a user to define his own keyboard
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
595 ;; layout interactively.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
596 (error "Unknown keyboard type `%s'" kbd-type))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
597 (setq quail-keyboard-layout (cdr layout))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
598
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
599 (defun quail-keyboard-translate (ch)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
600 "Translate CHAR according to `quail-keyboard-layout' and return the result."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
601 (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
602 ;; All Quail packages are designed based on
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
603 ;; `quail-keyboard-layout-standard'.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
604 ch
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
605 (let ((i 0))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
606 (while (and (< i quail-keyboard-layout-len)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
607 (/= ch (aref quail-keyboard-layout i)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
608 (setq i (1+ i)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
609 (if (= i quail-keyboard-layout-len)
19675
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
610 ;; CH is not in quail-keyboard-layout, which means that a
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
611 ;; user typed a key which generated a character code to be
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
612 ;; handled out of Quail. Just return CH and make
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
613 ;; quail-execute-non-quail-command handle it correctly.
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
614 ch
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
615 (let ((char (aref quail-keyboard-layout-standard i)))
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
616 (if (= char ?\ )
23176
3852eb64cf0e Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23172
diff changeset
617 ;; A user typed a key at the location not converted by
19675
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
618 ;; quail-keyboard-layout-standard. Just return CH as
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
619 ;; well as above.
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
620 ch
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
621 char))))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
622
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
623 ;; Quail map
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
624
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
625 (defsubst quail-map-p (object)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
626 "Return t if OBJECT is a Quail map.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
627
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
628 A Quail map holds information how a particular key should be translated.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
629 Its format is (TRANSLATION . ALIST).
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
630 TRANSLATION is either a character, or a cons (INDEX . VECTOR).
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
631 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
632 and INDEX points the currently selected translation.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
633
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
634 ALIST is normally a list of elements that look like (CHAR . DEFN),
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
635 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
636 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
637 alist of the above format.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
638
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
639 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
640 vector. Then each element of the string or vector is a candidate for
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
641 the translation. These objects are transformed to cons cells in the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
642 format \(INDEX . VECTOR), as described above."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
643 (and (consp object)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
644 (let ((translation (car object)))
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
645 (or (integerp translation) (null translation)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
646 (vectorp translation) (stringp translation)
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
647 (symbolp translation)
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
648 (and (consp translation) (not (vectorp (cdr translation))))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
649 (let ((alist (cdr object)))
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
650 (or (and (listp alist) (consp (car alist)))
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
651 (symbolp alist)))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
652
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
653 ;;;###autoload
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
654 (defmacro quail-define-rules (&rest rules)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
655 "Define translation rules of the current Quail package.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
656 Each argument is a list of KEY and TRANSLATION.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
657 KEY is a string meaning a sequence of keystrokes to be translated.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
658 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
659 If it is a character, it is the sole translation of KEY.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
660 If it is a string, each character is a candidate for the translation.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
661 If it is a vector, each element (string or character) is a candidate
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
662 for the translation.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
663 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
664
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
665 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
666 it is used to handle KEY."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
667 `(quail-install-map
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
668 ',(let ((l rules)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
669 (map (list nil)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
670 (while l
21082
ca3bd6ec875d (quail-defrule-internal): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents: 20728
diff changeset
671 (quail-defrule-internal (car (car l)) (car (cdr (car l))) map t)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
672 (setq l (cdr l)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
673 map)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
674
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
675 ;;;###autoload
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
676 (defun quail-install-map (map)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
677 "Install the Quail map MAP in the current Quail package.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
678 The installed map can be referred by the function `quail-map'."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
679 (if (null quail-current-package)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
680 (error "No current Quail package"))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
681 (if (null (quail-map-p map))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
682 (error "Invalid Quail map `%s'" map))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
683 (setcar (cdr (cdr quail-current-package)) map))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
684
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
685 ;;;###autoload
23401
a83ca83c8626 (quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents: 23304
diff changeset
686 (defun quail-defrule (key translation &optional name append)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
687 "Add one translation rule, KEY to TRANSLATION, in the current Quail package.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
688 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
689 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
690 a function, or a cons.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
691 It it is a character, it is the sole translation of KEY.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
692 If it is a string, each character is a candidate for the translation.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
693 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
694 for the translation.
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
695 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
696 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
697 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
698 the value itself is assigned to `quail-current-data'.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
699 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
700
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
701 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
702 it is used to handle KEY.
23401
a83ca83c8626 (quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents: 23304
diff changeset
703
a83ca83c8626 (quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents: 23304
diff changeset
704 Optional 3rd argument NAME, if specified, says which Quail package
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
705 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
706 current Quail package.
a83ca83c8626 (quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents: 23304
diff changeset
707
a83ca83c8626 (quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents: 23304
diff changeset
708 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
709 to the current translations for KEY instead of replacing them."
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
710 (if name
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
711 (let ((package (quail-package name)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
712 (if (null package)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
713 (error "No Quail package `%s'" name))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
714 (setq quail-current-package package)))
23401
a83ca83c8626 (quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents: 23304
diff changeset
715 (quail-defrule-internal key translation (quail-map) append))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
716
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
717 ;;;###autoload
21082
ca3bd6ec875d (quail-defrule-internal): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents: 20728
diff changeset
718 (defun quail-defrule-internal (key trans map &optional append)
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
719 "Define KEY as TRANS in a Quail map MAP."
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
720 (if (null (stringp key))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
721 "Invalid Quail key `%s'" key)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
722 (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
723 (consp trans)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
724 (symbolp trans)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
725 (quail-map-p trans)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
726 (error "Invalid Quail translation `%s'" trans))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
727 (if (null (quail-map-p map))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
728 (error "Invalid Quail map `%s'" map))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
729 (let ((len (length key))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
730 (idx 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
731 ch entry)
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
732 ;; Make a map for registering TRANS if necessary.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
733 (while (< idx len)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
734 (if (null (consp map))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
735 ;; We come here, for example, when we try to define a rule
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
736 ;; for "ABC" but a rule for "AB" is already defined as a
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
737 ;; symbol.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
738 (error "Quail key %s is too long" key))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
739 (setq ch (aref key idx)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
740 entry (assq ch (cdr map)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
741 (if (null entry)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
742 (progn
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
743 (setq entry (cons ch (list nil)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
744 (setcdr map (cons entry (cdr map)))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
745 (setq map (cdr entry))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
746 (setq idx (1+ idx)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
747 (if (symbolp trans)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
748 (if (cdr map)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
749 ;; We come here, for example, when we try to define a rule
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
750 ;; for "AB" as a symbol but a rule for "ABC" is already
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
751 ;; defined.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
752 (error "Quail key %s is too short" key)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
753 (setcdr entry trans))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
754 (if (quail-map-p trans)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
755 (if (not (listp (cdr map)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
756 ;; We come here, for example, when we try to define a rule
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
757 ;; for "AB" as a symbol but a rule for "ABC" is already
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
758 ;; defined.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
759 (error "Quail key %s is too short" key)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
760 (if (not (listp (cdr trans)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
761 (if (cdr map)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
762 ;; We come here, for example, when we try to
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
763 ;; define a rule for "AB" as a symbol but a rule
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
764 ;; for "ABC" is already defined.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
765 (error "Quail key %s is too short" key)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
766 (setcdr entry trans))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
767 (setcdr entry (append trans (cdr map)))))
23401
a83ca83c8626 (quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents: 23304
diff changeset
768 (if (and (car map) append)
a83ca83c8626 (quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents: 23304
diff changeset
769 (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
770 (if (integerp prev)
a83ca83c8626 (quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents: 23304
diff changeset
771 (setq prev (vector prev))
a83ca83c8626 (quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents: 23304
diff changeset
772 (setq prev (cdr prev)))
a83ca83c8626 (quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents: 23304
diff changeset
773 (if (integerp trans)
a83ca83c8626 (quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents: 23304
diff changeset
774 (setq trans (vector trans))
a83ca83c8626 (quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents: 23304
diff changeset
775 (if (stringp trans)
a83ca83c8626 (quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents: 23304
diff changeset
776 (setq trans (string-to-vector trans))))
a83ca83c8626 (quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents: 23304
diff changeset
777 (setq trans
a83ca83c8626 (quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents: 23304
diff changeset
778 (cons (list 0 0 0 0 nil)
a83ca83c8626 (quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents: 23304
diff changeset
779 (vconcat prev trans)))))
a83ca83c8626 (quail-defrule): New optional arg APPEND.
Kenichi Handa <handa@m17n.org>
parents: 23304
diff changeset
780 (setcar map trans)))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
781
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
782 (defun quail-get-translation (def key len)
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
783 "Return the translation specified as DEF for KEY of length LEN.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
784 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
785 where VECTOR is a vector of candidates (character or string) for
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
786 the translation, and INDEX points into VECTOR to specify the currently
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
787 selected translation."
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
788 (if (and def (symbolp def))
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
789 ;; DEF is a symbol of a function which returns valid translation.
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
790 (setq def (funcall def key len)))
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
791 (if (and (consp def) (not (vectorp (cdr def))))
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
792 (setq def (car def)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
793
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
794 (cond
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
795 ((or (integerp def) (consp def))
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
796 def)
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
797
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
798 ((null def)
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
799 ;; No translation.
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
800 nil)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
801
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
802 ((stringp def)
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
803 ;; Each character in DEF is a candidate of translation. Reform
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
804 ;; it as (INDICES . VECTOR).
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
805 (setq def (string-to-vector def))
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
806 ;; But if the length is 1, we don't need vector but a single
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
807 ;; candidate as the translation.
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
808 (if (= (length def) 1)
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
809 (aref def 0)
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
810 (cons (list 0 0 0 0 nil) def)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
811
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
812 ((vectorp def)
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
813 ;; Each element (string or character) in DEF is a candidate of
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
814 ;; translation. Reform it as (INDICES . VECTOR).
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
815 (cons (list 0 0 0 0 nil) def))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
816
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
817 (t
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
818 (error "Invalid object in Quail map: %s" def))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
819
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
820 (defun quail-lookup-key (key &optional len)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
821 "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
822 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
823 (or len
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
824 (setq len (length key)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
825 (let ((idx 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
826 (map (quail-map))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
827 (kbd-translate (quail-kbd-translate))
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
828 slot ch translation def)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
829 (while (and map (< idx len))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
830 (setq ch (if kbd-translate (quail-keyboard-translate (aref key idx))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
831 (aref key idx)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
832 (setq idx (1+ idx))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
833 (if (and (cdr map) (symbolp (cdr map)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
834 (setcdr map (funcall (cdr map) key idx)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
835 (setq slot (assq ch (cdr map)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
836 (if (and (cdr slot) (symbolp (cdr slot)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
837 (setcdr slot (funcall (cdr slot) key idx)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
838 (setq map (cdr slot)))
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
839 (setq def (car map))
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
840 (setq quail-current-translations nil)
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
841 (if (and map (setq translation (quail-get-translation def key len)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
842 (progn
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
843 (if (and (consp def) (not (vectorp (cdr def))))
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
844 (progn
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
845 (if (not (equal (car def) translation))
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
846 ;; We must reflect TRANSLATION to car part of DEF.
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
847 (setcar def translation))
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
848 (setq quail-current-data
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
849 (if (functionp (cdr def))
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
850 (funcall (cdr def))
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
851 (cdr def))))
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
852 (if (not (equal def translation))
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
853 ;; We must reflect TRANSLATION to car part of MAP.
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
854 (setcar map translation)))
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
855 (if (and (consp translation) (vectorp (cdr translation)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
856 (progn
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
857 (setq quail-current-translations translation)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
858 (if (quail-forget-last-selection)
24238
20d23ea9713b (quail-lookup-key): If cdr of MAP is a
Kenichi Handa <handa@m17n.org>
parents: 23887
diff changeset
859 (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
860 ;; 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
861 (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
862 (setcdr map (funcall (cdr map) key len)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
863 map))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
864
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
865 (put 'quail-error 'error-conditions '(quail-error error))
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
866 (defun quail-error (&rest args)
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
867 (signal 'quail-error (apply 'format args)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
868
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
869 (defvar quail-translating nil)
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
870 (defvar quail-converting nil)
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
871 (defvar quail-conversion-str nil)
18201
feea31893155 (quail-prefix-arg): New variable.
Kenichi Handa <handa@m17n.org>
parents: 17764
diff changeset
872
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
873 (defun quail-input-method (key)
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
874 (if (or buffer-read-only
22777
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
875 overriding-terminal-local-map
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
876 overriding-local-map)
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
877 (list key)
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
878 (quail-setup-overlays (quail-conversion-keymap))
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
879 (let ((modified-p (buffer-modified-p))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
880 (buffer-undo-list t))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
881 (or (and quail-guidance-win
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
882 (window-live-p quail-guidance-win)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
883 (eq (window-buffer quail-guidance-win) quail-guidance-buf)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
884 (not input-method-use-echo-area))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
885 (quail-show-guidance-buf))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
886 (unwind-protect
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
887 (if (quail-conversion-keymap)
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
888 (quail-start-conversion key)
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
889 (quail-start-translation key))
22777
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
890 (quail-delete-overlays)
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
891 (if (buffer-live-p quail-guidance-buf)
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
892 (save-excursion
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
893 (set-buffer quail-guidance-buf)
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
894 (erase-buffer)))
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
895 (if input-method-use-echo-area
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
896 (quail-hide-guidance-buf))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
897 (set-buffer-modified-p modified-p)
22777
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
898 ;; 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
899 ;; conversion. When conversion is required, the conversion function
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
900 ;; should run this hook at a proper timing.
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
901 (unless (quail-conversion-keymap)
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
902 (run-hooks 'input-method-after-insert-chunk-hook))))))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
903
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
904 (defun quail-overlay-region-events (overlay)
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
905 (let ((start (overlay-start overlay))
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
906 (end (overlay-end overlay)))
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
907 (if (< start end)
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
908 (prog1
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
909 (string-to-list (buffer-substring start end))
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
910 (delete-region start end)))))
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
911
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
912 (defsubst quail-delete-region ()
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
913 "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
914 (if (overlay-start quail-overlay)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
915 (delete-region (overlay-start quail-overlay)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
916 (overlay-end quail-overlay))))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
917
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
918 (defun quail-start-translation (key)
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
919 "Start translation of the typed character KEY by the current Quail package."
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
920 ;; Check the possibility of translating KEY.
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
921 ;; 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
922 (if (or (and (integerp key)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
923 (assq (if (quail-kbd-translate)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
924 (quail-keyboard-translate key) key)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
925 (cdr (quail-map))))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
926 (null key))
23176
3852eb64cf0e Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23172
diff changeset
927 ;; OK, we can start translation.
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
928 (let* ((echo-keystrokes 0)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
929 (help-char nil)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
930 (overriding-terminal-local-map (quail-translation-keymap))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
931 (generated-events nil)
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
932 (input-method-function nil))
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
933 (setq quail-current-key ""
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
934 quail-current-str ""
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
935 quail-translating t)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
936 (if key
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
937 (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
938 (while quail-translating
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
939 (let* ((keyseq (read-key-sequence
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
940 (and input-method-use-echo-area
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
941 (concat input-method-previous-message
23599
ab69e7987be0 (quail-start-translation): Handle
Kenichi Handa <handa@m17n.org>
parents: 23401
diff changeset
942 quail-current-str))
ab69e7987be0 (quail-start-translation): Handle
Kenichi Handa <handa@m17n.org>
parents: 23401
diff changeset
943 nil nil t))
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
944 (cmd (lookup-key (quail-translation-keymap) keyseq)))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
945 (if (if key
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
946 (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
947 (eq cmd 'quail-self-insert-command))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
948 (progn
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
949 (setq key t)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
950 (setq last-command-event (aref keyseq (1- (length keyseq)))
22777
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
951 last-command this-command
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
952 this-command cmd)
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
953 (condition-case err
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
954 (call-interactively cmd)
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
955 (quail-error (message "%s" (cdr err)) (beep))))
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
956 ;; KEYSEQ is not defined in the translation keymap.
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
957 ;; Let's return the event(s) to the caller.
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
958 (setq generated-events
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
959 (string-to-list (this-single-command-raw-keys)))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
960 (setq quail-translating nil))))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
961 (quail-delete-region)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
962 (if (and quail-current-str (> (length quail-current-str) 0))
22793
c3ab1de66dfc (quail-simple-translation-keymap): Typo
Kenichi Handa <handa@m17n.org>
parents: 22777
diff changeset
963 (setq generated-events
22984
26d07a757c55 (quail-start-translation): If
Kenichi Handa <handa@m17n.org>
parents: 22930
diff changeset
964 (append (string-to-list
26d07a757c55 (quail-start-translation): If
Kenichi Handa <handa@m17n.org>
parents: 22930
diff changeset
965 (if enable-multibyte-characters
26d07a757c55 (quail-start-translation): If
Kenichi Handa <handa@m17n.org>
parents: 22930
diff changeset
966 quail-current-str
26d07a757c55 (quail-start-translation): If
Kenichi Handa <handa@m17n.org>
parents: 22930
diff changeset
967 (string-make-unibyte quail-current-str)))
26d07a757c55 (quail-start-translation): If
Kenichi Handa <handa@m17n.org>
parents: 22930
diff changeset
968 generated-events)))
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
969 (if (and input-method-exit-on-first-char generated-events)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
970 (list (car generated-events))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
971 generated-events))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
972
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
973 ;; Since KEY doesn't start any translation, just return it.
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
974 (list key)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
975
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
976 (defun quail-start-conversion (key)
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
977 "Start conversion of the typed character KEY by the current Quail package."
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
978 ;; Check the possibility of translating KEY.
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
979 ;; 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
980 (if (or (and (integerp key)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
981 (assq (if (quail-kbd-translate)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
982 (quail-keyboard-translate key) key)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
983 (cdr (quail-map))))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
984 (null key))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
985 ;; Ok, we can start translation and conversion.
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
986 (let* ((echo-keystrokes 0)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
987 (help-char nil)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
988 (overriding-terminal-local-map (quail-conversion-keymap))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
989 (generated-events nil)
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
990 (input-method-function nil))
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
991 (setq quail-current-key ""
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
992 quail-current-str ""
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
993 quail-translating t
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
994 quail-converting t
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
995 quail-conversion-str "")
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
996 (if key
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
997 (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
998 (while quail-converting
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
999 (or quail-translating
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1000 (progn
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1001 (setq quail-current-key ""
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1002 quail-current-str ""
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1003 quail-translating t)
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1004 (quail-setup-overlays nil)))
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1005 (let* ((keyseq (read-key-sequence
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1006 (and input-method-use-echo-area
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1007 (concat input-method-previous-message
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1008 quail-conversion-str
23599
ab69e7987be0 (quail-start-translation): Handle
Kenichi Handa <handa@m17n.org>
parents: 23401
diff changeset
1009 quail-current-str))
ab69e7987be0 (quail-start-translation): Handle
Kenichi Handa <handa@m17n.org>
parents: 23401
diff changeset
1010 nil nil t))
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1011 (cmd (lookup-key (quail-conversion-keymap) keyseq)))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1012 (if (if key (commandp cmd) (eq cmd 'quail-self-insert-command))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1013 (progn
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1014 (setq key t)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1015 (setq last-command-event (aref keyseq (1- (length keyseq)))
22777
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
1016 last-command this-command
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
1017 this-command cmd)
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1018 (condition-case err
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1019 (call-interactively cmd)
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1020 (quail-error (message "%s" (cdr err)) (beep)))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1021 (or quail-translating
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1022 (progn
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1023 (if quail-current-str
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1024 (setq quail-conversion-str
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1025 (concat quail-conversion-str
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1026 (if (stringp quail-current-str)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1027 quail-current-str
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1028 (char-to-string quail-current-str)))))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1029 (if input-method-exit-on-first-char
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1030 (setq quail-converting nil)))))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1031 ;; KEYSEQ is not defined in the conversion keymap.
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1032 ;; Let's return the event(s) to the caller.
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1033 (setq generated-events
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1034 (string-to-list (this-single-command-raw-keys)))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1035 (setq quail-converting nil))))
22793
c3ab1de66dfc (quail-simple-translation-keymap): Typo
Kenichi Handa <handa@m17n.org>
parents: 22777
diff changeset
1036 (if (overlay-start quail-conv-overlay)
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1037 (delete-region (overlay-start quail-conv-overlay)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1038 (overlay-end quail-conv-overlay)))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1039 (if (> (length quail-conversion-str) 0)
22793
c3ab1de66dfc (quail-simple-translation-keymap): Typo
Kenichi Handa <handa@m17n.org>
parents: 22777
diff changeset
1040 (setq generated-events
22984
26d07a757c55 (quail-start-translation): If
Kenichi Handa <handa@m17n.org>
parents: 22930
diff changeset
1041 (append (string-to-list
26d07a757c55 (quail-start-translation): If
Kenichi Handa <handa@m17n.org>
parents: 22930
diff changeset
1042 (if enable-multibyte-characters
26d07a757c55 (quail-start-translation): If
Kenichi Handa <handa@m17n.org>
parents: 22930
diff changeset
1043 quail-conversion-str
26d07a757c55 (quail-start-translation): If
Kenichi Handa <handa@m17n.org>
parents: 22930
diff changeset
1044 (string-make-unibyte quail-conversion-str)))
22793
c3ab1de66dfc (quail-simple-translation-keymap): Typo
Kenichi Handa <handa@m17n.org>
parents: 22777
diff changeset
1045 generated-events)))
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1046 (if (and input-method-exit-on-first-char generated-events)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1047 (list (car generated-events))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1048 generated-events))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1049
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1050 ;; Since KEY doesn't start any translation, just return it.
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1051 (list key)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1053 (defun quail-terminate-translation ()
19519
1c0ecc266e38 (quail-terminate-translation): Doc-string
Kenichi Handa <handa@m17n.org>
parents: 19453
diff changeset
1054 "Terminate the translation of the current key."
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1055 (setq quail-translating nil)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1056 (if (buffer-live-p quail-guidance-buf)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1057 (save-excursion
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1058 (set-buffer quail-guidance-buf)
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1059 (erase-buffer))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1060
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1061 (defun quail-select-current ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1062 "Select the current text shown in Quail translation region."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1063 (interactive)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1064 (quail-terminate-translation))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1065
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1066 ;; Update the current translation status according to CONTROL-FLAG.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1067 ;; If CONTROL-FLAG is integer value, it is the number of keys in the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1068 ;; head quail-current-key which can be translated. The remaining keys
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1069 ;; are put back to unread-command-events to be handled again. If
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1070 ;; CONTROL-FLAG is t, terminate the translation for the whole keys in
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1071 ;; quail-current-key. If CONTROL-FLAG is nil, proceed the translation
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1072 ;; with more keys.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1073
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1074 (defun quail-update-translation (control-flag)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1075 (let ((func (quail-update-translation-function)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1076 (if func
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1077 (setq control-flag (funcall func control-flag))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1078 (if (numberp control-flag)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1079 (let ((len (length quail-current-key)))
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1080 (if (= len 1)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1081 (setq control-flag t
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1082 quail-current-str quail-current-key)
23304
3a7a029df593 (quail-update-guidance): Check for the
Kenichi Handa <handa@m17n.org>
parents: 23176
diff changeset
1083 (if input-method-exit-on-first-char
3a7a029df593 (quail-update-guidance): Check for the
Kenichi Handa <handa@m17n.org>
parents: 23176
diff changeset
1084 (setq len control-flag)
3a7a029df593 (quail-update-guidance): Check for the
Kenichi Handa <handa@m17n.org>
parents: 23176
diff changeset
1085 (while (> len control-flag)
3a7a029df593 (quail-update-guidance): Check for the
Kenichi Handa <handa@m17n.org>
parents: 23176
diff changeset
1086 (setq len (1- len))
3a7a029df593 (quail-update-guidance): Check for the
Kenichi Handa <handa@m17n.org>
parents: 23176
diff changeset
1087 (setq unread-command-events
3a7a029df593 (quail-update-guidance): Check for the
Kenichi Handa <handa@m17n.org>
parents: 23176
diff changeset
1088 (cons (aref quail-current-key len)
3a7a029df593 (quail-update-guidance): Check for the
Kenichi Handa <handa@m17n.org>
parents: 23176
diff changeset
1089 unread-command-events))))
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1090 (if quail-current-str
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1091 (if input-method-exit-on-first-char
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1092 (setq control-flag t))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1093 (setq quail-current-str
22930
72582ab5369d (quail-update-translation): Delete the
Kenichi Handa <handa@m17n.org>
parents: 22917
diff changeset
1094 (substring quail-current-key 0 len)))))
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1095 (if quail-current-str
23304
3a7a029df593 (quail-update-guidance): Check for the
Kenichi Handa <handa@m17n.org>
parents: 23176
diff changeset
1096 (if (and input-method-exit-on-first-char
3a7a029df593 (quail-update-guidance): Check for the
Kenichi Handa <handa@m17n.org>
parents: 23176
diff changeset
1097 (quail-simple))
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1098 (setq control-flag t))
23304
3a7a029df593 (quail-update-guidance): Check for the
Kenichi Handa <handa@m17n.org>
parents: 23176
diff changeset
1099 (setq quail-current-str quail-current-key)))))
3a7a029df593 (quail-update-guidance): Check for the
Kenichi Handa <handa@m17n.org>
parents: 23176
diff changeset
1100 (or input-method-use-echo-area
3a7a029df593 (quail-update-guidance): Check for the
Kenichi Handa <handa@m17n.org>
parents: 23176
diff changeset
1101 (progn
3a7a029df593 (quail-update-guidance): Check for the
Kenichi Handa <handa@m17n.org>
parents: 23176
diff changeset
1102 (quail-delete-region)
3a7a029df593 (quail-update-guidance): Check for the
Kenichi Handa <handa@m17n.org>
parents: 23176
diff changeset
1103 (insert quail-current-str)))
3a7a029df593 (quail-update-guidance): Check for the
Kenichi Handa <handa@m17n.org>
parents: 23176
diff changeset
1104 (let (quail-current-str)
3a7a029df593 (quail-update-guidance): Check for the
Kenichi Handa <handa@m17n.org>
parents: 23176
diff changeset
1105 (quail-update-guidance))
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1106 (or (stringp quail-current-str)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1107 (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
1108 (if control-flag
4492653b04e8 (quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents: 19404
diff changeset
1109 (quail-terminate-translation)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1110
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1111 (defun quail-self-insert-command ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1112 "Add the typed character to the key for translation."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1113 (interactive "*")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1114 (setq quail-current-key
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1115 (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
1116 (or (catch 'quail-tag
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1117 (quail-update-translation (quail-translate-key))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1118 t)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1119 ;; 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
1120 ;; translation mode.
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1121 (setq quail-translating nil)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1122
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1123 ;; Return the actual definition part of Quail map MAP.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1124 (defun quail-map-definition (map)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1125 (let ((def (car map)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1126 (if (and (consp def) (not (vectorp (cdr def))))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1127 (setq def (car def)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1128 def))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1129
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1130 ;; Return a string to be shown as the current translation of key
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1131 ;; sequence of length LEN. DEF is a definition part of Quail map for
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1132 ;; the sequence.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1133 (defun quail-get-current-str (len def)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1134 (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
1135 def
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1136 (and (> len 1)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1137 (let ((str (quail-get-current-str
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1138 (1- len)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1139 (quail-map-definition (quail-lookup-key
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1140 quail-current-key (1- len))))))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1141 (if str
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1142 (concat (if (stringp str) str (char-to-string str))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1143 (substring quail-current-key (1- len) len)))))))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1144
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1145 (defvar quail-guidance-translations-starting-column 20)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1146
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1147 ;; Update `quail-current-translations' to make RELATIVE-INDEX the
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1148 ;; current translation.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1149 (defun quail-update-current-translations (&optional relative-index)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1150 (let* ((indices (car quail-current-translations))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1151 (cur (car indices))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1152 (start (nth 1 indices))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1153 (end (nth 2 indices)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1154 ;; Validate the index number of current translation.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1155 (if (< cur 0)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1156 (setcar indices (setq cur 0))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1157 (if (>= cur (length (cdr quail-current-translations)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1158 (setcar indices
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1159 (setq cur (1- (length (cdr quail-current-translations)))))))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1160
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1161 (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
1162 (< cur start) ; We moved to the previous block.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1163 (>= cur end)) ; We moved to the next block.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1164 (let ((len (length (cdr quail-current-translations)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1165 (maxcol (- (window-width quail-guidance-win)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1166 quail-guidance-translations-starting-column))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1167 (block (nth 3 indices))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1168 col idx width trans num-items blocks)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1169 (if (< cur start)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1170 ;; We must calculate from the head.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1171 (setq start 0 block 0)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1172 (if end ; i.e. (>= cur end)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1173 (setq start end)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1174 (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
1175 ;; 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
1176 (while (and (< idx len) (>= cur end))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1177 (if (= num-items 0)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1178 (setq start idx col 0 block (1+ block)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1179 (setq trans (aref (cdr quail-current-translations) idx))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1180 (setq width (if (integerp trans) (char-width trans)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1181 (string-width trans)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1182 (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
1183 (if (and (> num-items 0)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1184 (or (>= col maxcol) (> num-items 10)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1185 (setq end idx num-items 0)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1186 (setq idx (1+ idx))))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1187 (setcar (nthcdr 3 indices) block)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1188 (if (>= idx len)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1189 (progn
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1190 ;; We hit the tail before reaching MAXCOL.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1191 (setq end idx)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1192 (setcar (nthcdr 4 indices) block)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1193 (setcar (cdr indices) start)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1194 (setcar (nthcdr 2 indices) end)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1195 (if relative-index
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1196 (if (>= (+ start relative-index) end)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1197 (setcar indices end)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1198 (setcar indices (+ start relative-index))))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1199 (setq quail-current-str
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1200 (aref (cdr quail-current-translations) (car indices)))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1201 (or (stringp quail-current-str)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1202 (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
1203
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1204 (defun quail-translate-key ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1205 "Translate the current key sequence according to the current Quail map.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1206 Return t if we can terminate the translation.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1207 Return nil if the current key sequence may be followed by more keys.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1208 Return number if we can't find any translation for the current key
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1209 sequence. The number is the count of valid keys in the current
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1210 sequence counting from the head."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1211 (let* ((len (length quail-current-key))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1212 (map (quail-lookup-key quail-current-key len))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1213 def ch)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1214 (if map
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1215 (let ((def (quail-map-definition map)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1216 (setq quail-current-str (quail-get-current-str len def))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1217 ;; Return t only if we can terminate the current translation.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1218 (and
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1219 ;; No alternative translations.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1220 (or (null (consp def)) (= (length (cdr def)) 1))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1221 ;; No translation for the longer key.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1222 (null (cdr map))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1223 ;; No shorter breaking point.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1224 (or (null (quail-maximum-shortest))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1225 (< len 3)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1226 (null (quail-lookup-key quail-current-key (1- len)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1227 (null (quail-lookup-key
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1228 (substring quail-current-key -2 -1) 1)))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1229
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1230 ;; There's no translation for the current key sequence. Before
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1231 ;; giving up, we must check two possibilities.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1232 (cond ((and
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1233 (quail-maximum-shortest)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1234 (>= len 4)
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1235 (setq def (quail-map-definition
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1236 (quail-lookup-key quail-current-key (- len 2))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1237 (quail-lookup-key (substring quail-current-key -2) 2))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1238 ;; Now the sequence is "...ABCD", which can be split into
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1239 ;; "...AB" and "CD..." to get valid translation.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1240 ;; At first, get translation of "...AB".
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1241 (setq quail-current-str (quail-get-current-str (- len 2) def))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1242 ;; Then, return the length of "...AB".
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1243 (- len 2))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1244
18797
e9aa787f0154 (quail-translate-key): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 18642
diff changeset
1245 ((and (> len 0)
e9aa787f0154 (quail-translate-key): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 18642
diff changeset
1246 (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
1247 quail-current-translations
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1248 (not (quail-deterministic))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1249 (setq ch (aref quail-current-key (1- len)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1250 (>= ch ?0) (<= ch ?9))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1251 ;; A numeric key is entered to select a desirable translation.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1252 (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
1253 ;; 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
1254 (setq ch (if (= ch ?0) 9 (- ch ?1)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1255 (quail-update-current-translations ch)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1256 ;; And, we can terminate the current translation.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1257 t)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1258
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1259 (t
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1260 ;; No way to handle the last character in this context.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1261 (1- len))))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1262
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1263 (defun quail-next-translation ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1264 "Select next translation in the current batch of candidates."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1265 (interactive)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1266 (if quail-current-translations
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1267 (let ((indices (car quail-current-translations)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1268 (if (= (1+ (car indices)) (length (cdr quail-current-translations)))
19084
9f4b95f30c4f (quail-next-translation): Call
Kenichi Handa <handa@m17n.org>
parents: 18983
diff changeset
1269 ;; We are already at the tail.
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1270 (beep)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1271 (setcar indices (1+ (car indices)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1272 (quail-update-current-translations)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1273 (quail-update-translation nil)))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1274 (setq unread-command-events
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1275 (cons last-command-event unread-command-events))
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1276 (quail-terminate-translation)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1277
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1278 (defun quail-prev-translation ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1279 "Select previous translation in the current batch of candidates."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1280 (interactive)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1281 (if quail-current-translations
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1282 (let ((indices (car quail-current-translations)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1283 (if (= (car indices) 0)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1284 ;; We are already at the head.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1285 (beep)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1286 (setcar indices (1- (car indices)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1287 (quail-update-current-translations)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1288 (quail-update-translation nil)))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1289 (setq unread-command-events
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1290 (cons last-command-event unread-command-events))
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1291 (quail-terminate-translation)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1292
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1293 (defun quail-next-translation-block ()
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1294 "Select from the next block of translations."
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1295 (interactive)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1296 (if quail-current-translations
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1297 (let* ((indices (car quail-current-translations))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1298 (offset (- (car indices) (nth 1 indices))))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1299 (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
1300 ;; We are already at the last block.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1301 (beep)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1302 (setcar indices (+ (nth 2 indices) offset))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1303 (quail-update-current-translations)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1304 (quail-update-translation nil)))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1305 (setq unread-command-events
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1306 (cons last-command-event unread-command-events))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1307 (quail-terminate-translation)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1308
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1309 (defun quail-prev-translation-block ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1310 "Select the previous batch of 10 translation candidates."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1311 (interactive)
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1312 (if quail-current-translations
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1313 (let* ((indices (car quail-current-translations))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1314 (offset (- (car indices) (nth 1 indices))))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1315 (if (= (nth 1 indices) 0)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1316 ;; We are already at the first block.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1317 (beep)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1318 (setcar indices (1- (nth 1 indices)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1319 (quail-update-current-translations)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1320 (if (< (+ (nth 1 indices) offset) (nth 2 indices))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1321 (progn
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1322 (setcar indices (+ (nth 1 indices) offset))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1323 (quail-update-current-translations)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1324 (quail-update-translation nil)))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1325 (setq unread-command-events
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1326 (cons last-command-event unread-command-events))
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1327 (quail-terminate-translation)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1328
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1329 (defun quail-abort-translation ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1330 "Abort translation and delete the current Quail key sequence."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1331 (interactive)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1332 (quail-delete-region)
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1333 (setq quail-current-str nil)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1334 (quail-terminate-translation))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1335
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1336 (defun quail-delete-last-char ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1337 "Delete the last input character from the current Quail key sequence."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1338 (interactive)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1339 (if (= (length quail-current-key) 1)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1340 (quail-abort-translation)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1341 (setq quail-current-key (substring quail-current-key 0 -1))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1342 (quail-update-translation (quail-translate-key))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1343
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1344 ;; For conversion mode.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1345
23887
3a4d3e2418dc (quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents: 23629
diff changeset
1346 (defsubst quail-point-in-conversion-region ()
3a4d3e2418dc (quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents: 23629
diff changeset
1347 "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
1348 (let (start pos)
3a4d3e2418dc (quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents: 23629
diff changeset
1349 (and (setq start (overlay-start quail-conv-overlay))
3a4d3e2418dc (quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents: 23629
diff changeset
1350 (>= (setq pos (point)) start)
3a4d3e2418dc (quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents: 23629
diff changeset
1351 (<= pos (overlay-end quail-conv-overlay)))))
3a4d3e2418dc (quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents: 23629
diff changeset
1352
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1353 (defun quail-conversion-backward-char ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1354 (interactive)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1355 (if (<= (point) (overlay-start quail-conv-overlay))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1356 (quail-error "Beginning of conversion region"))
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1357 (setq quail-translating nil)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1358 (forward-char -1))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1359
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1360 (defun quail-conversion-forward-char ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1361 (interactive)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1362 (if (>= (point) (overlay-end quail-conv-overlay))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1363 (quail-error "End of conversion region"))
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1364 (setq quail-translating nil)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1365 (forward-char 1))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1366
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1367 (defun quail-conversion-beginning-of-region ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1368 (interactive)
22777
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
1369 (setq quail-translating nil)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1370 (goto-char (overlay-start quail-conv-overlay)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1371
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1372 (defun quail-conversion-end-of-region ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1373 (interactive)
22777
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
1374 (setq quail-translating nil)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1375 (goto-char (overlay-end quail-conv-overlay)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1376
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1377 (defun quail-conversion-delete-char ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1378 (interactive)
22777
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
1379 (setq quail-translating nil)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1380 (if (>= (point) (overlay-end quail-conv-overlay))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1381 (quail-error "End of conversion region"))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1382 (delete-char 1)
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1383 (let ((start (overlay-start quail-conv-overlay))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1384 (end (overlay-end quail-conv-overlay)))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1385 (setq quail-conversion-str (buffer-substring start end))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1386 (if (= start end)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1387 (setq quail-converting nil))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1388
22777
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
1389 (defun quail-conversion-delete-tail ()
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
1390 (interactive)
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
1391 (if (>= (point) (overlay-end quail-conv-overlay))
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
1392 (quail-error "End of conversion region"))
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
1393 (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
1394 (let ((start (overlay-start quail-conv-overlay))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1395 (end (overlay-end quail-conv-overlay)))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1396 (setq quail-conversion-str (buffer-substring start end))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1397 (if (= start end)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1398 (setq quail-converting nil))))
22777
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
1399
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1400 (defun quail-conversion-backward-delete-char ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1401 (interactive)
23887
3a4d3e2418dc (quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents: 23629
diff changeset
1402 (if (> (length quail-current-key) 0)
3a4d3e2418dc (quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents: 23629
diff changeset
1403 (quail-delete-last-char)
3a4d3e2418dc (quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents: 23629
diff changeset
1404 (if (<= (point) (overlay-start quail-conv-overlay))
3a4d3e2418dc (quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents: 23629
diff changeset
1405 (quail-error "Beginning of conversion region"))
3a4d3e2418dc (quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents: 23629
diff changeset
1406 (delete-char -1)
3a4d3e2418dc (quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents: 23629
diff changeset
1407 (let ((start (overlay-start quail-conv-overlay))
3a4d3e2418dc (quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents: 23629
diff changeset
1408 (end (overlay-end quail-conv-overlay)))
3a4d3e2418dc (quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents: 23629
diff changeset
1409 (setq quail-conversion-str (buffer-substring start end))
3a4d3e2418dc (quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents: 23629
diff changeset
1410 (if (= start end)
3a4d3e2418dc (quail-point-in-conversion-region): New
Kenichi Handa <handa@m17n.org>
parents: 23629
diff changeset
1411 (setq quail-converting nil)))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1412
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1413 (defun quail-do-conversion (func &rest args)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1414 "Call FUNC to convert text in the current conversion region of Quail.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1415 Remaining args are for FUNC."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1416 (delete-overlay quail-overlay)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1417 (apply func args))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1418
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1419 (defun quail-no-conversion ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1420 "Do no conversion of the current conversion region of Quail."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1421 (interactive)
22777
1b0761cbc15b (quail-conversion-keymap): New binding
Kenichi Handa <handa@m17n.org>
parents: 22765
diff changeset
1422 (setq quail-converting nil))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1423
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1424 ;; Guidance, Completion, and Help buffer handlers.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1425
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1426 ;; Make a new one-line frame for Quail guidance buffer.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1427 (defun quail-make-guidance-frame (buf)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1428 (let* ((fparam (frame-parameters))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1429 (top (cdr (assq 'top fparam)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1430 (border (cdr (assq 'border-width fparam)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1431 (internal-border (cdr (assq 'internal-border-width fparam)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1432 (newtop (- top
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1433 (frame-char-height) (* internal-border 2) (* border 2))))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1434 (if (< newtop 0)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1435 (setq newtop (+ top (frame-pixel-height))))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1436 (let* ((frame (make-frame (append '((user-position . t) (height . 1)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1437 (minibuffer) (menu-bar-lines . 0))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1438 (cons (cons 'top newtop) fparam))))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1439 (win (frame-first-window frame)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1440 (set-window-buffer win buf)
19878
a69ae37e6932 (quail-update-translation): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 19849
diff changeset
1441 ;;(set-window-dedicated-p win t)
a69ae37e6932 (quail-update-translation): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 19849
diff changeset
1442 )))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1443
19432
4492653b04e8 (quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents: 19404
diff changeset
1444 ;; Setup Quail completion buffer.
4492653b04e8 (quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents: 19404
diff changeset
1445 (defun quail-setup-completion-buf ()
4492653b04e8 (quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents: 19404
diff changeset
1446 (unless (buffer-live-p quail-completion-buf)
4492653b04e8 (quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents: 19404
diff changeset
1447 (setq quail-completion-buf (get-buffer-create "*Quail Completions*"))
4492653b04e8 (quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents: 19404
diff changeset
1448 (save-excursion
4492653b04e8 (quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents: 19404
diff changeset
1449 (set-buffer quail-completion-buf)
4492653b04e8 (quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents: 19404
diff changeset
1450 (setq quail-overlay (make-overlay 1 1))
4492653b04e8 (quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents: 19404
diff changeset
1451 (overlay-put quail-overlay 'face 'highlight))))
4492653b04e8 (quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents: 19404
diff changeset
1452
19849
1c5164d81426 (quail-simple): New function.
Kenichi Handa <handa@m17n.org>
parents: 19844
diff changeset
1453 ;; Return t iff the current Quail package requires showing guidance
1c5164d81426 (quail-simple): New function.
Kenichi Handa <handa@m17n.org>
parents: 19844
diff changeset
1454 ;; buffer.
1c5164d81426 (quail-simple): New function.
Kenichi Handa <handa@m17n.org>
parents: 19844
diff changeset
1455 (defun quail-require-guidance-buf ()
1c5164d81426 (quail-simple): New function.
Kenichi Handa <handa@m17n.org>
parents: 19844
diff changeset
1456 (and input-method-verbose-flag
20160
b8234ea503cd (quail-require-guidance-buf): Adjusted
Kenichi Handa <handa@m17n.org>
parents: 19987
diff changeset
1457 (if (eq input-method-verbose-flag 'default)
b8234ea503cd (quail-require-guidance-buf): Adjusted
Kenichi Handa <handa@m17n.org>
parents: 19987
diff changeset
1458 (not (and (eq (selected-window) (minibuffer-window))
b8234ea503cd (quail-require-guidance-buf): Adjusted
Kenichi Handa <handa@m17n.org>
parents: 19987
diff changeset
1459 (quail-simple)))
b8234ea503cd (quail-require-guidance-buf): Adjusted
Kenichi Handa <handa@m17n.org>
parents: 19987
diff changeset
1460 (if (eq input-method-verbose-flag 'complex-only)
b8234ea503cd (quail-require-guidance-buf): Adjusted
Kenichi Handa <handa@m17n.org>
parents: 19987
diff changeset
1461 (not (quail-simple))
b8234ea503cd (quail-require-guidance-buf): Adjusted
Kenichi Handa <handa@m17n.org>
parents: 19987
diff changeset
1462 t))))
19849
1c5164d81426 (quail-simple): New function.
Kenichi Handa <handa@m17n.org>
parents: 19844
diff changeset
1463
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1464 (defun quail-show-guidance-buf ()
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1465 "Display a guidance buffer for Quail input method in some window.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1466 Create the buffer if it does not exist yet.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1467 The buffer is normally displayed at the echo area,
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1468 but if the current buffer is a minibuffer, it is shown in
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1469 the bottom-most ordinary window of the same frame,
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1470 or in a newly created frame (if the selected frame has no other windows)."
19849
1c5164d81426 (quail-simple): New function.
Kenichi Handa <handa@m17n.org>
parents: 19844
diff changeset
1471 (when (quail-require-guidance-buf)
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1472 ;; At first, setup a guidance buffer.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1473 (or (buffer-live-p quail-guidance-buf)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1474 (setq quail-guidance-buf (generate-new-buffer " *Quail-guidance*")))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1475 (let ((title (quail-title)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1476 (save-excursion
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1477 (set-buffer quail-guidance-buf)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1478 ;; To show the title of Quail package.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1479 (setq current-input-method t
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1480 current-input-method-title title)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1481 (erase-buffer)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1482 (or (overlayp quail-overlay)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1483 (progn
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1484 (setq quail-overlay (make-overlay 1 1))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1485 (overlay-put quail-overlay 'face 'highlight)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1486 (delete-overlay quail-overlay)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1487 (set-buffer-modified-p nil)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1488 (bury-buffer quail-guidance-buf)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1489
23599
ab69e7987be0 (quail-start-translation): Handle
Kenichi Handa <handa@m17n.org>
parents: 23401
diff changeset
1490 ;; Assign the buffer " *Minibuf-N*" to all windows which are now
ab69e7987be0 (quail-start-translation): Handle
Kenichi Handa <handa@m17n.org>
parents: 23401
diff changeset
1491 ;; displaying quail-guidance-buf.
ab69e7987be0 (quail-start-translation): Handle
Kenichi Handa <handa@m17n.org>
parents: 23401
diff changeset
1492 (let ((win-list (get-buffer-window-list quail-guidance-buf t t)))
ab69e7987be0 (quail-start-translation): Handle
Kenichi Handa <handa@m17n.org>
parents: 23401
diff changeset
1493 (while win-list
ab69e7987be0 (quail-start-translation): Handle
Kenichi Handa <handa@m17n.org>
parents: 23401
diff changeset
1494 (set-window-buffer (car win-list)
ab69e7987be0 (quail-start-translation): Handle
Kenichi Handa <handa@m17n.org>
parents: 23401
diff changeset
1495 (format " *Minibuf-%d*" (minibuffer-depth)))
ab69e7987be0 (quail-start-translation): Handle
Kenichi Handa <handa@m17n.org>
parents: 23401
diff changeset
1496 (setq win-list (cdr win-list))))
ab69e7987be0 (quail-start-translation): Handle
Kenichi Handa <handa@m17n.org>
parents: 23401
diff changeset
1497
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1498 ;; Then, display it in an appropriate window.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1499 (let ((win (minibuffer-window)))
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1500 (if (or (eq (selected-window) win)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1501 input-method-use-echo-area)
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1502 ;; Since we are in minibuffer, we can't use it for guidance.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1503 (if (eq win (frame-root-window))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1504 ;; Create a frame. It is sure that we are using some
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1505 ;; window system.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1506 (quail-make-guidance-frame quail-guidance-buf)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1507 ;; Find the bottom window and split it if necessary.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1508 (let (height)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1509 (setq win (window-at 0 (- (frame-height) 2)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1510 (setq height (window-height win))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1511 ;; If WIN is tall enough, split it vertically and use
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1512 ;; the lower one.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1513 (if (>= height 4)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1514 (let ((window-min-height 2))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1515 ;; Here, `split-window' returns a lower window
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1516 ;; which is what we wanted.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1517 (setq win (split-window win (- height 2)))))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1518 (set-window-buffer win quail-guidance-buf)
19878
a69ae37e6932 (quail-update-translation): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 19849
diff changeset
1519 ;;(set-window-dedicated-p win t)
a69ae37e6932 (quail-update-translation): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 19849
diff changeset
1520 ))
23629
ab6b58c72a04 (quail-show-guidance-buf): Call
Kenichi Handa <handa@m17n.org>
parents: 23599
diff changeset
1521 (set-window-buffer win quail-guidance-buf)
ab6b58c72a04 (quail-show-guidance-buf): Call
Kenichi Handa <handa@m17n.org>
parents: 23599
diff changeset
1522 (set-minibuffer-window win))
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1523 (setq quail-guidance-win win)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1524
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1525 ;; And, create a buffer for completion.
19432
4492653b04e8 (quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents: 19404
diff changeset
1526 (quail-setup-completion-buf)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1527 (bury-buffer quail-completion-buf))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1528
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1529 (defun quail-hide-guidance-buf ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1530 "Hide the Quail guidance buffer."
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1531 (if (buffer-live-p quail-guidance-buf)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1532 (let ((win-list (get-buffer-window-list quail-guidance-buf t t))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1533 win)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1534 (while win-list
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1535 (setq win (car win-list) win-list (cdr win-list))
23599
ab69e7987be0 (quail-start-translation): Handle
Kenichi Handa <handa@m17n.org>
parents: 23401
diff changeset
1536 (if (window-minibuffer-p win)
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1537 ;; We are using echo area for the guidance buffer.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1538 ;; Vacate it to the deepest minibuffer.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1539 (set-window-buffer win
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1540 (format " *Minibuf-%d*" (minibuffer-depth)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1541 (if (eq win (frame-root-window (window-frame win)))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1542 (progn
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1543 ;; We are using a separate frame for guidance buffer.
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1544 ;;(set-window-dedicated-p win nil)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1545 (delete-frame (window-frame win)))
19878
a69ae37e6932 (quail-update-translation): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 19849
diff changeset
1546 ;;(set-window-dedicated-p win nil)
23599
ab69e7987be0 (quail-start-translation): Handle
Kenichi Handa <handa@m17n.org>
parents: 23401
diff changeset
1547 (delete-window win))))
ab69e7987be0 (quail-start-translation): Handle
Kenichi Handa <handa@m17n.org>
parents: 23401
diff changeset
1548 (setq quail-guidance-win nil))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1549
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1550 (defun quail-update-guidance ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1551 "Update the Quail guidance buffer and completion buffer (if displayed now)."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1552 ;; Update guidance buffer.
19849
1c5164d81426 (quail-simple): New function.
Kenichi Handa <handa@m17n.org>
parents: 19844
diff changeset
1553 (if (quail-require-guidance-buf)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1554 (let ((guidance (quail-guidance)))
23599
ab69e7987be0 (quail-start-translation): Handle
Kenichi Handa <handa@m17n.org>
parents: 23401
diff changeset
1555 (or (and (eq (selected-frame) (window-frame (minibuffer-window)))
ab69e7987be0 (quail-start-translation): Handle
Kenichi Handa <handa@m17n.org>
parents: 23401
diff changeset
1556 (eq (selected-frame) (window-frame quail-guidance-win)))
ab69e7987be0 (quail-start-translation): Handle
Kenichi Handa <handa@m17n.org>
parents: 23401
diff changeset
1557 (quail-show-guidance-buf))
19723
3ada64a43911 (quail-update-guidance): If PROMPTKEY is
Kenichi Handa <handa@m17n.org>
parents: 19675
diff changeset
1558 (cond ((or (eq guidance t)
23304
3a7a029df593 (quail-update-guidance): Check for the
Kenichi Handa <handa@m17n.org>
parents: 23176
diff changeset
1559 (consp guidance))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1560 ;; Show the current possible translations.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1561 (quail-show-translations))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1562 ((null guidance)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1563 ;; Show the current input keys.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1564 (let ((key quail-current-key))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1565 (save-excursion
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1566 (set-buffer quail-guidance-buf)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1567 (erase-buffer)
19723
3ada64a43911 (quail-update-guidance): If PROMPTKEY is
Kenichi Handa <handa@m17n.org>
parents: 19675
diff changeset
1568 (insert key)))))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1569
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1570 ;; Update completion buffer if displayed now. We highlight the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1571 ;; selected candidate string in *Completion* buffer if any.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1572 (let ((win (get-buffer-window quail-completion-buf))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1573 key str pos)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1574 (if win
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1575 (save-excursion
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1576 (setq str (if (stringp quail-current-str)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1577 quail-current-str
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1578 (if (numberp quail-current-str)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1579 (char-to-string quail-current-str)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1580 key quail-current-key)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1581 (set-buffer quail-completion-buf)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1582 (goto-char (point-min))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1583 (if (null (search-forward (concat " " key ":") nil t))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1584 (delete-overlay quail-overlay)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1585 (setq pos (point))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1586 (if (and str (search-forward (concat "." str) nil t))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1587 (move-overlay quail-overlay (1+ (match-beginning 0)) (point))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1588 (move-overlay quail-overlay (match-beginning 0) (point)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1589 ;; Now POS points end of KEY and (point) points end of STR.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1590 (if (pos-visible-in-window-p (point) win)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1591 ;; STR is already visible.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1592 nil
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1593 ;; We want to make both KEY and STR visible, but if the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1594 ;; window is too short, make at least STR visible.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1595 (setq pos (progn (point) (goto-char pos)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1596 (beginning-of-line)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1597 (set-window-start win (point))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1598 (if (not (pos-visible-in-window-p pos win))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1599 (set-window-start win pos))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1600 ))))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1601
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1602 (defun quail-show-translations ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1603 "Show the current possible translations."
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
1604 (let* ((key quail-current-key)
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1605 (map (quail-lookup-key quail-current-key))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1606 (current-translations quail-current-translations))
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1607 (if quail-current-translations
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1608 (quail-update-current-translations))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1609 (save-excursion
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1610 (set-buffer quail-guidance-buf)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1611 (erase-buffer)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1612
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1613 ;; Show the current key.
19723
3ada64a43911 (quail-update-guidance): If PROMPTKEY is
Kenichi Handa <handa@m17n.org>
parents: 19675
diff changeset
1614 (let ((guidance (quail-guidance)))
3ada64a43911 (quail-update-guidance): If PROMPTKEY is
Kenichi Handa <handa@m17n.org>
parents: 19675
diff changeset
1615 (if (listp guidance)
3ada64a43911 (quail-update-guidance): If PROMPTKEY is
Kenichi Handa <handa@m17n.org>
parents: 19675
diff changeset
1616 ;; We must show the specified PROMPTKEY instead of the
3ada64a43911 (quail-update-guidance): If PROMPTKEY is
Kenichi Handa <handa@m17n.org>
parents: 19675
diff changeset
1617 ;; actual typed keys.
3ada64a43911 (quail-update-guidance): If PROMPTKEY is
Kenichi Handa <handa@m17n.org>
parents: 19675
diff changeset
1618 (let ((i 0)
3ada64a43911 (quail-update-guidance): If PROMPTKEY is
Kenichi Handa <handa@m17n.org>
parents: 19675
diff changeset
1619 (len (length key))
3ada64a43911 (quail-update-guidance): If PROMPTKEY is
Kenichi Handa <handa@m17n.org>
parents: 19675
diff changeset
1620 prompt-key)
3ada64a43911 (quail-update-guidance): If PROMPTKEY is
Kenichi Handa <handa@m17n.org>
parents: 19675
diff changeset
1621 (while (< i len)
3ada64a43911 (quail-update-guidance): If PROMPTKEY is
Kenichi Handa <handa@m17n.org>
parents: 19675
diff changeset
1622 (setq prompt-key (cdr (assoc (aref key i) guidance)))
3ada64a43911 (quail-update-guidance): If PROMPTKEY is
Kenichi Handa <handa@m17n.org>
parents: 19675
diff changeset
1623 (insert (or prompt-key (aref key i)))
3ada64a43911 (quail-update-guidance): If PROMPTKEY is
Kenichi Handa <handa@m17n.org>
parents: 19675
diff changeset
1624 (setq i (1+ i))))
3ada64a43911 (quail-update-guidance): If PROMPTKEY is
Kenichi Handa <handa@m17n.org>
parents: 19675
diff changeset
1625 (insert key)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1626
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1627 ;; Show followable keys.
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1628 (if (and (> (length key) 0) (cdr map))
21881
1a80d464c77a (quail-show-translations): Show
Kenichi Handa <handa@m17n.org>
parents: 21659
diff changeset
1629 (let ((keys (mapcar (function (lambda (x) (car x)))
1a80d464c77a (quail-show-translations): Show
Kenichi Handa <handa@m17n.org>
parents: 21659
diff changeset
1630 (cdr map))))
1a80d464c77a (quail-show-translations): Show
Kenichi Handa <handa@m17n.org>
parents: 21659
diff changeset
1631 (setq keys (sort keys '<))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1632 (insert "[")
21881
1a80d464c77a (quail-show-translations): Show
Kenichi Handa <handa@m17n.org>
parents: 21659
diff changeset
1633 (while keys
1a80d464c77a (quail-show-translations): Show
Kenichi Handa <handa@m17n.org>
parents: 21659
diff changeset
1634 (insert (car keys))
1a80d464c77a (quail-show-translations): Show
Kenichi Handa <handa@m17n.org>
parents: 21659
diff changeset
1635 (setq keys (cdr keys)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1636 (insert "]")))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1637
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1638 ;; Show list of translations.
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1639 (if current-translations
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1640 (let* ((indices (car current-translations))
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1641 (cur (car indices))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1642 (start (nth 1 indices))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1643 (end (nth 2 indices))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1644 (idx start))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1645 (indent-to (- quail-guidance-translations-starting-column 7))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1646 (insert (format "(%02d/"(nth 3 indices))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1647 (if (nth 4 indices)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1648 (format "%02d)" (nth 4 indices))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1649 "??)"))
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1650 (while (< idx end)
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1651 (insert (format " %d." (if (= (- idx start) 9) 0
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1652 (1+ (- idx start)))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1653 (let ((pos (point)))
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1654 (insert (aref (cdr current-translations) idx))
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1655 (if (= idx cur)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1656 (move-overlay quail-overlay pos (point))))
18556
99e8ae18137f (quail-guidance-buf): Make it buffer
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
1657 (setq idx (1+ idx)))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1658 )))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1659
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1660 (defun quail-completion ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1661 "List all completions for the current key.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1662 All possible translations of the current key and whole possible longer keys
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1663 are shown."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1664 (interactive)
19432
4492653b04e8 (quail-exit-from-minibuffer): Call
Kenichi Handa <handa@m17n.org>
parents: 19404
diff changeset
1665 (quail-setup-completion-buf)
22124
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1666 (let ((win (get-buffer-window quail-completion-buf 'visible))
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1667 (key quail-current-key)
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1668 (map (quail-lookup-key quail-current-key))
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1669 (require-update nil))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1670 (save-excursion
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1671 (set-buffer quail-completion-buf)
22124
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1672 (if (and win
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1673 (equal key quail-current-key)
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1674 (eq last-command 'quail-completion))
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1675 ;; The window for Quail completion buffer has already been
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1676 ;; shown. We just scroll it appropriately.
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1677 (if (pos-visible-in-window-p (point-max) win)
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1678 (set-window-start win (point-min))
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1679 (let ((other-window-scroll-buffer quail-completion-buf))
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1680 (scroll-other-window)))
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1681 (setq quail-current-key key)
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1682 (erase-buffer)
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1683 (insert "Possible completion and corresponding translations are:\n")
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1684 (quail-completion-1 key map 1)
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1685 (goto-char (point-min))
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1686 (display-buffer (current-buffer))
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1687 (setq require-update t)))
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1688 (if require-update
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1689 (quail-update-guidance)))
10b3c1cd7f18 (quail-completion): Consecutive call of
Kenichi Handa <handa@m17n.org>
parents: 21881
diff changeset
1690 (setq this-command 'quail-completion))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1691
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1692 ;; List all completions of KEY in MAP with indentation INDENT.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1693 (defun quail-completion-1 (key map indent)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1694 (let ((len (length key)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1695 (indent-to indent)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1696 (insert key ":")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1697 (if (and (symbolp map) (fboundp map))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1698 (setq map (funcall map key len)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1699 (if (car map)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1700 (quail-completion-list-translations map key (+ indent len 1))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1701 (insert " -\n"))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1702 (setq indent (+ indent 2))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1703 (if (cdr map)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1704 (let ((l (cdr map))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1705 (newkey (make-string (1+ len) 0))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1706 (i 0))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1707 ;; Set KEY in the first LEN characters of NEWKEY.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1708 (while (< i len)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1709 (aset newkey i (aref key i))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1710 (setq i (1+ i)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1711 (while l ; L = ((CHAR . DEFN) ....) ;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1712 (aset newkey len (car (car l)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1713 (quail-completion-1 newkey (cdr (car l)) indent)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1714 (setq l (cdr l)))))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1715
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1716 ;; List all possible translations of KEY in Quail map MAP with
17764
561a8476368f (use-quail-package): Error message added.
Kenichi Handa <handa@m17n.org>
parents: 17315
diff changeset
1717 ;; indentation INDENT.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1718 (defun quail-completion-list-translations (map key indent)
20169
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1719 (let (beg (translations
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
1720 (quail-get-translation (car map) key (length key))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1721 (if (integerp translations)
20169
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1722 (progn
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1723 (insert "(1/1) 1.")
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1724 ;; Endow the character `translations' with `mouse-face' text
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1725 ;; property to enable `mouse-2' completion.
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1726 (setq beg (point))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1727 (insert translations)
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1728 (put-text-property beg (point) 'mouse-face 'highlight)
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1729 (insert "\n"))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1730 ;; We need only vector part.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1731 (setq translations (cdr translations))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1732 ;; Insert every 10 elements with indices in a line.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1733 (let ((len (length translations))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1734 (i 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1735 num)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1736 (while (< i len)
19944
e274dc2d61f1 (quail-completion-list-translations): Fix
Richard M. Stallman <rms@gnu.org>
parents: 19934
diff changeset
1737 (when (zerop (% i 10))
e274dc2d61f1 (quail-completion-list-translations): Fix
Richard M. Stallman <rms@gnu.org>
parents: 19934
diff changeset
1738 (when (>= i 10)
20169
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1739 (insert "\n")
19944
e274dc2d61f1 (quail-completion-list-translations): Fix
Richard M. Stallman <rms@gnu.org>
parents: 19934
diff changeset
1740 (indent-to indent))
e274dc2d61f1 (quail-completion-list-translations): Fix
Richard M. Stallman <rms@gnu.org>
parents: 19934
diff changeset
1741 (insert (format "(%d/%d)" (1+ (/ i 10)) (1+ (/ len 10)))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1742 ;; We show the last digit of FROM while converting
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1743 ;; 0,1,..,9 to 1,2,..,0.
19944
e274dc2d61f1 (quail-completion-list-translations): Fix
Richard M. Stallman <rms@gnu.org>
parents: 19934
diff changeset
1744 (insert (format " %d." (% (1+ i) 10)))
20169
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1745 (setq beg (point))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1746 (insert (aref translations i))
20169
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1747 ;; Passing the mouse over a character will highlight.
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1748 (put-text-property beg (point) 'mouse-face 'highlight)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1749 (setq i (1+ i)))
20169
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1750 (insert "\n")))))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1751
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1752 ;; Choose a completion in *Quail Completions* buffer with mouse-2.
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1753
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1754 (defun quail-mouse-choose-completion (event)
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1755 "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
1756 (interactive "e")
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1757 ;; This function is an exact copy of the mouse.el function
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1758 ;; `mouse-choose-completion' except that we:
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1759 ;; 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
1760 ;; the `mouse-2' click a little more leeway.
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1761 ;; 2) don't bury *Quail Completions* buffer so comment a section, and
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1762 ;; 3) delete/terminate the current quail selection here.
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1763 ;; 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
1764 (run-hooks 'mouse-leave-buffer-hook)
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1765 (let ((buffer (window-buffer))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1766 choice
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1767 base-size)
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1768 (save-excursion
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1769 (set-buffer (window-buffer (posn-window (event-start event))))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1770 (if completion-reference-buffer
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1771 (setq buffer completion-reference-buffer))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1772 (setq base-size completion-base-size)
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1773 (save-excursion
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1774 (goto-char (posn-point (event-start event)))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1775 (let (beg end)
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1776 (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
1777 (setq end (point) beg (1+ (point))))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1778 (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
1779 (setq end (1- (point)) beg (point)))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1780 (if (null beg)
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1781 (quail-error "No completion here"))
20169
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1782 (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
1783 (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
1784 (point-max)))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1785 (setq choice (buffer-substring beg end)))))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1786 ; (let ((owindow (selected-window)))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1787 ; (select-window (posn-window (event-start event)))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1788 ; (if (and (one-window-p t 'selected-frame)
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1789 ; (window-dedicated-p (selected-window)))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1790 ; ;; This is a special buffer's frame
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1791 ; (iconify-frame (selected-frame))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1792 ; (or (window-dedicated-p (selected-window))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1793 ; (bury-buffer)))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1794 ; (select-window owindow))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1795 (quail-delete-region)
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1796 (quail-choose-completion-string choice buffer base-size)
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1797 (quail-terminate-translation)))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1798
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1799 ;; Modify the simple.el function `choose-completion-string', because
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1800 ;; the simple.el function `choose-completion-delete-max-match' breaks
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1801 ;; on Mule data, since the semantics of `forward-char' have changed.
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1802
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1803 (defun quail-choose-completion-string (choice &optional buffer base-size)
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1804 (let ((buffer (or buffer completion-reference-buffer)))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1805 ;; If BUFFER is a minibuffer, barf unless it's the currently
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1806 ;; active minibuffer.
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1807 (if (and (string-match "\\` \\*Minibuf-[0-9]+\\*\\'" (buffer-name buffer))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1808 (or (not (active-minibuffer-window))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1809 (not (equal buffer
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1810 (window-buffer (active-minibuffer-window))))))
22765
7cf2c3800e8f (quail-mode): This variable deleted.
Kenichi Handa <handa@m17n.org>
parents: 22124
diff changeset
1811 (quail-error "Minibuffer is not active for completion")
23172
a47eab4fc085 (quail-choose-completion-string): Store
Kenichi Handa <handa@m17n.org>
parents: 23014
diff changeset
1812 ;; Store the completion in `quail-current-str', which will later
a47eab4fc085 (quail-choose-completion-string): Store
Kenichi Handa <handa@m17n.org>
parents: 23014
diff changeset
1813 ;; be converted to a character event list, then inserted into
a47eab4fc085 (quail-choose-completion-string): Store
Kenichi Handa <handa@m17n.org>
parents: 23014
diff changeset
1814 ;; the buffer where completion was requested.
20169
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1815 (set-buffer buffer)
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1816 ; (if base-size
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1817 ; (delete-region (+ base-size (point-min)) (point))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1818 ; (choose-completion-delete-max-match choice))
23172
a47eab4fc085 (quail-choose-completion-string): Store
Kenichi Handa <handa@m17n.org>
parents: 23014
diff changeset
1819 (setq quail-current-str choice)
20169
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1820 ;; Update point in the window that BUFFER is showing in.
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1821 (let ((window (get-buffer-window buffer t)))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1822 (set-window-point window (point)))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1823 ;; If completing for the minibuffer, exit it with this choice.
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1824 (and (not completion-no-auto-exit)
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1825 (equal buffer (window-buffer (minibuffer-window)))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1826 minibuffer-completion-table
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1827 ;; If this is reading a file name, and the file name chosen
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1828 ;; is a directory, don't exit the minibuffer.
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1829 (if (and (eq minibuffer-completion-table 'read-file-name-internal)
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1830 (file-directory-p (buffer-string)))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1831 (select-window (active-minibuffer-window))
d938bdf82445 (quail-translation-keymap): KP_Enter key
Kenichi Handa <handa@m17n.org>
parents: 20160
diff changeset
1832 (exit-minibuffer))))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1833
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1834 (defun quail-help ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1835 "Show brief description of the current Quail package."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1836 (interactive)
18349
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1837 (let ((package quail-current-package))
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1838 (with-output-to-temp-buffer "*Quail-Help*"
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1839 (save-excursion
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1840 (set-buffer standard-output)
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1841 (let ((quail-current-package package))
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1842 (insert "Quail input method (name:"
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1843 (quail-name)
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1844 ", mode line indicator:["
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1845 (quail-title)
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1846 "])\n---- Documentation ----\n"
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1847 (quail-docstring))
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1848 (newline)
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1849 (if (quail-show-layout) (quail-show-kbd-layout))
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1850 (quail-help-insert-keymap-description
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1851 (quail-translation-keymap)
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1852 "--- Key bindings (while translating) ---
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1853 key binding
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1854 --- -------\n")
18349
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1855 (if (quail-conversion-keymap)
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1856 (quail-help-insert-keymap-description
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1857 (quail-conversion-keymap)
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1858 "--- Key bindings (while converting) ---
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1859 key binding
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1860 --- -------\n"))
18349
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1861 (help-mode))))))
f468344dd2bd (quail-help): Use with-output-to-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 18297
diff changeset
1862
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1863 (defun quail-help-insert-keymap-description (keymap &optional header)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1864 (let (from to)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1865 (if header
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1866 (insert header))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1867 (save-excursion
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1868 (save-window-excursion
19404
8901359ae445 (quail-inactivate): Turn Quail mode off
Kenichi Handa <handa@m17n.org>
parents: 19391
diff changeset
1869 (let ((overriding-terminal-local-map keymap))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1870 (describe-bindings))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1871 (set-buffer "*Help*")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1872 (goto-char (point-min))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1873 (forward-line 4)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1874 (setq from (point))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1875 (search-forward "Global Bindings:" nil 'move)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1876 (beginning-of-line)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1877 (setq to (point))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1878 (insert-buffer-substring "*Help*" from to)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1879
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1880 (defun quail-show-kbd-layout ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1881 "Show keyboard layout with key tops of multilingual characters."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1882 (insert "--- Keyboard layout ---\n")
24304
cef9cf0a46b4 (quail-show-kbd-layout): Bind blink-matching-paren to nil.
Kenichi Handa <handa@m17n.org>
parents: 24238
diff changeset
1883 (let ((blink-matching-paren nil)
cef9cf0a46b4 (quail-show-kbd-layout): Bind blink-matching-paren to nil.
Kenichi Handa <handa@m17n.org>
parents: 24238
diff changeset
1884 (i 0)
cef9cf0a46b4 (quail-show-kbd-layout): Bind blink-matching-paren to nil.
Kenichi Handa <handa@m17n.org>
parents: 24238
diff changeset
1885 ch)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1886 (while (< i quail-keyboard-layout-len)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1887 (if (= (% i 30) 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1888 (progn
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1889 (newline)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1890 (indent-to (/ i 30)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1891 (if (= (% i 2) 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1892 (insert " ")))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1893 (setq ch (aref quail-keyboard-layout i))
19675
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1894 (when (and (quail-kbd-translate)
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1895 (/= ch ?\ ))
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1896 ;; This is the case that the current input method simulates
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1897 ;; some keyboard layout (which means it requires keyboard
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1898 ;; translation) and a key at location `i' exists on users
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1899 ;; keyboard. We must translate that key by
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1900 ;; `quail-keyboard-layout-standard'. But if if there's no
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1901 ;; corresponding key in that standard layout, we must simulate
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1902 ;; what is inserted if that key is pressed by setting CH a
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1903 ;; minus value.
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1904 (setq ch (aref quail-keyboard-layout-standard i))
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1905 (if (= ch ?\ )
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1906 (setq ch (- (aref quail-keyboard-layout i)))))
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1907 (if (< ch 0)
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1908 (let ((last-command-event (- ch)))
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1909 (self-insert-command 1))
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1910 (if (= ch ?\ )
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1911 (insert ch)
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1912 (let* ((map (cdr (assq ch (cdr (quail-map)))))
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1913 (translation (and map (quail-get-translation
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1914 (car map) (char-to-string ch) 1))))
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1915 (if (integerp translation)
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1916 (insert translation)
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1917 (if (consp translation)
20728
a47662abcc23 (quail-show-kbd-layout): Bug fix for the
Kenichi Handa <handa@m17n.org>
parents: 20638
diff changeset
1918 (insert (aref (cdr translation) (car (car translation))))
19675
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1919 (let ((last-command-event ch))
32c3f7d9ef10 (quail-keyboard-layout-alist): Add an
Kenichi Handa <handa@m17n.org>
parents: 19655
diff changeset
1920 (self-insert-command 1)))))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1921 (setq i (1+ i))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1922 (newline))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1923
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1924 (defun quail-translation-help ()
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1925 "Show help message while translating in Quail input method."
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1926 (interactive)
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1927 (if (not (eq this-command last-command))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1928 (let (state-msg keymap)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1929 (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
1930 (setq state-msg
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1931 (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
1932 quail-conversion-str (quail-name))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1933 keymap (quail-conversion-keymap))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1934 (setq state-msg
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1935 (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
1936 quail-current-key (quail-name))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1937 keymap (quail-translation-keymap)))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1938 (with-output-to-temp-buffer "*Quail-Help*"
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1939 (save-excursion
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1940 (set-buffer standard-output)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1941 (insert state-msg)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1942 (quail-help-insert-keymap-description
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1943 keymap
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1944 "-----------------------
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1945 key binding
22917
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1946 --- -------\n")
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1947 (help-mode)))))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1948 (let (scroll-help)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1949 (save-selected-window
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1950 (select-window (get-buffer-window "*Quail-Help*"))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1951 (if (eq this-command last-command)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1952 (if (< (window-end) (point-max))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1953 (scroll-up)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1954 (if (> (window-start) (point-min))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1955 (set-window-start (selected-window) (point-min)))))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1956 (setq scroll-help
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1957 (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
1958 "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
1959 (if (> (window-start) (point-min))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1960 "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
1961 (if scroll-help
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1962 (progn
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1963 (message "%s" (substitute-command-keys scroll-help))
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1964 (sit-for 1)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1965 (message nil)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1966 (quail-update-guidance)
00f3497854c4 (quail-translation-keymap): Declare it as
Kenichi Handa <handa@m17n.org>
parents: 22883
diff changeset
1967 ))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1968
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
1969
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
1970 (defvar quail-directory-name "quail"
23176
3852eb64cf0e Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23172
diff changeset
1971 "Name of Quail directory which contains Quail packages.
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
1972 This is a sub-directory of LEIM directory.")
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
1973
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
1974 ;;;###autoload
19605
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
1975 (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
1976 "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
1977 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
1978 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
1979 of the Emacs source tree.
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
1980
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
1981 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
1982 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
1983
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
1984 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
1985 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
1986 of each directory."
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
1987 (interactive "FDirectory of LEIM: ")
19605
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
1988 (setq dirname (expand-file-name dirname))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
1989 (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
1990 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
1991 (if (not (file-writable-p leim-list))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
1992 (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
1993 (message "Updating %s ..." leim-list)
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
1994 (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
1995
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
1996 ;; At first, clean up the file.
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
1997 (save-excursion
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
1998 (set-buffer list-buf)
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
1999 (goto-char 1)
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
2000
19605
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2001 ;; Insert the correct header.
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2002 (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
2003 (goto-char (match-end 0))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2004 (insert leim-list-header))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2005 (setq pos (point))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2006 (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
2007 nil
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2008
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2009 ;; Remove garbages after the header.
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2010 (goto-char (match-beginning 0))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2011 (if (< pos (point))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2012 (delete-region pos (point)))
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
2013
19605
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2014 ;; Remove all entries for Quail.
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2015 (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
2016 (goto-char (match-beginning 0))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2017 (setq pos (point))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2018 (condition-case nil
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2019 (let ((form (read list-buf)))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2020 (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
2021 (if (eolp) (forward-line 1))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2022 (delete-region pos (point))))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2023 (error
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2024 ;; 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
2025 ;; this file is broken.
23014
ddc2fa7883d6 (quail-update-leim-list-file): Fix message syntax.
Richard M. Stallman <rms@gnu.org>
parents: 22984
diff changeset
2026 (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
2027 (delete-region pos (point-max)))))))
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
2028
23176
3852eb64cf0e Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23172
diff changeset
2029 ;; 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
2030 (setq dirnames (cons dirname dirnames))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2031 (let ((l dirnames))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2032 (while l
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2033 (setcar l (expand-file-name (car l)))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2034 (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
2035 (if (file-readable-p dirname)
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2036 (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
2037 (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
2038 (car l) quail-directory-name)
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2039 (setq quail-dirs (cons nil quail-dirs)))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2040 (setq l (cdr l)))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2041 (setq quail-dirs (nreverse quail-dirs)))
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
2042
19605
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2043 ;; Insert input method registering forms.
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2044 (while quail-dirs
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2045 (setq dirname (car quail-dirs))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2046 (when dirname
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2047 (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
2048 (while pkg-list
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2049 (message "Checking %s ..." (car pkg-list))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2050 (with-temp-buffer
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2051 (insert-file-contents (car pkg-list))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2052 (goto-char (point-min))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2053 (while (search-forward "(quail-define-package" nil t)
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2054 (goto-char (match-beginning 0))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2055 (condition-case nil
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2056 (let ((form (read (current-buffer))))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2057 (save-excursion
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2058 (set-buffer list-buf)
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2059 (insert
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2060 (format "(register-input-method
18297
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
2061 %S %S '%s
5c8e37591da5 (quail-current-data): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18201
diff changeset
2062 %S %S
19200
74ec766c0ada (quail-update-leim-list-file):
Richard M. Stallman <rms@gnu.org>
parents: 19144
diff changeset
2063 %S)\n"
19605
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2064 (nth 1 form) ; PACKAGE-NAME
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2065 (nth 2 form) ; LANGUAGE
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2066 'quail-use-package ; ACTIVATE-FUNC
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2067 (nth 3 form) ; PACKAGE-TITLE
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2068 (progn ; PACKAGE-DESCRIPTION (one line)
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2069 (string-match ".*" (nth 5 form))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2070 (match-string 0 (nth 5 form)))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2071 (file-relative-name ; PACKAGE-FILENAME
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2072 (file-name-sans-extension (car pkg-list))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2073 (car dirnames))))))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2074 (error
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2075 ;; Ignore the remaining contents of this file.
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2076 (goto-char (point-max))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2077 (message "Some part of \"%s\" is broken" dirname)))))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2078 (setq pkg-list (cdr pkg-list)))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2079 (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
2080
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2081 ;; At last, write out LEIM list file.
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2082 (save-excursion
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2083 (set-buffer list-buf)
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2084 (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
2085 (save-buffer 0))
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2086 (kill-buffer list-buf)
3b700b203cfd (quail-update-leim-list-file): Make it
Kenichi Handa <handa@m17n.org>
parents: 19519
diff changeset
2087 (message "Updating %s ... done" leim-list)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2088 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2089 (provide 'quail)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2090
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2091 ;;; quail.el ends here