Mercurial > emacs
annotate lisp/international/mule-cmds.el @ 28678:b132db55ef7e
(struct Lisp_Buffer_Cons): Remove.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Fri, 21 Apr 2000 13:00:58 +0000 |
parents | cb1aa1596cca |
children | 039f763895c3 |
rev | line source |
---|---|
17052 | 1 ;;; mule-cmds.el --- Commands for mulitilingual environment |
2 | |
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. | |
18377
8b4a66c66dd6
Change copyright notice.
Richard M. Stallman <rms@gnu.org>
parents:
18351
diff
changeset
|
4 ;; Licensed to the Free Software Foundation. |
28456 | 5 ;; Copyright (C) 2000 Free Software Foundation, Inc. |
17052 | 6 |
7 ;; Keywords: mule, multilingual | |
8 | |
9 ;; This file is part of GNU Emacs. | |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
17071 | 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
24 ;; Boston, MA 02111-1307, USA. | |
17052 | 25 |
26 ;;; Code: | |
27 | |
28456 | 28 (eval-when-compile (defvar dos-codepage)) |
29 | |
17052 | 30 ;;; MULE related key bindings and menus. |
31 | |
19725 | 32 (defvar mule-keymap (make-sparse-keymap) |
24725
269f6a206499
Change MULE to Mule in docstrings and menus.
Kenichi Handa <handa@m17n.org>
parents:
24617
diff
changeset
|
33 "Keymap for Mule (Multilingual environment) specific commands.") |
17052 | 34 |
17294
d7ae63db9e6e
Prefix for Mule related commands is changed.
Kenichi Handa <handa@m17n.org>
parents:
17090
diff
changeset
|
35 ;; Keep "C-x C-m ..." for mule specific commands. |
19725 | 36 (define-key ctl-x-map "\C-m" mule-keymap) |
17090
8085a8690c87
(mule-keymap): Re-arranged.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
37 |
17052 | 38 (define-key mule-keymap "f" 'set-buffer-file-coding-system) |
39 (define-key mule-keymap "t" 'set-terminal-coding-system) | |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
40 (define-key mule-keymap "k" 'set-keyboard-coding-system) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
41 (define-key mule-keymap "p" 'set-buffer-process-coding-system) |
23031
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
42 (define-key mule-keymap "x" 'set-selection-coding-system) |
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
43 (define-key mule-keymap "X" 'set-next-selection-coding-system) |
20295
27ae44142cfd
(set-input-method): Renamed from select-input-method.
Karl Heuer <kwzh@gnu.org>
parents:
20231
diff
changeset
|
44 (define-key mule-keymap "\C-\\" 'set-input-method) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
45 (define-key mule-keymap "c" 'universal-coding-system-argument) |
18801
f60dbf4f7d7c
(mule-keymap): Bind l to set-language-environment.
Kenichi Handa <handa@m17n.org>
parents:
18712
diff
changeset
|
46 (define-key mule-keymap "l" 'set-language-environment) |
17052 | 47 |
18152
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
48 (define-key help-map "\C-L" 'describe-language-environment) |
18633
c8cbbd038612
(help-map): Bind I to describe-input-method.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
49 (define-key help-map "L" 'describe-language-environment) |
17052 | 50 (define-key help-map "\C-\\" 'describe-input-method) |
18633
c8cbbd038612
(help-map): Bind I to describe-input-method.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
51 (define-key help-map "I" 'describe-input-method) |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
52 (define-key help-map "C" 'describe-coding-system) |
17052 | 53 (define-key help-map "h" 'view-hello-file) |
54 | |
27731 | 55 (defvar mule-menu-keymap |
56 (make-sparse-keymap "Mule (Multilingual Environment)") | |
24725
269f6a206499
Change MULE to Mule in docstrings and menus.
Kenichi Handa <handa@m17n.org>
parents:
24617
diff
changeset
|
57 "Keymap for Mule (Multilingual environment) menu specific commands.") |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
58 |
23924
e3421077c412
Use make-sparse-keymap instead of define-prefix-key when defining
Eli Zaretskii <eliz@gnu.org>
parents:
23916
diff
changeset
|
59 (defvar describe-language-environment-map |
e3421077c412
Use make-sparse-keymap instead of define-prefix-key when defining
Eli Zaretskii <eliz@gnu.org>
parents:
23916
diff
changeset
|
60 (make-sparse-keymap "Describe Language Environment")) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
61 |
23924
e3421077c412
Use make-sparse-keymap instead of define-prefix-key when defining
Eli Zaretskii <eliz@gnu.org>
parents:
23916
diff
changeset
|
62 (defvar setup-language-environment-map |
e3421077c412
Use make-sparse-keymap instead of define-prefix-key when defining
Eli Zaretskii <eliz@gnu.org>
parents:
23916
diff
changeset
|
63 (make-sparse-keymap "Set Language Environment")) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
64 |
23924
e3421077c412
Use make-sparse-keymap instead of define-prefix-key when defining
Eli Zaretskii <eliz@gnu.org>
parents:
23916
diff
changeset
|
65 (defvar set-coding-system-map |
e3421077c412
Use make-sparse-keymap instead of define-prefix-key when defining
Eli Zaretskii <eliz@gnu.org>
parents:
23916
diff
changeset
|
66 (make-sparse-keymap "Set Coding System")) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
67 |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
68 (define-key-after mule-menu-keymap [set-language-environment] |
28456 | 69 (list 'menu-item "Set Language Environment" setup-language-environment-map |
70 :help "Multilingual environment suitable for a specific language")) | |
18351
8cc30b266976
Define mouse-set-font in mule-menu-keymap agian.
Kenichi Handa <handa@m17n.org>
parents:
18301
diff
changeset
|
71 (define-key-after mule-menu-keymap [mouse-set-font] |
27731 | 72 '(menu-item "Set Font/Fontset" mouse-set-font |
28456 | 73 :visible (fboundp 'generate-fontset-menu) |
74 :help "Select a font from list of known fonts/fontsets")) | |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
75 (define-key-after mule-menu-keymap [separator-mule] |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
76 '("--") |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
77 t) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
78 (define-key-after mule-menu-keymap [toggle-input-method] |
27731 | 79 '(menu-item "Toggle Input Method" toggle-input-method) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
80 t) |
20295
27ae44142cfd
(set-input-method): Renamed from select-input-method.
Karl Heuer <kwzh@gnu.org>
parents:
20231
diff
changeset
|
81 (define-key-after mule-menu-keymap [set-input-method] |
27731 | 82 '(menu-item "Select Input Method..." set-input-method) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
83 t) |
28456 | 84 (define-key-after mule-menu-keymap [describe-input-method] |
85 '(menu-item "Describe Input Method" describe-input-method)) | |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
86 (define-key-after mule-menu-keymap [separator-input-method] |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
87 '("--") |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
88 t) |
27731 | 89 (define-key-after mule-menu-keymap [set-various-coding-system] |
28456 | 90 (list 'menu-item "Set Coding Systems" set-coding-system-map |
91 :enable 'enable-multibyte-characters)) | |
27731 | 92 (define-key-after mule-menu-keymap [view-hello-file] |
93 '(menu-item "Show Multi-lingual Text" view-hello-file | |
94 :enable (file-readable-p | |
95 (expand-file-name "HELLO" data-directory)) | |
96 :help "Display file which says HELLO in many languages") | |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
97 t) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
98 (define-key-after mule-menu-keymap [separator-coding-system] |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
99 '("--") |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
100 t) |
27731 | 101 (define-key-after mule-menu-keymap [describe-language-environment] |
102 (list 'menu-item "Describe Language Environment" | |
103 describe-language-environment-map | |
28456 | 104 :help "Show multilingual settings for a specific language") |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
105 t) |
27731 | 106 (define-key-after mule-menu-keymap [describe-input-method] |
107 '(menu-item "Describe Input Method..." describe-input-method | |
28456 | 108 :help "Keyboard layout for a specific input method") |
27731 | 109 t) |
110 (define-key-after mule-menu-keymap [describe-coding-system] | |
111 '(menu-item "Describe Coding System..." describe-coding-system) | |
112 t) | |
28456 | 113 (define-key-after mule-menu-keymap [list-character-sets] |
114 '(menu-item "List Character Sets" list-character-sets | |
115 :help "Show table of available character sets")) | |
27731 | 116 (define-key-after mule-menu-keymap [mule-diag] |
117 '(menu-item "Show All of Mule Status" mule-diag | |
118 :help "Display multilingual environment settings") | |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
119 t) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
120 |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
121 (define-key-after set-coding-system-map [set-buffer-file-coding-system] |
27731 | 122 '(menu-item "For Saving this Buffer" set-buffer-file-coding-system |
123 :help "How to encode this buffer on disk") | |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
124 t) |
19673
da7f50da6773
(set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
19654
diff
changeset
|
125 (define-key-after set-coding-system-map [universal-coding-system-argument] |
27731 | 126 '(menu-item "For Next Command" universal-coding-system-argument |
127 :help "Coding system to be used by next command") | |
19673
da7f50da6773
(set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
19654
diff
changeset
|
128 t) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
129 (define-key-after set-coding-system-map [set-terminal-coding-system] |
27731 | 130 '(menu-item "For Terminal" set-terminal-coding-system |
131 :enable (null (memq window-system '(x w32 mac))) | |
132 :help "How to encode terminal output") | |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
133 t) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
134 (define-key-after set-coding-system-map [set-keyboard-coding-system] |
27731 | 135 '(menu-item "For Keyboard" set-keyboard-coding-system |
136 :help "How to decode keyboard input") | |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
137 t) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
138 (define-key-after set-coding-system-map [set-buffer-process-coding-system] |
27731 | 139 '(menu-item "For I/O with Subprocess" set-buffer-process-coding-system |
140 :visible (fboundp 'start-process) | |
141 :enable (get-buffer-process (current-buffer)) | |
142 :help "How to en/decode I/O from/to subprocess connected to this buffer") | |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
143 t) |
23031
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
144 (define-key-after set-coding-system-map [set-selection-coding-system] |
27731 | 145 '(menu-item "For X Selections/Clipboard" set-selection-coding-system |
146 :visible (display-selections-p) | |
147 :help "How to en/decode data to/from selection/clipboard") | |
23031
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
148 t) |
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
149 (define-key-after set-coding-system-map [set-next-selection-coding-system] |
27731 | 150 '(menu-item "For Next X Selection" set-next-selection-coding-system |
151 :visible (display-selections-p) | |
152 :help "How to en/decode next selection/clipboard operation") | |
23031
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
153 t) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
154 (define-key setup-language-environment-map |
27731 | 155 [Default] '(menu-item "Default" setup-specified-language-environment)) |
17052 | 156 |
28456 | 157 (define-key describe-language-environment-map |
158 [Default] '(menu-item "Default" describe-specified-language-support)) | |
159 | |
17052 | 160 ;; This should be a single character key binding because users use it |
161 ;; very frequently while editing multilingual text. Now we can use | |
162 ;; only two such keys: "\C-\\" and "\C-^", but the latter is not | |
163 ;; convenient because it requires shifting on most keyboards. An | |
164 ;; alternative is "\C-\]" which is now bound to `abort-recursive-edit' | |
165 ;; but it won't be used that frequently. | |
166 (define-key global-map "\C-\\" 'toggle-input-method) | |
167 | |
18807
75b2e402c45d
(global-map): Turn off the S-SPC binding.
Richard M. Stallman <rms@gnu.org>
parents:
18801
diff
changeset
|
168 ;;; This is no good because people often type Shift-SPC |
75b2e402c45d
(global-map): Turn off the S-SPC binding.
Richard M. Stallman <rms@gnu.org>
parents:
18801
diff
changeset
|
169 ;;; meaning to type SPC. -- rms. |
75b2e402c45d
(global-map): Turn off the S-SPC binding.
Richard M. Stallman <rms@gnu.org>
parents:
18801
diff
changeset
|
170 ;;; ;; Here's an alternative key binding for X users (Shift-SPACE). |
75b2e402c45d
(global-map): Turn off the S-SPC binding.
Richard M. Stallman <rms@gnu.org>
parents:
18801
diff
changeset
|
171 ;;; (define-key global-map [?\S- ] 'toggle-input-method) |
18801
f60dbf4f7d7c
(mule-keymap): Bind l to set-language-environment.
Kenichi Handa <handa@m17n.org>
parents:
18712
diff
changeset
|
172 |
24007
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
173 (defun coding-system-change-eol-conversion (coding-system eol-type) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
174 "Return a coding system which differs from CODING-SYSTEM in eol conversion. |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
175 The returned coding system converts end-of-line by EOL-TYPE |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
176 but text as the same way as CODING-SYSTEM. |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
177 EOL-TYPE should be `unix', `dos', `mac', or nil. |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
178 If EOL-TYPE is nil, the returned coding system detects |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
179 how end-of-line is formatted automatically while decoding. |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
180 |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
181 EOL-TYPE can be specified by an integer 0, 1, or 2. |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
182 They means `unix', `dos', and `mac' respectively." |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
183 (if (symbolp eol-type) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
184 (setq eol-type (cond ((eq eol-type 'unix) 0) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
185 ((eq eol-type 'dos) 1) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
186 ((eq eol-type 'mac) 2) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
187 (t eol-type)))) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
188 (let ((orig-eol-type (coding-system-eol-type coding-system))) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
189 (if (vectorp orig-eol-type) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
190 (if (not eol-type) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
191 coding-system |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
192 (aref orig-eol-type eol-type)) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
193 (let ((base (coding-system-base coding-system))) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
194 (if (not eol-type) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
195 base |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
196 (if (= eol-type orig-eol-type) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
197 coding-system |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
198 (setq orig-eol-type (coding-system-eol-type base)) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
199 (if (vectorp orig-eol-type) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
200 (aref orig-eol-type eol-type)))))))) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
201 |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
202 (defun coding-system-change-text-conversion (coding-system coding) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
203 "Return a coding system which differs from CODING-SYSTEM in text conversion. |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
204 The returned coding system converts text by CODING |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
205 but end-of-line as the same way as CODING-SYSTEM. |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
206 If CODING is nil, the returned coding system detects |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
207 how text is formatted automatically while decoding." |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
208 (if (not coding) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
209 (coding-system-base coding-system) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
210 (let ((eol-type (coding-system-eol-type coding-system))) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
211 (coding-system-change-eol-conversion |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
212 coding |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
213 (if (numberp eol-type) (aref [unix dos mac] eol-type)))))) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
214 |
17052 | 215 (defun toggle-enable-multibyte-characters (&optional arg) |
20483
141c2d41d39c
(toggle-enable-multibyte-characters): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
20467
diff
changeset
|
216 "Change whether this buffer uses multibyte characters. |
141c2d41d39c
(toggle-enable-multibyte-characters): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
20467
diff
changeset
|
217 With arg, use multibyte characters if the arg is positive. |
141c2d41d39c
(toggle-enable-multibyte-characters): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
20467
diff
changeset
|
218 |
141c2d41d39c
(toggle-enable-multibyte-characters): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
20467
diff
changeset
|
219 Note that this command does not convert the byte contents of |
141c2d41d39c
(toggle-enable-multibyte-characters): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
20467
diff
changeset
|
220 the buffer; it only changes the way those bytes are interpreted. |
141c2d41d39c
(toggle-enable-multibyte-characters): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
20467
diff
changeset
|
221 In general, therefore, this command *changes* the sequence of |
141c2d41d39c
(toggle-enable-multibyte-characters): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
20467
diff
changeset
|
222 characters that the current buffer contains. |
141c2d41d39c
(toggle-enable-multibyte-characters): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
20467
diff
changeset
|
223 |
141c2d41d39c
(toggle-enable-multibyte-characters): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
20467
diff
changeset
|
224 We suggest you avoid using use this command unless you know what you |
141c2d41d39c
(toggle-enable-multibyte-characters): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
20467
diff
changeset
|
225 are doing. If you use it by mistake, and the buffer is now displayed |
141c2d41d39c
(toggle-enable-multibyte-characters): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
20467
diff
changeset
|
226 wrong, use this command again to toggle back to the right mode." |
17052 | 227 (interactive "P") |
20830
237a0f70c61d
(toggle-enable-multibyte-characters): Use set-buffer-multibyte.
Richard M. Stallman <rms@gnu.org>
parents:
20733
diff
changeset
|
228 (let ((new-flag |
237a0f70c61d
(toggle-enable-multibyte-characters): Use set-buffer-multibyte.
Richard M. Stallman <rms@gnu.org>
parents:
20733
diff
changeset
|
229 (if (null arg) (null enable-multibyte-characters) |
237a0f70c61d
(toggle-enable-multibyte-characters): Use set-buffer-multibyte.
Richard M. Stallman <rms@gnu.org>
parents:
20733
diff
changeset
|
230 (> (prefix-numeric-value arg) 0)))) |
237a0f70c61d
(toggle-enable-multibyte-characters): Use set-buffer-multibyte.
Richard M. Stallman <rms@gnu.org>
parents:
20733
diff
changeset
|
231 (set-buffer-multibyte new-flag)) |
17052 | 232 (force-mode-line-update)) |
233 | |
234 (defun view-hello-file () | |
235 "Display the HELLO file which list up many languages and characters." | |
236 (interactive) | |
17294
d7ae63db9e6e
Prefix for Mule related commands is changed.
Kenichi Handa <handa@m17n.org>
parents:
17090
diff
changeset
|
237 ;; We have to decode the file in any environment. |
d7ae63db9e6e
Prefix for Mule related commands is changed.
Kenichi Handa <handa@m17n.org>
parents:
17090
diff
changeset
|
238 (let ((default-enable-multibyte-characters t) |
18217
13a240aa1960
(view-hello-file): Adjusted for the changes of
Kenichi Handa <handa@m17n.org>
parents:
18176
diff
changeset
|
239 (coding-system-for-read 'iso-2022-7bit)) |
17294
d7ae63db9e6e
Prefix for Mule related commands is changed.
Kenichi Handa <handa@m17n.org>
parents:
17090
diff
changeset
|
240 (find-file-read-only (expand-file-name "HELLO" data-directory)))) |
17052 | 241 |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
242 (defun universal-coding-system-argument () |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
243 "Execute an I/O command using the specified coding system." |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
244 (interactive) |
21882
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
245 (let* ((default (and buffer-file-coding-system |
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
246 (not (eq (coding-system-type buffer-file-coding-system) |
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
247 t)) |
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
248 buffer-file-coding-system)) |
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
249 (coding-system (read-coding-system |
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
250 (if default |
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
251 (format "Coding system for following command (default, %s): " default) |
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
252 "Coding system for following command: ") |
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
253 default)) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
254 (keyseq (read-key-sequence |
19798
054497f70932
(universal-coding-system-argument): Improve prompt strings.
Richard M. Stallman <rms@gnu.org>
parents:
19784
diff
changeset
|
255 (format "Command to execute with %s:" coding-system))) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
256 (cmd (key-binding keyseq))) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
257 (let ((coding-system-for-read coding-system) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
258 (coding-system-for-write coding-system)) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
259 (message "") |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
260 (call-interactively cmd)))) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
261 |
19141
9e0468e59b5f
(set-default-coding-systems): New function.
Kenichi Handa <handa@m17n.org>
parents:
19083
diff
changeset
|
262 (defun set-default-coding-systems (coding-system) |
19267
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
263 "Set default value of various coding systems to CODING-SYSTEM. |
21042
b6530c2add6a
(set-default-coding-systems): Set
Kenichi Handa <handa@m17n.org>
parents:
20941
diff
changeset
|
264 This sets the following coding systems: |
19267
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
265 o coding system of a newly created buffer |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
266 o default coding system for subprocess I/O |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
267 This also sets the following values: |
21042
b6530c2add6a
(set-default-coding-systems): Set
Kenichi Handa <handa@m17n.org>
parents:
20941
diff
changeset
|
268 o default value used as file-name-coding-system for converting file names. |
23916
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
269 o default value for the command `set-terminal-coding-system' (not on MSDOS) |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
270 o default value for the command `set-keyboard-coding-system'." |
19141
9e0468e59b5f
(set-default-coding-systems): New function.
Kenichi Handa <handa@m17n.org>
parents:
19083
diff
changeset
|
271 (check-coding-system coding-system) |
9e0468e59b5f
(set-default-coding-systems): New function.
Kenichi Handa <handa@m17n.org>
parents:
19083
diff
changeset
|
272 (setq-default buffer-file-coding-system coding-system) |
22899
5f874a55feb3
(set-default-coding-systems):
Richard M. Stallman <rms@gnu.org>
parents:
22887
diff
changeset
|
273 (if default-enable-multibyte-characters |
5f874a55feb3
(set-default-coding-systems):
Richard M. Stallman <rms@gnu.org>
parents:
22887
diff
changeset
|
274 (setq default-file-name-coding-system coding-system)) |
23916
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
275 ;; If coding-system is nil, honor that on MS-DOS as well, so |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
276 ;; that they could reset the terminal coding system. |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
277 (unless (and (eq window-system 'pc) coding-system) |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
278 (setq default-terminal-coding-system coding-system)) |
19141
9e0468e59b5f
(set-default-coding-systems): New function.
Kenichi Handa <handa@m17n.org>
parents:
19083
diff
changeset
|
279 (setq default-keyboard-coding-system coding-system) |
9e0468e59b5f
(set-default-coding-systems): New function.
Kenichi Handa <handa@m17n.org>
parents:
19083
diff
changeset
|
280 (setq default-process-coding-system (cons coding-system coding-system))) |
9e0468e59b5f
(set-default-coding-systems): New function.
Kenichi Handa <handa@m17n.org>
parents:
19083
diff
changeset
|
281 |
22887
e24b79da83d6
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
22854
diff
changeset
|
282 (defalias 'update-iso-coding-systems 'update-coding-systems-internal) |
e24b79da83d6
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
22854
diff
changeset
|
283 (make-obsolete 'update-iso-coding-systems 'update-coding-systems-internal) |
e24b79da83d6
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
22854
diff
changeset
|
284 |
19267
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
285 (defun prefer-coding-system (coding-system) |
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
286 "Add CODING-SYSTEM at the front of the priority list for automatic detection. |
21042
b6530c2add6a
(set-default-coding-systems): Set
Kenichi Handa <handa@m17n.org>
parents:
20941
diff
changeset
|
287 This also sets the following coding systems: |
19267
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
288 o coding system of a newly created buffer |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
289 o default coding system for subprocess I/O |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
290 This also sets the following values: |
21042
b6530c2add6a
(set-default-coding-systems): Set
Kenichi Handa <handa@m17n.org>
parents:
20941
diff
changeset
|
291 o default value used as file-name-coding-system for converting file names. |
23916
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
292 o default value for the command `set-terminal-coding-system' (not on MSDOS) |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
293 o default value for the command `set-keyboard-coding-system' |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
294 |
23960
37905ac69d9c
(prefer-coding-system): If the argument requires specific EOL conversion
Eli Zaretskii <eliz@gnu.org>
parents:
23924
diff
changeset
|
295 If CODING-SYSTEM specifies a certain type of EOL conversion, the coding |
37905ac69d9c
(prefer-coding-system): If the argument requires specific EOL conversion
Eli Zaretskii <eliz@gnu.org>
parents:
23924
diff
changeset
|
296 systems set by this function will use that type of EOL conversion. |
37905ac69d9c
(prefer-coding-system): If the argument requires specific EOL conversion
Eli Zaretskii <eliz@gnu.org>
parents:
23924
diff
changeset
|
297 |
23916
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
298 This command does not change the default value of terminal coding system |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
299 for MS-DOS terminal, because DOS terminals only support a single coding |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
300 system, and Emacs automatically sets the default to that coding system at |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
301 startup." |
19267
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
302 (interactive "zPrefer coding system: ") |
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
303 (if (not (and coding-system (coding-system-p coding-system))) |
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
304 (error "Invalid coding system `%s'" coding-system)) |
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
305 (let ((coding-category (coding-system-category coding-system)) |
23960
37905ac69d9c
(prefer-coding-system): If the argument requires specific EOL conversion
Eli Zaretskii <eliz@gnu.org>
parents:
23924
diff
changeset
|
306 (base (coding-system-base coding-system)) |
37905ac69d9c
(prefer-coding-system): If the argument requires specific EOL conversion
Eli Zaretskii <eliz@gnu.org>
parents:
23924
diff
changeset
|
307 (eol-type (coding-system-eol-type coding-system))) |
19267
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
308 (if (not coding-category) |
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
309 ;; CODING-SYSTEM is no-conversion or undecided. |
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
310 (error "Can't prefer the coding system `%s'" coding-system)) |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
311 (set coding-category (or base coding-system)) |
22887
e24b79da83d6
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
22854
diff
changeset
|
312 (update-coding-systems-internal) |
24008
1d70b06238e8
(prefer-coding-system): Call set-coding-priority, so that the internal
Eli Zaretskii <eliz@gnu.org>
parents:
24007
diff
changeset
|
313 (or (eq coding-category (car coding-category-list)) |
19267
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
314 ;; We must change the order. |
24008
1d70b06238e8
(prefer-coding-system): Call set-coding-priority, so that the internal
Eli Zaretskii <eliz@gnu.org>
parents:
24007
diff
changeset
|
315 (set-coding-priority (list coding-category))) |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
316 (if (and base (interactive-p)) |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
317 (message "Highest priority is set to %s (base of %s)" |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
318 base coding-system)) |
23960
37905ac69d9c
(prefer-coding-system): If the argument requires specific EOL conversion
Eli Zaretskii <eliz@gnu.org>
parents:
23924
diff
changeset
|
319 ;; If they asked for specific EOL conversion, honor that. |
23966
f3102db5fde0
(prefer-coding-system): Fix previous change.
Eli Zaretskii <eliz@gnu.org>
parents:
23960
diff
changeset
|
320 (if (memq eol-type '(0 1 2)) |
23960
37905ac69d9c
(prefer-coding-system): If the argument requires specific EOL conversion
Eli Zaretskii <eliz@gnu.org>
parents:
23924
diff
changeset
|
321 (setq coding-system |
37905ac69d9c
(prefer-coding-system): If the argument requires specific EOL conversion
Eli Zaretskii <eliz@gnu.org>
parents:
23924
diff
changeset
|
322 (coding-system-change-eol-conversion base eol-type)) |
37905ac69d9c
(prefer-coding-system): If the argument requires specific EOL conversion
Eli Zaretskii <eliz@gnu.org>
parents:
23924
diff
changeset
|
323 (setq coding-system base)) |
37905ac69d9c
(prefer-coding-system): If the argument requires specific EOL conversion
Eli Zaretskii <eliz@gnu.org>
parents:
23924
diff
changeset
|
324 (set-default-coding-systems coding-system))) |
19267
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
325 |
22153 | 326 (defun find-coding-systems-region-subset-p (list1 list2) |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
327 "Return non-nil if all elements in LIST1 are included in LIST2. |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
328 Comparison done with EQ." |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
329 (catch 'tag |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
330 (while list1 |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
331 (or (memq (car list1) list2) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
332 (throw 'tag nil)) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
333 (setq list1 (cdr list1))) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
334 t)) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
335 |
21377 | 336 (defun find-coding-systems-region (from to) |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
337 "Return a list of proper coding systems to encode a text between FROM and TO. |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
338 All coding systems in the list can safely encode any multibyte characters |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
339 in the text. |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
340 |
23196 | 341 If the text contains no multibyte characters, return a list of a single |
21377 | 342 element `undecided'." |
343 (find-coding-systems-for-charsets (find-charset-region from to))) | |
344 | |
345 (defun find-coding-systems-string (string) | |
346 "Return a list of proper coding systems to encode STRING. | |
347 All coding systems in the list can safely encode any multibyte characters | |
348 in STRING. | |
349 | |
23196 | 350 If STRING contains no multibyte characters, return a list of a single |
21377 | 351 element `undecided'." |
352 (find-coding-systems-for-charsets (find-charset-string string))) | |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
353 |
21377 | 354 (defun find-coding-systems-for-charsets (charsets) |
355 "Return a list of proper coding systems to encode characters of CHARSETS. | |
356 CHARSETS is a list of character sets." | |
357 (if (or (null charsets) | |
358 (and (= (length charsets) 1) | |
359 (eq 'ascii (car charsets)))) | |
360 '(undecided) | |
23430
0ab3d33ffd29
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23419
diff
changeset
|
361 (setq charsets (delq 'composition charsets)) |
23889
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
362 (let ((l (coding-system-list 'base-only)) |
24781
284b97841fa1
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
24725
diff
changeset
|
363 (charset-preferred-codings |
21377 | 364 (mapcar (function |
365 (lambda (x) | |
23889
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
366 (if (eq x 'unknown) |
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
367 'raw-text |
24781
284b97841fa1
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
24725
diff
changeset
|
368 (get-charset-property x 'preferred-coding-system)))) |
21377 | 369 charsets)) |
21882
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
370 (priorities (mapcar (function (lambda (x) (symbol-value x))) |
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
371 coding-category-list)) |
21377 | 372 codings coding safe) |
23889
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
373 (if (memq 'unknown charsets) |
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
374 ;; The region contains invalid multibyte characters. |
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
375 (setq l '(raw-text))) |
21377 | 376 (while l |
377 (setq coding (car l) l (cdr l)) | |
23889
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
378 (if (and (setq safe (coding-system-get coding 'safe-charsets)) |
21377 | 379 (or (eq safe t) |
22153 | 380 (find-coding-systems-region-subset-p charsets safe))) |
21377 | 381 ;; We put the higher priority to coding systems included |
24781
284b97841fa1
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
24725
diff
changeset
|
382 ;; in CHARSET-PREFERRED-CODINGS, and within them, put the |
21882
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
383 ;; higher priority to coding systems which support smaller |
21377 | 384 ;; number of charsets. |
385 (let ((priority | |
21882
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
386 (+ (if (coding-system-get coding 'mime-charset) 4096 0) |
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
387 (lsh (length (memq coding priorities)) 7) |
24781
284b97841fa1
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
24725
diff
changeset
|
388 (if (memq coding charset-preferred-codings) 64 0) |
21882
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
389 (if (> (coding-system-type coding) 0) 32 0) |
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
390 (if (consp safe) (- 32 (length safe)) 0)))) |
21377 | 391 (setq codings (cons (cons priority coding) codings))))) |
392 (mapcar 'cdr | |
393 (sort codings (function (lambda (x y) (> (car x) (car y)))))) | |
394 ))) | |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
395 |
22815
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
396 (defun find-multibyte-characters (from to &optional maxcount excludes) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
397 "Find multibyte characters in the region specified by FROM and TO. |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
398 If FROM is a string, find multibyte characters in the string. |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
399 The return value is an alist of the following format: |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
400 ((CHARSET COUNT CHAR ...) ...) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
401 where |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
402 CHARSET is a character set, |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
403 COUNT is a number of characters, |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
404 CHARs are found characters of the character set. |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
405 Optional 3rd arg MAXCOUNT limits how many CHARs are put in the above list. |
23889
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
406 Optional 4th arg EXCLUDE is a list of character sets to be ignored. |
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
407 |
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
408 For invalid characters, CHARs are actually strings." |
22815
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
409 (let ((chars nil) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
410 charset char) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
411 (if (stringp from) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
412 (let ((idx 0)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
413 (while (setq idx (string-match "[^\000-\177]" from idx)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
414 (setq char (aref from idx) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
415 charset (char-charset char)) |
23889
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
416 (if (eq charset 'unknown) |
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
417 (setq char (match-string 0))) |
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
418 (if (or (eq charset 'unknown) |
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
419 (not (or (eq excludes t) (memq charset excludes)))) |
22815
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
420 (let ((slot (assq charset chars))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
421 (if slot |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
422 (if (not (memq char (nthcdr 2 slot))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
423 (let ((count (nth 1 slot))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
424 (setcar (cdr slot) (1+ count)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
425 (if (or (not maxcount) (< count maxcount)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
426 (nconc slot (list char))))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
427 (setq chars (cons (list charset 1 char) chars))))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
428 (setq idx (1+ idx)))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
429 (save-excursion |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
430 (goto-char from) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
431 (while (re-search-forward "[^\000-\177]" to t) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
432 (setq char (preceding-char) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
433 charset (char-charset char)) |
23889
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
434 (if (eq charset 'unknown) |
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
435 (setq char (match-string 0))) |
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
436 (if (or (eq charset 'unknown) |
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
437 (not (or (eq excludes t) (memq charset excludes)))) |
22815
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
438 (let ((slot (assq charset chars))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
439 (if slot |
23889
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
440 (if (not (member char (nthcdr 2 slot))) |
22815
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
441 (let ((count (nth 1 slot))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
442 (setcar (cdr slot) (1+ count)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
443 (if (or (not maxcount) (< count maxcount)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
444 (nconc slot (list char))))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
445 (setq chars (cons (list charset 1 char) chars)))))))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
446 (nreverse chars))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
447 |
22025
369ac7fae774
(last-coding-system-specified): New var.
Richard M. Stallman <rms@gnu.org>
parents:
21983
diff
changeset
|
448 (defvar last-coding-system-specified nil |
369ac7fae774
(last-coding-system-specified): New var.
Richard M. Stallman <rms@gnu.org>
parents:
21983
diff
changeset
|
449 "Most recent coding system explicitly specified by the user when asked. |
369ac7fae774
(last-coding-system-specified): New var.
Richard M. Stallman <rms@gnu.org>
parents:
21983
diff
changeset
|
450 This variable is set whenever Emacs asks the user which coding system |
369ac7fae774
(last-coding-system-specified): New var.
Richard M. Stallman <rms@gnu.org>
parents:
21983
diff
changeset
|
451 to use in order to write a file. If you set it to nil explicitly, |
369ac7fae774
(last-coding-system-specified): New var.
Richard M. Stallman <rms@gnu.org>
parents:
21983
diff
changeset
|
452 then call `write-region', then afterward this variable will be non-nil |
369ac7fae774
(last-coding-system-specified): New var.
Richard M. Stallman <rms@gnu.org>
parents:
21983
diff
changeset
|
453 only if the user was explicitly asked and specified a coding system.") |
369ac7fae774
(last-coding-system-specified): New var.
Richard M. Stallman <rms@gnu.org>
parents:
21983
diff
changeset
|
454 |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
455 (defun select-safe-coding-system (from to &optional default-coding-system) |
20842
428831a6f4d1
(find-safe-coding-system): Return
Kenichi Handa <handa@m17n.org>
parents:
20830
diff
changeset
|
456 "Ask a user to select a safe coding system from candidates. |
428831a6f4d1
(find-safe-coding-system): Return
Kenichi Handa <handa@m17n.org>
parents:
20830
diff
changeset
|
457 The candidates of coding systems which can safely encode a text |
428831a6f4d1
(find-safe-coding-system): Return
Kenichi Handa <handa@m17n.org>
parents:
20830
diff
changeset
|
458 between FROM and TO are shown in a popup window. |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
459 |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
460 Optional arg DEFAULT-CODING-SYSTEM specifies a coding system to be |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
461 checked at first. If omitted, buffer-file-coding-system of the |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
462 current buffer is used. |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
463 |
20842
428831a6f4d1
(find-safe-coding-system): Return
Kenichi Handa <handa@m17n.org>
parents:
20830
diff
changeset
|
464 If the text can be encoded safely by DEFAULT-CODING-SYSTEM, it is |
428831a6f4d1
(find-safe-coding-system): Return
Kenichi Handa <handa@m17n.org>
parents:
20830
diff
changeset
|
465 returned without any user interaction. |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
466 |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
467 Kludgy feature: if FROM is a string, the string is the target text, |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
468 and TO is ignored." |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
469 (or default-coding-system |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
470 (setq default-coding-system buffer-file-coding-system)) |
22815
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
471 (let* ((charsets (if (stringp from) (find-charset-string from) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
472 (find-charset-region from to))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
473 (safe-coding-systems (find-coding-systems-for-charsets charsets))) |
23889
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
474 (if (or (not enable-multibyte-characters) |
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
475 (eq (car safe-coding-systems) 'undecided) |
23021
2a8dbf5b77a8
(select-safe-coding-system): If default-coding-system is no-conversion,
Richard M. Stallman <rms@gnu.org>
parents:
22986
diff
changeset
|
476 (eq default-coding-system 'no-conversion) |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
477 (and default-coding-system |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
478 (memq (coding-system-base default-coding-system) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
479 safe-coding-systems))) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
480 default-coding-system |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
481 |
21882
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
482 ;; At first, change each coding system to the corresponding |
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
483 ;; mime-charset name if it is also a coding system. |
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
484 (let ((l safe-coding-systems) |
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
485 mime-charset) |
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
486 (while l |
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
487 (setq mime-charset (coding-system-get (car l) 'mime-charset)) |
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
488 (if (and mime-charset (coding-system-p mime-charset)) |
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
489 (setcar l mime-charset)) |
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
490 (setq l (cdr l)))) |
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
491 |
22815
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
492 (let ((non-safe-chars (find-multibyte-characters |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
493 from to 3 |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
494 (and default-coding-system |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
495 (coding-system-get default-coding-system |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
496 'safe-charsets)))) |
24417
8a8615132482
(select-safe-coding-system): Be sure
Kenichi Handa <handa@m17n.org>
parents:
24399
diff
changeset
|
497 show-position overlays) |
22815
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
498 (save-excursion |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
499 ;; Highlight characters that default-coding-system can't encode. |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
500 (when (integerp from) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
501 (goto-char from) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
502 (let ((found nil)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
503 (while (and (not found) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
504 (re-search-forward "[^\000-\177]" to t)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
505 (setq found (assq (char-charset (preceding-char)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
506 non-safe-chars)))) |
24417
8a8615132482
(select-safe-coding-system): Be sure
Kenichi Handa <handa@m17n.org>
parents:
24399
diff
changeset
|
507 (forward-line -1) |
8a8615132482
(select-safe-coding-system): Be sure
Kenichi Handa <handa@m17n.org>
parents:
24399
diff
changeset
|
508 (setq show-position (point)) |
22815
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
509 (save-excursion |
24117
9430507fe106
(select-safe-coding-system): Hightlight at most 256 characters.
Richard M. Stallman <rms@gnu.org>
parents:
24066
diff
changeset
|
510 (while (and (< (length overlays) 256) |
9430507fe106
(select-safe-coding-system): Hightlight at most 256 characters.
Richard M. Stallman <rms@gnu.org>
parents:
24066
diff
changeset
|
511 (re-search-forward "[^\000-\177]" to t)) |
22815
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
512 (let* ((char (preceding-char)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
513 (charset (char-charset char))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
514 (when (assq charset non-safe-chars) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
515 (setq overlays (cons (make-overlay (1- (point)) (point)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
516 overlays)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
517 (overlay-put (car overlays) 'face 'highlight)))))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
518 |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
519 ;; At last, ask a user to select a proper coding system. |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
520 (unwind-protect |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
521 (save-window-excursion |
24417
8a8615132482
(select-safe-coding-system): Be sure
Kenichi Handa <handa@m17n.org>
parents:
24399
diff
changeset
|
522 (when show-position |
8a8615132482
(select-safe-coding-system): Be sure
Kenichi Handa <handa@m17n.org>
parents:
24399
diff
changeset
|
523 ;; At first, be sure to show the current buffer. |
8a8615132482
(select-safe-coding-system): Be sure
Kenichi Handa <handa@m17n.org>
parents:
24399
diff
changeset
|
524 (set-window-buffer (selected-window) (current-buffer)) |
8a8615132482
(select-safe-coding-system): Be sure
Kenichi Handa <handa@m17n.org>
parents:
24399
diff
changeset
|
525 (set-window-start (selected-window) show-position)) |
8a8615132482
(select-safe-coding-system): Be sure
Kenichi Handa <handa@m17n.org>
parents:
24399
diff
changeset
|
526 ;; Then, show a helpful message. |
22815
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
527 (with-output-to-temp-buffer "*Warning*" |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
528 (save-excursion |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
529 (set-buffer standard-output) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
530 (insert "The target text contains the following non ASCII character(s):\n") |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
531 (let ((len (length non-safe-chars)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
532 (shown 0)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
533 (while (and non-safe-chars (< shown 3)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
534 (when (> (length (car non-safe-chars)) 2) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
535 (setq shown (1+ shown)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
536 (insert (format "%25s: " (car (car non-safe-chars)))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
537 (let ((l (nthcdr 2 (car non-safe-chars)))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
538 (while l |
23889
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
539 (if (or (stringp (car l)) (char-valid-p (car l))) |
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
540 (insert (car l))) |
22815
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
541 (setq l (cdr l)))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
542 (if (> (nth 1 (car non-safe-chars)) 3) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
543 (insert "...")) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
544 (insert "\n")) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
545 (setq non-safe-chars (cdr non-safe-chars))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
546 (if (< shown len) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
547 (insert (format "%27s\n" "...")))) |
26010
edea9722f14e
(select-safe-coding-system, leim-list-header): avoid the use of strings
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
24864
diff
changeset
|
548 (insert (format |
edea9722f14e
(select-safe-coding-system, leim-list-header): avoid the use of strings
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
24864
diff
changeset
|
549 "These can't be encoded safely by the coding system %s. |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
550 |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
551 Please select one from the following safe coding systems:\n" |
22815
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
552 default-coding-system)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
553 (let ((pos (point)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
554 (fill-prefix " ")) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
555 (mapcar (function (lambda (x) (princ " ") (princ x))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
556 safe-coding-systems) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
557 (fill-region-as-paragraph pos (point))))) |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
558 |
22815
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
559 ;; Read a coding system. |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
560 (let* ((safe-names (mapcar (lambda (x) (list (symbol-name x))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
561 safe-coding-systems)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
562 (name (completing-read |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
563 (format "Select coding system (default %s): " |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
564 (car safe-coding-systems)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
565 safe-names nil t nil nil |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
566 (car (car safe-names))))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
567 (setq last-coding-system-specified (intern name)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
568 (if (integerp (coding-system-eol-type default-coding-system)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
569 (setq last-coding-system-specified |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
570 (coding-system-change-eol-conversion |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
571 last-coding-system-specified |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
572 (coding-system-eol-type default-coding-system)))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
573 last-coding-system-specified)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
574 (kill-buffer "*Warning*") |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
575 (while overlays |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
576 (delete-overlay (car overlays)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
577 (setq overlays (cdr overlays))))))))) |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
578 |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
579 (setq select-safe-coding-system-function 'select-safe-coding-system) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
580 |
23087
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
581 (defun select-message-coding-system () |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
582 "Return a coding system to encode the outgoing message of the current buffer. |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
583 It at first tries the first coding system found in these variables |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
584 in this order: |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
585 (1) local value of `buffer-file-coding-system' |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
586 (2) value of `sendmail-coding-system' |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
587 (3) value of `default-buffer-file-coding-system' |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
588 (4) value of `default-sendmail-coding-system' |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
589 If the found coding system can't encode the current buffer, |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
590 or none of them are bound to a coding system, |
23583
e7dfcab35c8b
(select-message-coding-system): Doc
Andreas Schwab <schwab@suse.de>
parents:
23526
diff
changeset
|
591 it asks the user to select a proper coding system." |
23087
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
592 (let ((coding (or (and (local-variable-p 'buffer-file-coding-system) |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
593 buffer-file-coding-system) |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
594 sendmail-coding-system |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
595 default-buffer-file-coding-system |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
596 default-sendmail-coding-system))) |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
597 (if (eq coding 'no-conversion) |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
598 ;; We should never use no-conversion for outgoing mails. |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
599 (setq coding nil)) |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
600 (if (fboundp select-safe-coding-system-function) |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
601 (funcall select-safe-coding-system-function |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
602 (point-min) (point-max) coding) |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
603 coding))) |
17052 | 604 |
23916
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
605 ;;; Language support stuff. |
17052 | 606 |
607 (defvar language-info-alist nil | |
22153 | 608 "Alist of language environment definitions. |
17052 | 609 Each element looks like: |
610 (LANGUAGE-NAME . ((KEY . INFO) ...)) | |
22153 | 611 where LANGUAGE-NAME is a string, the name of the language environment, |
612 KEY is a symbol denoting the kind of information, and | |
613 INFO is the data associated with KEY. | |
614 Meaningful values for KEY include | |
17052 | 615 |
22153 | 616 documentation value is documentation of what this language environment |
617 is meant for, and how to use it. | |
618 charset value is a list of the character sets used by this | |
619 language environment. | |
620 sample-text value is one line of text, | |
621 written using those character sets, | |
622 appropriate for this language environment. | |
623 setup-function value is a function to call to switch to this | |
624 language environment. | |
625 exit-function value is a function to call to leave this | |
626 language environment. | |
627 coding-system value is a list of coding systems that are good | |
628 for saving text written in this language environment. | |
629 This list serves as suggestions to the user; | |
630 in effect, as a kind of documentation. | |
631 coding-priority value is a list of coding systems for this language | |
632 environment, in order of decreasing priority. | |
633 This is used to set up the coding system priority | |
22887
e24b79da83d6
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
22854
diff
changeset
|
634 list when you switch to this language environment. |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
635 nonascii-translation |
23031
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
636 value is a translation table to be set in the |
22887
e24b79da83d6
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
22854
diff
changeset
|
637 variable `nonascii-translation-table' in this |
23031
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
638 language environment, or a character set from |
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
639 which `nonascii-insert-offset' is calculated. |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
640 input-method value is a default input method for this language |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
641 environment. |
23031
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
642 features value is a list of features requested in this |
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
643 language environment. |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
644 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
645 The following keys take effect only when multibyte characters are |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
646 globally disabled, i.e. the value of `default-enable-multibyte-characters' |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
647 is nil. |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
648 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
649 unibyte-syntax value is a library name to load to set |
23196 | 650 unibyte 8-bit character syntaxes for this |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
651 language environment. |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
652 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
653 unibyte-display value is a coding system to encode characters |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
654 for the terminal. Characters in the range |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
655 of 160 to 255 display not as octal escapes, |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
656 but as non-ASCII characters in this language |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
657 environment.") |
22153 | 658 |
659 (defun get-language-info (lang-env key) | |
660 "Return information listed under KEY for language environment LANG-ENV. | |
661 KEY is a symbol denoting the kind of information. | |
662 For a list of useful values for KEY and their meanings, | |
663 see `language-info-alist'." | |
664 (if (symbolp lang-env) | |
665 (setq lang-env (symbol-name lang-env))) | |
666 (let ((lang-slot (assoc-ignore-case lang-env language-info-alist))) | |
17052 | 667 (if lang-slot |
668 (cdr (assq key (cdr lang-slot)))))) | |
669 | |
22200
a0d60a6c87da
(register-input-method): Rename arg ENV to LANG-ENV. Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22153
diff
changeset
|
670 (defun set-language-info (lang-env key info) |
22153 | 671 "Modify part of the definition of language environment LANG-ENV. |
672 Specifically, this stores the information INFO under KEY | |
673 in the definition of this language environment. | |
17052 | 674 KEY is a symbol denoting the kind of information. |
22153 | 675 INFO is the value for that information. |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
676 |
22153 | 677 For a list of useful values for KEY and their meanings, |
22200
a0d60a6c87da
(register-input-method): Rename arg ENV to LANG-ENV. Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22153
diff
changeset
|
678 see `language-info-alist'." |
22153 | 679 (if (symbolp lang-env) |
680 (setq lang-env (symbol-name lang-env))) | |
17052 | 681 (let (lang-slot key-slot) |
22153 | 682 (setq lang-slot (assoc lang-env language-info-alist)) |
17052 | 683 (if (null lang-slot) ; If no slot for the language, add it. |
22153 | 684 (setq lang-slot (list lang-env) |
17052 | 685 language-info-alist (cons lang-slot language-info-alist))) |
686 (setq key-slot (assq key lang-slot)) | |
687 (if (null key-slot) ; If no slot for the key, add it. | |
688 (progn | |
689 (setq key-slot (list key)) | |
690 (setcdr lang-slot (cons key-slot (cdr lang-slot))))) | |
28456 | 691 (setcdr key-slot (purecopy info)))) |
17052 | 692 |
22153 | 693 (defun set-language-info-alist (lang-env alist &optional parents) |
694 "Store ALIST as the definition of language environment LANG-ENV. | |
695 ALIST is an alist of KEY and INFO values. See the documentation of | |
23031
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
696 `set-language-info' for the meanings of KEY and INFO. |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
697 |
22153 | 698 Optional arg PARENTS is a list of parent menu names; it specifies |
699 where to put this language environment in the | |
700 Describe Language Environment and Set Language Environment menus. | |
701 For example, (\"European\") means to put this language environment | |
702 in the European submenu in each of those two menus." | |
703 (if (symbolp lang-env) | |
704 (setq lang-env (symbol-name lang-env))) | |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
705 (let ((describe-map describe-language-environment-map) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
706 (setup-map setup-language-environment-map)) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
707 (if parents |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
708 (let ((l parents) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
709 map parent-symbol parent) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
710 (while l |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
711 (if (symbolp (setq parent-symbol (car l))) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
712 (setq parent (symbol-name parent)) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
713 (setq parent parent-symbol parent-symbol (intern parent))) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
714 (setq map (lookup-key describe-map (vector parent-symbol))) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
715 (if (not map) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
716 (progn |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
717 (setq map (intern (format "describe-%s-environment-map" |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
718 (downcase parent)))) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
719 (define-prefix-command map) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
720 (define-key-after describe-map (vector parent-symbol) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
721 (cons parent map) t))) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
722 (setq describe-map (symbol-value map)) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
723 (setq map (lookup-key setup-map (vector parent-symbol))) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
724 (if (not map) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
725 (progn |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
726 (setq map (intern (format "setup-%s-environment-map" |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
727 (downcase parent)))) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
728 (define-prefix-command map) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
729 (define-key-after setup-map (vector parent-symbol) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
730 (cons parent map) t))) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
731 (setq setup-map (symbol-value map)) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
732 (setq l (cdr l))))) |
22200
a0d60a6c87da
(register-input-method): Rename arg ENV to LANG-ENV. Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22153
diff
changeset
|
733 |
a0d60a6c87da
(register-input-method): Rename arg ENV to LANG-ENV. Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22153
diff
changeset
|
734 ;; Set up menu items for this language env. |
23031
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
735 (let ((doc (assq 'documentation alist))) |
22200
a0d60a6c87da
(register-input-method): Rename arg ENV to LANG-ENV. Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22153
diff
changeset
|
736 (when doc |
a0d60a6c87da
(register-input-method): Rename arg ENV to LANG-ENV. Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22153
diff
changeset
|
737 (define-key-after describe-map (vector (intern lang-env)) |
23031
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
738 (cons lang-env 'describe-specified-language-support) t))) |
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
739 (define-key-after setup-map (vector (intern lang-env)) |
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
740 (cons lang-env 'setup-specified-language-environment) t) |
22200
a0d60a6c87da
(register-input-method): Rename arg ENV to LANG-ENV. Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22153
diff
changeset
|
741 |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
742 (while alist |
22200
a0d60a6c87da
(register-input-method): Rename arg ENV to LANG-ENV. Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22153
diff
changeset
|
743 (set-language-info lang-env (car (car alist)) (cdr (car alist))) |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
744 (setq alist (cdr alist))))) |
17052 | 745 |
19734
c4894d8a3310
(read-language-name): Use a default, not an initial input.
Richard M. Stallman <rms@gnu.org>
parents:
19725
diff
changeset
|
746 (defun read-language-name (key prompt &optional default) |
22153 | 747 "Read a language environment name which has information for KEY. |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
748 If KEY is nil, read any language environment. |
22153 | 749 Prompt with PROMPT. DEFAULT is the default choice of language environment. |
750 This returns a language environment name as a string." | |
17052 | 751 (let* ((completion-ignore-case t) |
752 (name (completing-read prompt | |
753 language-info-alist | |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
754 (and key |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
755 (function (lambda (elm) (assq key elm)))) |
19734
c4894d8a3310
(read-language-name): Use a default, not an initial input.
Richard M. Stallman <rms@gnu.org>
parents:
19725
diff
changeset
|
756 t nil nil default))) |
17758
8c67c2e2cc29
(build-describe-language-support-function,
Kenichi Handa <handa@m17n.org>
parents:
17526
diff
changeset
|
757 (if (and (> (length name) 0) |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
758 (or (not key) |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
759 (get-language-info name key))) |
17758
8c67c2e2cc29
(build-describe-language-support-function,
Kenichi Handa <handa@m17n.org>
parents:
17526
diff
changeset
|
760 name))) |
17052 | 761 |
762 ;;; Multilingual input methods. | |
763 | |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
764 (defconst leim-list-file-name "leim-list.el" |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
765 "Name of LEIM list file. |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
766 This file contains a list of libraries of Emacs input methods (LEIM) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
767 in the format of Lisp expression for registering each input method. |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
768 Emacs loads this file at startup time.") |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
769 |
26010
edea9722f14e
(select-safe-coding-system, leim-list-header): avoid the use of strings
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
24864
diff
changeset
|
770 (defvar leim-list-header (format |
edea9722f14e
(select-safe-coding-system, leim-list-header): avoid the use of strings
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
24864
diff
changeset
|
771 ";;; %s -- list of LEIM (Library of Emacs Input Method) |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
772 ;; |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
773 ;; This file contains a list of LEIM (Library of Emacs Input Method) |
23196 | 774 ;; in the same directory as this file. Loading this file registers |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
775 ;; the whole input methods in Emacs. |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
776 ;; |
18969 | 777 ;; Each entry has the form: |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
778 ;; (register-input-method |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
779 ;; INPUT-METHOD LANGUAGE-NAME ACTIVATE-FUNC |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
780 ;; TITLE DESCRIPTION |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
781 ;; ARG ...) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
782 ;; See the function `register-input-method' for the meanings of arguments. |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
783 ;; |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
784 ;; If this directory is included in load-path, Emacs automatically |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
785 ;; loads this file at startup time. |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
786 |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
787 " |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
788 leim-list-file-name) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
789 "Header to be inserted in LEIM list file.") |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
790 |
18982
2297a2cb909d
(leim-list-entry-regexp): Make this match only at beginning of line.
Kenichi Handa <handa@m17n.org>
parents:
18978
diff
changeset
|
791 (defvar leim-list-entry-regexp "^(register-input-method" |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
792 "Regexp matching head of each entry in LEIM list file. |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
793 See also the variable `leim-list-header'") |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
794 |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
795 (defvar update-leim-list-functions |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
796 '(quail-update-leim-list-file) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
797 "List of functions to call to update LEIM list file. |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
798 Each function is called with one arg, LEIM directory name.") |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
799 |
19615
4cdef838afb0
(update-leim-list-file): Make it handle multiple directories.
Richard M. Stallman <rms@gnu.org>
parents:
19614
diff
changeset
|
800 (defun update-leim-list-file (&rest dirs) |
4cdef838afb0
(update-leim-list-file): Make it handle multiple directories.
Richard M. Stallman <rms@gnu.org>
parents:
19614
diff
changeset
|
801 "Update LEIM list file in directories DIRS." |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
802 (let ((functions update-leim-list-functions)) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
803 (while functions |
19615
4cdef838afb0
(update-leim-list-file): Make it handle multiple directories.
Richard M. Stallman <rms@gnu.org>
parents:
19614
diff
changeset
|
804 (apply (car functions) dirs) |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
805 (setq functions (cdr functions))))) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
806 |
17052 | 807 (defvar current-input-method nil |
808 "The current input method for multilingual text. | |
19083
8fdb29b769ed
Doc fixes; fix error message text.
Richard M. Stallman <rms@gnu.org>
parents:
19036
diff
changeset
|
809 If nil, that means no input method is activated now.") |
17052 | 810 (make-variable-buffer-local 'current-input-method) |
811 (put 'current-input-method 'permanent-local t) | |
812 | |
813 (defvar current-input-method-title nil | |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
814 "Title string of the current input method shown in mode line.") |
17052 | 815 (make-variable-buffer-local 'current-input-method-title) |
816 (put 'current-input-method-title 'permanent-local t) | |
817 | |
18801
f60dbf4f7d7c
(mule-keymap): Bind l to set-language-environment.
Kenichi Handa <handa@m17n.org>
parents:
18712
diff
changeset
|
818 (defcustom default-input-method nil |
21229
38b621cd9169
(set-language-environment): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
21042
diff
changeset
|
819 "*Default input method for multilingual text (a string). |
18801
f60dbf4f7d7c
(mule-keymap): Bind l to set-language-environment.
Kenichi Handa <handa@m17n.org>
parents:
18712
diff
changeset
|
820 This is the input method activated automatically by the command |
19329
249631cebee0
(default-input-method):
Richard M. Stallman <rms@gnu.org>
parents:
19328
diff
changeset
|
821 `toggle-input-method' (\\[toggle-input-method])." |
21229
38b621cd9169
(set-language-environment): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
21042
diff
changeset
|
822 :group 'mule |
26832
4a01a2762de5
(default-input-method): Specify
Gerd Moellmann <gerd@gnu.org>
parents:
26190
diff
changeset
|
823 :type '(choice (const nil) string) |
4a01a2762de5
(default-input-method): Specify
Gerd Moellmann <gerd@gnu.org>
parents:
26190
diff
changeset
|
824 :set-after '(current-language-environment)) |
18801
f60dbf4f7d7c
(mule-keymap): Bind l to set-language-environment.
Kenichi Handa <handa@m17n.org>
parents:
18712
diff
changeset
|
825 |
24617
a9d05d95717d
(input-method-function): Add permanent-local property.
Karl Heuer <kwzh@gnu.org>
parents:
24551
diff
changeset
|
826 (put 'input-method-function 'permanent-local t) |
a9d05d95717d
(input-method-function): Add permanent-local property.
Karl Heuer <kwzh@gnu.org>
parents:
24551
diff
changeset
|
827 |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
828 (defvar input-method-history nil |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
829 "History list for some commands that read input methods.") |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
830 (make-variable-buffer-local 'input-method-history) |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
831 (put 'input-method-history 'permanent-local t) |
17052 | 832 |
833 (defvar inactivate-current-input-method-function nil | |
834 "Function to call for inactivating the current input method. | |
835 Every input method should set this to an appropriate value when activated. | |
19555
df2996f7fdc3
(inactivate-current-input-method-function): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
19424
diff
changeset
|
836 This function is called with no argument. |
df2996f7fdc3
(inactivate-current-input-method-function): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
19424
diff
changeset
|
837 |
df2996f7fdc3
(inactivate-current-input-method-function): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
19424
diff
changeset
|
838 This function should never change the value of `current-input-method'. |
df2996f7fdc3
(inactivate-current-input-method-function): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
19424
diff
changeset
|
839 It is set to nil by the function `inactivate-input-method'.") |
17052 | 840 (make-variable-buffer-local 'inactivate-current-input-method-function) |
841 (put 'inactivate-current-input-method-function 'permanent-local t) | |
842 | |
843 (defvar describe-current-input-method-function nil | |
844 "Function to call for describing the current input method. | |
845 This function is called with no argument.") | |
846 (make-variable-buffer-local 'describe-current-input-method-function) | |
847 (put 'describe-current-input-method-function 'permanent-local t) | |
848 | |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
849 (defvar input-method-alist nil |
22153 | 850 "Alist of input method names vs how to use them. |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
851 Each element has the form: |
22153 | 852 (INPUT-METHOD LANGUAGE-ENV ACTIVATE-FUNC TITLE DESCRIPTION ARGS...) |
853 See the function `register-input-method' for the meanings of the elements.") | |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
854 |
22200
a0d60a6c87da
(register-input-method): Rename arg ENV to LANG-ENV. Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22153
diff
changeset
|
855 (defun register-input-method (input-method lang-env &rest args) |
22153 | 856 "Register INPUT-METHOD as an input method for language environment ENV. |
22200
a0d60a6c87da
(register-input-method): Rename arg ENV to LANG-ENV. Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22153
diff
changeset
|
857 INPUT-METHOD and LANG-ENV are symbols or strings. |
22153 | 858 |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
859 The remaining arguments are: |
22153 | 860 ACTIVATE-FUNC, TITLE, DESCRIPTION, and ARGS... |
861 ACTIVATE-FUNC is a function to call to activate this method. | |
862 TITLE is a string to show in the mode line when this method is active. | |
863 DESCRIPTION is a string describing this method and what it is good for. | |
864 The ARGS, if any, are passed as arguments to ACTIVATE-FUNC. | |
23168
ff3750779f48
(register-input-method): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23165
diff
changeset
|
865 All told, the arguments to ACTIVATE-FUNC are INPUT-METHOD and the ARGS. |
ff3750779f48
(register-input-method): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23165
diff
changeset
|
866 |
ff3750779f48
(register-input-method): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23165
diff
changeset
|
867 This function is mainly used in the file \"leim-list.el\" which is |
ff3750779f48
(register-input-method): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23165
diff
changeset
|
868 created at building time of emacs, registering all quail input methods |
ff3750779f48
(register-input-method): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23165
diff
changeset
|
869 contained in the emacs distribution. |
ff3750779f48
(register-input-method): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23165
diff
changeset
|
870 |
ff3750779f48
(register-input-method): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23165
diff
changeset
|
871 In case you want to register a new quail input method by yourself, be |
ff3750779f48
(register-input-method): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23165
diff
changeset
|
872 careful to use the same input method title as given in the third |
ff3750779f48
(register-input-method): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23165
diff
changeset
|
873 parameter of `quail-define-package' (if the values are different, the |
ff3750779f48
(register-input-method): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23165
diff
changeset
|
874 string specified in this function takes precedence). |
ff3750779f48
(register-input-method): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23165
diff
changeset
|
875 |
ff3750779f48
(register-input-method): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23165
diff
changeset
|
876 The commands `describe-input-method' and `list-input-methods' need |
ff3750779f48
(register-input-method): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23165
diff
changeset
|
877 this duplicated values to show some information about input methods |
ff3750779f48
(register-input-method): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23165
diff
changeset
|
878 without loading the affected quail packages." |
22200
a0d60a6c87da
(register-input-method): Rename arg ENV to LANG-ENV. Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22153
diff
changeset
|
879 (if (symbolp lang-env) |
a0d60a6c87da
(register-input-method): Rename arg ENV to LANG-ENV. Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22153
diff
changeset
|
880 (setq lang-env (symbol-name lang-env))) |
19649
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
881 (if (symbolp input-method) |
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
882 (setq input-method (symbol-name input-method))) |
22200
a0d60a6c87da
(register-input-method): Rename arg ENV to LANG-ENV. Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22153
diff
changeset
|
883 (let ((info (cons lang-env args)) |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
884 (slot (assoc input-method input-method-alist))) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
885 (if slot |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
886 (setcdr slot info) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
887 (setq slot (cons input-method info)) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
888 (setq input-method-alist (cons slot input-method-alist))))) |
17052 | 889 |
19328
a616b45ffa31
(read-input-method-name): Replace INITIAL-INPUT arg with DEFAULT arg.
Richard M. Stallman <rms@gnu.org>
parents:
19267
diff
changeset
|
890 (defun read-input-method-name (prompt &optional default inhibit-null) |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
891 "Read a name of input method from a minibuffer prompting with PROMPT. |
19328
a616b45ffa31
(read-input-method-name): Replace INITIAL-INPUT arg with DEFAULT arg.
Richard M. Stallman <rms@gnu.org>
parents:
19267
diff
changeset
|
892 If DEFAULT is non-nil, use that as the default, |
a616b45ffa31
(read-input-method-name): Replace INITIAL-INPUT arg with DEFAULT arg.
Richard M. Stallman <rms@gnu.org>
parents:
19267
diff
changeset
|
893 and substitute it into PROMPT at the first `%s'. |
19649
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
894 If INHIBIT-NULL is non-nil, null input signals an error. |
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
895 |
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
896 The return value is a string." |
19328
a616b45ffa31
(read-input-method-name): Replace INITIAL-INPUT arg with DEFAULT arg.
Richard M. Stallman <rms@gnu.org>
parents:
19267
diff
changeset
|
897 (if default |
a616b45ffa31
(read-input-method-name): Replace INITIAL-INPUT arg with DEFAULT arg.
Richard M. Stallman <rms@gnu.org>
parents:
19267
diff
changeset
|
898 (setq prompt (format prompt default))) |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
899 (let* ((completion-ignore-case t) |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
900 ;; This binding is necessary because input-method-history is |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
901 ;; buffer local. |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
902 (input-method (completing-read prompt input-method-alist |
19748
06cbad2e806a
(read-input-method-name): Specify the input history properly.
Richard M. Stallman <rms@gnu.org>
parents:
19746
diff
changeset
|
903 nil t nil 'input-method-history |
06cbad2e806a
(read-input-method-name): Specify the input history properly.
Richard M. Stallman <rms@gnu.org>
parents:
19746
diff
changeset
|
904 default))) |
26190
598f252b76f2
(read-input-method-name): Handle the
Kenichi Handa <handa@m17n.org>
parents:
26139
diff
changeset
|
905 (if (and input-method (symbolp input-method)) |
598f252b76f2
(read-input-method-name): Handle the
Kenichi Handa <handa@m17n.org>
parents:
26139
diff
changeset
|
906 (setq input-method (symbol-name input-method))) |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
907 (if (> (length input-method) 0) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
908 input-method |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
909 (if inhibit-null |
18978
0f01c27a9756
(read-input-method-name): Show more appropriate error message.
Kenichi Handa <handa@m17n.org>
parents:
18969
diff
changeset
|
910 (error "No valid input method is specified"))))) |
17052 | 911 |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
912 (defun activate-input-method (input-method) |
22153 | 913 "Switch to input method INPUT-METHOD for the current buffer. |
914 If some other input method is already active, turn it off first. | |
915 If INPUT-METHOD is nil, deactivate any current input method." | |
23049
82a27d5b4582
(activate-input-method): Handle the
Kenichi Handa <handa@m17n.org>
parents:
23044
diff
changeset
|
916 (if (and input-method (symbolp input-method)) |
19649
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
917 (setq input-method (symbol-name input-method))) |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
918 (if (and current-input-method |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
919 (not (string= current-input-method input-method))) |
23049
82a27d5b4582
(activate-input-method): Handle the
Kenichi Handa <handa@m17n.org>
parents:
23044
diff
changeset
|
920 (inactivate-input-method)) |
22153 | 921 (unless (or current-input-method (null input-method)) |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
922 (let ((slot (assoc input-method input-method-alist))) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
923 (if (null slot) |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
924 (error "Can't activate input method `%s'" input-method)) |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
925 (let ((func (nth 2 slot))) |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
926 (if (functionp func) |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
927 (apply (nth 2 slot) input-method (nthcdr 5 slot)) |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
928 (if (and (consp func) (symbolp (car func)) (symbolp (cdr func))) |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
929 (progn |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
930 (require (cdr func)) |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
931 (apply (car func) input-method (nthcdr 5 slot))) |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
932 (error "Can't activate input method `%s'" input-method)))) |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
933 (setq current-input-method input-method) |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
934 (setq current-input-method-title (nth 3 slot)) |
22854
dd7dcda2d47b
(activate-input-method): Update mode line.
Kenichi Handa <handa@m17n.org>
parents:
22815
diff
changeset
|
935 (unwind-protect |
dd7dcda2d47b
(activate-input-method): Update mode line.
Kenichi Handa <handa@m17n.org>
parents:
22815
diff
changeset
|
936 (run-hooks 'input-method-activate-hook) |
dd7dcda2d47b
(activate-input-method): Update mode line.
Kenichi Handa <handa@m17n.org>
parents:
22815
diff
changeset
|
937 (force-mode-line-update))))) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
938 |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
939 (defun inactivate-input-method () |
19555
df2996f7fdc3
(inactivate-current-input-method-function): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
19424
diff
changeset
|
940 "Turn off the current input method." |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
941 (when current-input-method |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
942 (if input-method-history |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
943 (unless (string= current-input-method (car input-method-history)) |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
944 (setq input-method-history |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
945 (cons current-input-method |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
946 (delete current-input-method input-method-history)))) |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
947 (setq input-method-history (list current-input-method))) |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
948 (unwind-protect |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
949 (funcall inactivate-current-input-method-function) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
950 (unwind-protect |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
951 (run-hooks 'input-method-inactivate-hook) |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
952 (setq current-input-method nil |
22854
dd7dcda2d47b
(activate-input-method): Update mode line.
Kenichi Handa <handa@m17n.org>
parents:
22815
diff
changeset
|
953 current-input-method-title nil) |
dd7dcda2d47b
(activate-input-method): Update mode line.
Kenichi Handa <handa@m17n.org>
parents:
22815
diff
changeset
|
954 (force-mode-line-update))))) |
17052 | 955 |
20295
27ae44142cfd
(set-input-method): Renamed from select-input-method.
Karl Heuer <kwzh@gnu.org>
parents:
20231
diff
changeset
|
956 (defun set-input-method (input-method) |
22153 | 957 "Select and activate input method INPUT-METHOD for the current buffer. |
958 This also sets the default input method to the one you specify." | |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
959 (interactive |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
960 (let* ((default (or (car input-method-history) default-input-method))) |
19402 | 961 (list (read-input-method-name |
19748
06cbad2e806a
(read-input-method-name): Specify the input history properly.
Richard M. Stallman <rms@gnu.org>
parents:
19746
diff
changeset
|
962 (if default "Select input method (default %s): " "Select input method: ") |
19402 | 963 default t)))) |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
964 (activate-input-method input-method) |
19402 | 965 (setq default-input-method input-method)) |
17052 | 966 |
967 (defun toggle-input-method (&optional arg) | |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
968 "Turn on or off a multilingual text input method for the current buffer. |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
969 |
24864
21f620ad347e
(describe-current-input-method):
Kenichi Handa <handa@m17n.org>
parents:
24781
diff
changeset
|
970 With no prefix argument, if an input method is currently activated, |
21f620ad347e
(describe-current-input-method):
Kenichi Handa <handa@m17n.org>
parents:
24781
diff
changeset
|
971 turn it off. Otherwise, activate an input method -- the one most |
21f620ad347e
(describe-current-input-method):
Kenichi Handa <handa@m17n.org>
parents:
24781
diff
changeset
|
972 recently used, or the one specified in `default-input-method', or |
21f620ad347e
(describe-current-input-method):
Kenichi Handa <handa@m17n.org>
parents:
24781
diff
changeset
|
973 the one read from the minibuffer. |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
974 |
24864
21f620ad347e
(describe-current-input-method):
Kenichi Handa <handa@m17n.org>
parents:
24781
diff
changeset
|
975 With a prefix argument, read an input method from the minibuffer and |
21f620ad347e
(describe-current-input-method):
Kenichi Handa <handa@m17n.org>
parents:
24781
diff
changeset
|
976 turn it on. |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
977 |
24864
21f620ad347e
(describe-current-input-method):
Kenichi Handa <handa@m17n.org>
parents:
24781
diff
changeset
|
978 The default is to use the most recent input method specified |
21f620ad347e
(describe-current-input-method):
Kenichi Handa <handa@m17n.org>
parents:
24781
diff
changeset
|
979 \(not including the currently active input method, if any)." |
17052 | 980 (interactive "P") |
21983
487cd71c058d
(toggle-input-method): Use a more
Richard M. Stallman <rms@gnu.org>
parents:
21882
diff
changeset
|
981 (if (and current-input-method (not arg)) |
487cd71c058d
(toggle-input-method): Use a more
Richard M. Stallman <rms@gnu.org>
parents:
21882
diff
changeset
|
982 (inactivate-input-method) |
487cd71c058d
(toggle-input-method): Use a more
Richard M. Stallman <rms@gnu.org>
parents:
21882
diff
changeset
|
983 (let ((default (or (car input-method-history) default-input-method))) |
487cd71c058d
(toggle-input-method): Use a more
Richard M. Stallman <rms@gnu.org>
parents:
21882
diff
changeset
|
984 (if (and arg default (equal current-input-method default) |
487cd71c058d
(toggle-input-method): Use a more
Richard M. Stallman <rms@gnu.org>
parents:
21882
diff
changeset
|
985 (> (length input-method-history) 1)) |
487cd71c058d
(toggle-input-method): Use a more
Richard M. Stallman <rms@gnu.org>
parents:
21882
diff
changeset
|
986 (setq default (nth 1 input-method-history))) |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
987 (activate-input-method |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
988 (if (or arg (not default)) |
21983
487cd71c058d
(toggle-input-method): Use a more
Richard M. Stallman <rms@gnu.org>
parents:
21882
diff
changeset
|
989 (progn |
487cd71c058d
(toggle-input-method): Use a more
Richard M. Stallman <rms@gnu.org>
parents:
21882
diff
changeset
|
990 (read-input-method-name |
487cd71c058d
(toggle-input-method): Use a more
Richard M. Stallman <rms@gnu.org>
parents:
21882
diff
changeset
|
991 (if default "Input method (default %s): " "Input method: " ) |
487cd71c058d
(toggle-input-method): Use a more
Richard M. Stallman <rms@gnu.org>
parents:
21882
diff
changeset
|
992 default t)) |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
993 default)) |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
994 (or default-input-method |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
995 (setq default-input-method current-input-method))))) |
17052 | 996 |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
997 (defun describe-input-method (input-method) |
22153 | 998 "Describe input method INPUT-METHOD." |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
999 (interactive |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1000 (list (read-input-method-name |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1001 "Describe input method (default, current choice): "))) |
19653
431753f747ea
(describe-input-method): Fix previous
Kenichi Handa <handa@m17n.org>
parents:
19649
diff
changeset
|
1002 (if (and input-method (symbolp input-method)) |
19649
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
1003 (setq input-method (symbol-name input-method))) |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1004 (if (null input-method) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1005 (describe-current-input-method) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1006 (with-output-to-temp-buffer "*Help*" |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1007 (let ((elt (assoc input-method input-method-alist))) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1008 (princ (format "Input method: %s (`%s' in mode line) for %s\n %s\n" |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1009 input-method (nth 3 elt) (nth 1 elt) (nth 4 elt))))))) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1010 |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1011 (defun describe-current-input-method () |
19083
8fdb29b769ed
Doc fixes; fix error message text.
Richard M. Stallman <rms@gnu.org>
parents:
19036
diff
changeset
|
1012 "Describe the input method currently in use." |
17052 | 1013 (if current-input-method |
1014 (if (and (symbolp describe-current-input-method-function) | |
1015 (fboundp describe-current-input-method-function)) | |
1016 (funcall describe-current-input-method-function) | |
1017 (message "No way to describe the current input method `%s'" | |
24864
21f620ad347e
(describe-current-input-method):
Kenichi Handa <handa@m17n.org>
parents:
24781
diff
changeset
|
1018 current-input-method) |
17052 | 1019 (ding)) |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1020 (error "No input method is activated now"))) |
17052 | 1021 |
20116
8c1995cc7702
(read-multilingual-string): Use
Kenichi Handa <handa@m17n.org>
parents:
20091
diff
changeset
|
1022 (defun read-multilingual-string (prompt &optional initial-input input-method) |
17052 | 1023 "Read a multilingual string from minibuffer, prompting with string PROMPT. |
1024 The input method selected last time is activated in minibuffer. | |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1025 If optional second arg INITIAL-INPUT is non-nil, insert it in the minibuffer |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1026 initially. |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1027 Optional 3rd argument INPUT-METHOD specifies the input method |
19649
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
1028 to be activated instead of the one selected last time. It is a symbol |
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
1029 or a string." |
18712
7366898bee9e
(read-multilingual-string): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
18634
diff
changeset
|
1030 (setq input-method |
7366898bee9e
(read-multilingual-string): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
18634
diff
changeset
|
1031 (or input-method |
20116
8c1995cc7702
(read-multilingual-string): Use
Kenichi Handa <handa@m17n.org>
parents:
20091
diff
changeset
|
1032 current-input-method |
18712
7366898bee9e
(read-multilingual-string): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
18634
diff
changeset
|
1033 default-input-method |
7366898bee9e
(read-multilingual-string): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
18634
diff
changeset
|
1034 (read-input-method-name "Input method: " nil t))) |
19654
4c0174fcf26c
(read-multilingual-string): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
19653
diff
changeset
|
1035 (if (and input-method (symbolp input-method)) |
19649
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
1036 (setq input-method (symbol-name input-method))) |
23049
82a27d5b4582
(activate-input-method): Handle the
Kenichi Handa <handa@m17n.org>
parents:
23044
diff
changeset
|
1037 (let ((prev-input-method current-input-method)) |
82a27d5b4582
(activate-input-method): Handle the
Kenichi Handa <handa@m17n.org>
parents:
23044
diff
changeset
|
1038 (unwind-protect |
82a27d5b4582
(activate-input-method): Handle the
Kenichi Handa <handa@m17n.org>
parents:
23044
diff
changeset
|
1039 (progn |
82a27d5b4582
(activate-input-method): Handle the
Kenichi Handa <handa@m17n.org>
parents:
23044
diff
changeset
|
1040 (activate-input-method input-method) |
82a27d5b4582
(activate-input-method): Handle the
Kenichi Handa <handa@m17n.org>
parents:
23044
diff
changeset
|
1041 (read-string prompt initial-input nil nil t)) |
82a27d5b4582
(activate-input-method): Handle the
Kenichi Handa <handa@m17n.org>
parents:
23044
diff
changeset
|
1042 (activate-input-method prev-input-method)))) |
17052 | 1043 |
1044 ;; Variables to control behavior of input methods. All input methods | |
1045 ;; should react to these variables. | |
1046 | |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1047 (defcustom input-method-verbose-flag 'default |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1048 "*A flag to control extra guidance given by input methods. |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1049 The value should be nil, t, `complex-only', or `default'. |
17052 | 1050 |
19917
834c629f9220
(select-input-method): No error if enable-multibyte-characters is nil.
Richard M. Stallman <rms@gnu.org>
parents:
19848
diff
changeset
|
1051 The extra guidance is done by showing list of available keys in echo |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1052 area. When you use the input method in the minibuffer, the guidance |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1053 is shown at the bottom short window (split from the existing window). |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1054 |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1055 If the value is t, extra guidance is always given, if the value is |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1056 nil, extra guidance is always suppressed. |
19848
68c5c0b3ed0d
(input-method-verbose-flag):
Kenichi Handa <handa@m17n.org>
parents:
19798
diff
changeset
|
1057 |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1058 If the value is `complex-only', only complex input methods such as |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1059 `chinese-py' and `japanese' give extra guidance. |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1060 |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1061 If the value is `default', complex input methods always give extra |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1062 guidance, but simple input methods give it only when you are not in |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1063 the minibuffer. |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1064 |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1065 See also the variable `input-method-highlight-flag'." |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1066 :type '(choice (const t) (const nil) (const complex-only) (const default)) |
19402 | 1067 :group 'mule) |
1068 | |
1069 (defcustom input-method-highlight-flag t | |
1070 "*If this flag is non-nil, input methods highlight partially-entered text. | |
1071 For instance, while you are in the middle of a Quail input method sequence, | |
1072 the text inserted so far is temporarily underlined. | |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1073 The underlining goes away when you finish or abort the input method sequence. |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1074 See also the variable `input-method-verbose-flag'." |
19402 | 1075 :type 'boolean |
1076 :group 'mule) | |
17052 | 1077 |
1078 (defvar input-method-activate-hook nil | |
19555
df2996f7fdc3
(inactivate-current-input-method-function): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
19424
diff
changeset
|
1079 "Normal hook run just after an input method is activated. |
df2996f7fdc3
(inactivate-current-input-method-function): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
19424
diff
changeset
|
1080 |
df2996f7fdc3
(inactivate-current-input-method-function): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
19424
diff
changeset
|
1081 The variable `current-input-method' keeps the input method name |
df2996f7fdc3
(inactivate-current-input-method-function): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
19424
diff
changeset
|
1082 just activated.") |
17052 | 1083 |
1084 (defvar input-method-inactivate-hook nil | |
19555
df2996f7fdc3
(inactivate-current-input-method-function): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
19424
diff
changeset
|
1085 "Normal hook run just after an input method is inactivated. |
df2996f7fdc3
(inactivate-current-input-method-function): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
19424
diff
changeset
|
1086 |
df2996f7fdc3
(inactivate-current-input-method-function): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
19424
diff
changeset
|
1087 The variable `current-input-method' still keeps the input method name |
20467 | 1088 just inactivated.") |
17052 | 1089 |
1090 (defvar input-method-after-insert-chunk-hook nil | |
1091 "Normal hook run just after an input method insert some chunk of text.") | |
1092 | |
22918
776bc4293c87
(input-method-exit-on-first-char):
Kenichi Handa <handa@m17n.org>
parents:
22899
diff
changeset
|
1093 (defvar input-method-exit-on-first-char nil |
776bc4293c87
(input-method-exit-on-first-char):
Kenichi Handa <handa@m17n.org>
parents:
22899
diff
changeset
|
1094 "This flag controls a timing when an input method returns. |
776bc4293c87
(input-method-exit-on-first-char):
Kenichi Handa <handa@m17n.org>
parents:
22899
diff
changeset
|
1095 Usually, the input method does not return while there's a possibility |
776bc4293c87
(input-method-exit-on-first-char):
Kenichi Handa <handa@m17n.org>
parents:
22899
diff
changeset
|
1096 that it may find a different translation if a user types another key. |
22948
e259bed9247e
(input-method-exit-on-first-char)
Richard M. Stallman <rms@gnu.org>
parents:
22918
diff
changeset
|
1097 But, it this flag is non-nil, the input method returns as soon as |
e259bed9247e
(input-method-exit-on-first-char)
Richard M. Stallman <rms@gnu.org>
parents:
22918
diff
changeset
|
1098 the current key sequence gets long enough to have some valid translation.") |
22918
776bc4293c87
(input-method-exit-on-first-char):
Kenichi Handa <handa@m17n.org>
parents:
22899
diff
changeset
|
1099 |
776bc4293c87
(input-method-exit-on-first-char):
Kenichi Handa <handa@m17n.org>
parents:
22899
diff
changeset
|
1100 (defvar input-method-use-echo-area nil |
776bc4293c87
(input-method-exit-on-first-char):
Kenichi Handa <handa@m17n.org>
parents:
22899
diff
changeset
|
1101 "This flag controls how an input method shows an intermediate key sequence. |
22948
e259bed9247e
(input-method-exit-on-first-char)
Richard M. Stallman <rms@gnu.org>
parents:
22918
diff
changeset
|
1102 Usually, the input method inserts the intermediate key sequence, |
e259bed9247e
(input-method-exit-on-first-char)
Richard M. Stallman <rms@gnu.org>
parents:
22918
diff
changeset
|
1103 or candidate translations corresponding to the sequence, |
e259bed9247e
(input-method-exit-on-first-char)
Richard M. Stallman <rms@gnu.org>
parents:
22918
diff
changeset
|
1104 at point in the current buffer. |
e259bed9247e
(input-method-exit-on-first-char)
Richard M. Stallman <rms@gnu.org>
parents:
22918
diff
changeset
|
1105 But, if this flag is non-nil, it displays them in echo area instead.") |
22918
776bc4293c87
(input-method-exit-on-first-char):
Kenichi Handa <handa@m17n.org>
parents:
22899
diff
changeset
|
1106 |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1107 (defvar input-method-exit-on-invalid-key nil |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1108 "This flag controls the behaviour of an input method on invalid key input. |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1109 Usually, when a user types a key which doesn't start any character |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1110 handled by the input method, the key is handled by turning off the |
23196 | 1111 input method temporarily. After that key, the input method is re-enabled. |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1112 But, if this flag is non-nil, the input method is never back on.") |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1113 |
17052 | 1114 |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1115 (defvar set-language-environment-hook nil |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1116 "Normal hook run after some language environment is set. |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1117 |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1118 When you set some hook function here, that effect usually should not |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1119 be inherited to another language environment. So, you had better set |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1120 another function in `exit-language-environment-hook' (which see) to |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1121 cancel the effect.") |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1122 |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1123 (defvar exit-language-environment-hook nil |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1124 "Normal hook run after exiting from some language environment. |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1125 When this hook is run, the variable `current-language-environment' |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1126 is still bound to the language environment being exited. |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1127 |
23196 | 1128 This hook is mainly used for canceling the effect of |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1129 `set-language-environment-hook' (which-see).") |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1130 |
23419
c251dd6b289e
(setup-specified-language-environment): Add apropos-inhibit property.
Richard M. Stallman <rms@gnu.org>
parents:
23261
diff
changeset
|
1131 (put 'setup-specified-language-environment 'apropos-inhibit t) |
c251dd6b289e
(setup-specified-language-environment): Add apropos-inhibit property.
Richard M. Stallman <rms@gnu.org>
parents:
23261
diff
changeset
|
1132 |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1133 (defun setup-specified-language-environment () |
22200
a0d60a6c87da
(register-input-method): Rename arg ENV to LANG-ENV. Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22153
diff
changeset
|
1134 "Switch to a specified language environment." |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1135 (interactive) |
18634
8b309d07a95e
(set-language-environment): Do the real work here.
Richard M. Stallman <rms@gnu.org>
parents:
18633
diff
changeset
|
1136 (let (language-name) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1137 (if (and (symbolp last-command-event) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1138 (or (not (eq last-command-event 'Default)) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1139 (setq last-command-event 'English)) |
18634
8b309d07a95e
(set-language-environment): Do the real work here.
Richard M. Stallman <rms@gnu.org>
parents:
18633
diff
changeset
|
1140 (setq language-name (symbol-name last-command-event))) |
8b309d07a95e
(set-language-environment): Do the real work here.
Richard M. Stallman <rms@gnu.org>
parents:
18633
diff
changeset
|
1141 (set-language-environment language-name) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1142 (error "Bogus calling sequence")))) |
17052 | 1143 |
21229
38b621cd9169
(set-language-environment): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
21042
diff
changeset
|
1144 (defcustom current-language-environment "English" |
24204 | 1145 "The last language environment specified with `set-language-environment'. |
24551
c10fd4e02857
(current-language-environment): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
24495
diff
changeset
|
1146 This variable should be set only with \\[customize], which is equivalent |
c10fd4e02857
(current-language-environment): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
24495
diff
changeset
|
1147 to using the function `set-language-environment'." |
24204 | 1148 :link '(custom-manual "(emacs)Language Environments") |
23165
0e28574df9af
(current-language-environment): Fix setter function.
Dave Love <fx@gnu.org>
parents:
23087
diff
changeset
|
1149 :set (lambda (symbol value) (set-language-environment value)) |
24204 | 1150 :get (lambda (x) |
1151 (or (car-safe (assoc-ignore-case | |
1152 (if (symbolp current-language-environment) | |
1153 (symbol-name current-language-environment) | |
1154 current-language-environment) | |
1155 language-info-alist)) | |
1156 "English")) | |
1157 :type (cons 'choice (mapcar (lambda (lang) | |
1158 (list 'const (car lang))) | |
1159 language-info-alist)) | |
21229
38b621cd9169
(set-language-environment): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
21042
diff
changeset
|
1160 :initialize 'custom-initialize-default |
38b621cd9169
(set-language-environment): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
21042
diff
changeset
|
1161 :group 'mule |
38b621cd9169
(set-language-environment): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
21042
diff
changeset
|
1162 :type 'string) |
18634
8b309d07a95e
(set-language-environment): Do the real work here.
Richard M. Stallman <rms@gnu.org>
parents:
18633
diff
changeset
|
1163 |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1164 (defun reset-language-environment () |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1165 "Reset multilingual environment of Emacs to the default status. |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1166 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1167 The default status is as follows: |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1168 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1169 The default value of buffer-file-coding-system is nil. |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1170 The default coding system for process I/O is nil. |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1171 The default value for the command `set-terminal-coding-system' is nil. |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1172 The default value for the command `set-keyboard-coding-system' is nil. |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1173 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1174 The order of priorities of coding categories and the coding system |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1175 bound to each category are as follows |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1176 coding category coding system |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1177 -------------------------------------------------- |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1178 coding-category-iso-8-2 iso-latin-1 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1179 coding-category-iso-8-1 iso-latin-1 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1180 coding-category-iso-7-tight iso-2022-jp |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1181 coding-category-iso-7 iso-2022-7bit |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1182 coding-category-iso-7-else iso-2022-7bit-lock |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1183 coding-category-iso-8-else iso-2022-8bit-ss2 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1184 coding-category-emacs-mule emacs-mule |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1185 coding-category-raw-text raw-text |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1186 coding-category-sjis japanese-shift-jis |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1187 coding-category-big5 chinese-big5 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1188 coding-category-ccl nil |
23196 | 1189 coding-category-binary no-conversion |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1190 " |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1191 (interactive) |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1192 ;; This function formerly set default-enable-multibyte-characters to t, |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1193 ;; but that is incorrect. It should not alter the unibyte/multibyte choice. |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1194 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1195 (setq coding-category-iso-7-tight 'iso-2022-jp |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1196 coding-category-iso-7 'iso-2022-7bit |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1197 coding-category-iso-8-1 'iso-latin-1 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1198 coding-category-iso-8-2 'iso-latin-1 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1199 coding-category-iso-7-else 'iso-2022-7bit-lock |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1200 coding-category-iso-8-else 'iso-2022-8bit-ss2 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1201 coding-category-emacs-mule 'emacs-mule |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1202 coding-category-raw-text 'raw-text |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1203 coding-category-sjis 'japanese-shift-jis |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1204 coding-category-big5 'chinese-big5 |
28019
75029c86627c
(reset-language-environment): Include
Kenichi Handa <handa@m17n.org>
parents:
27731
diff
changeset
|
1205 coding-category-utf-8 nil |
75029c86627c
(reset-language-environment): Include
Kenichi Handa <handa@m17n.org>
parents:
27731
diff
changeset
|
1206 coding-category-utf-16-be nil |
75029c86627c
(reset-language-environment): Include
Kenichi Handa <handa@m17n.org>
parents:
27731
diff
changeset
|
1207 coding-category-utf-16-le nil |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1208 coding-category-ccl nil |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1209 coding-category-binary 'no-conversion) |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1210 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1211 (set-coding-priority |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1212 '(coding-category-iso-8-1 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1213 coding-category-iso-8-2 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1214 coding-category-iso-7-tight |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1215 coding-category-iso-7 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1216 coding-category-iso-7-else |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1217 coding-category-iso-8-else |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1218 coding-category-emacs-mule |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1219 coding-category-raw-text |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1220 coding-category-sjis |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1221 coding-category-big5 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1222 coding-category-ccl |
28019
75029c86627c
(reset-language-environment): Include
Kenichi Handa <handa@m17n.org>
parents:
27731
diff
changeset
|
1223 coding-category-binary |
75029c86627c
(reset-language-environment): Include
Kenichi Handa <handa@m17n.org>
parents:
27731
diff
changeset
|
1224 coding-category-utf-16-be |
75029c86627c
(reset-language-environment): Include
Kenichi Handa <handa@m17n.org>
parents:
27731
diff
changeset
|
1225 coding-category-utf-16-le |
75029c86627c
(reset-language-environment): Include
Kenichi Handa <handa@m17n.org>
parents:
27731
diff
changeset
|
1226 coding-category-utf-8)) |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1227 |
23261
9346958bb3d5
(reset-language-environment): Call
Kenichi Handa <handa@m17n.org>
parents:
23196
diff
changeset
|
1228 (update-coding-systems-internal) |
9346958bb3d5
(reset-language-environment): Call
Kenichi Handa <handa@m17n.org>
parents:
23196
diff
changeset
|
1229 |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1230 (set-default-coding-systems nil) |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1231 ;; Don't alter the terminal and keyboard coding systems here. |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1232 ;; The terminal still supports the same coding system |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1233 ;; that it supported a minute ago. |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1234 ;;; (set-terminal-coding-system-internal nil) |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1235 ;;; (set-keyboard-coding-system-internal nil) |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1236 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1237 (setq nonascii-translation-table nil |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1238 nonascii-insert-offset 0)) |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1239 |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1240 (defun set-display-table-and-terminal-coding-system (language-name) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1241 "Set up the display table and terminal coding system for LANGUAGE-NAME." |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1242 (let ((coding (get-language-info language-name 'unibyte-display))) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1243 (if coding |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1244 (standard-display-european-internal) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1245 (standard-display-default (if (eq window-system 'pc) 128 160) 255) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1246 (aset standard-display-table 146 nil)) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1247 (or (eq window-system 'pc) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1248 (set-terminal-coding-system coding)))) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1249 |
18066
eecd891e2b63
(set-language-environment): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
17991
diff
changeset
|
1250 (defun set-language-environment (language-name) |
18068
317f57f07b14
Doc fix for previous change.
Richard M. Stallman <rms@gnu.org>
parents:
18066
diff
changeset
|
1251 "Set up multi-lingual environment for using LANGUAGE-NAME. |
317f57f07b14
Doc fix for previous change.
Richard M. Stallman <rms@gnu.org>
parents:
18066
diff
changeset
|
1252 This sets the coding system priority and the default input method |
21229
38b621cd9169
(set-language-environment): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
21042
diff
changeset
|
1253 and sometimes other things. LANGUAGE-NAME should be a string |
38b621cd9169
(set-language-environment): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
21042
diff
changeset
|
1254 which is the name of a language environment. For example, \"Latin-1\" |
38b621cd9169
(set-language-environment): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
21042
diff
changeset
|
1255 specifies the character set for the major languages of Western Europe." |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1256 (interactive (list (read-language-name |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1257 nil |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1258 "Set language environment (default, English): "))) |
19649
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
1259 (if language-name |
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
1260 (if (symbolp language-name) |
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
1261 (setq language-name (symbol-name language-name))) |
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
1262 (setq language-name "English")) |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1263 (or (assoc-ignore-case language-name language-info-alist) |
18634
8b309d07a95e
(set-language-environment): Do the real work here.
Richard M. Stallman <rms@gnu.org>
parents:
18633
diff
changeset
|
1264 (error "Language environment not defined: %S" language-name)) |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1265 (if current-language-environment |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1266 (let ((func (get-language-info current-language-environment |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1267 'exit-function))) |
20231
7f0ea4977b32
(set-language-environment): Run
Kenichi Handa <handa@m17n.org>
parents:
20165
diff
changeset
|
1268 (run-hooks 'exit-language-environment-hook) |
7f0ea4977b32
(set-language-environment): Run
Kenichi Handa <handa@m17n.org>
parents:
20165
diff
changeset
|
1269 (if (fboundp func) (funcall func)))) |
23916
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1270 (let ((default-eol-type (coding-system-eol-type |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1271 default-buffer-file-coding-system))) |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1272 (reset-language-environment) |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1273 |
23916
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1274 (setq current-language-environment language-name) |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1275 (set-language-environment-coding-systems language-name default-eol-type)) |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1276 (let ((input-method (get-language-info language-name 'input-method))) |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1277 (when input-method |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1278 (setq default-input-method input-method) |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1279 (if input-method-history |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1280 (setq input-method-history |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1281 (cons input-method |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1282 (delete input-method input-method-history)))))) |
24491
45b77df0b5ac
(set-language-environment): Don't use
Eli Zaretskii <eliz@gnu.org>
parents:
24417
diff
changeset
|
1283 (let ((nonascii (get-language-info language-name 'nonascii-translation)) |
45b77df0b5ac
(set-language-environment): Don't use
Eli Zaretskii <eliz@gnu.org>
parents:
24417
diff
changeset
|
1284 (dos-table |
24495
14e1df6e60a8
(set-language-environment): Fix
Eli Zaretskii <eliz@gnu.org>
parents:
24491
diff
changeset
|
1285 (if (eq window-system 'pc) |
14e1df6e60a8
(set-language-environment): Fix
Eli Zaretskii <eliz@gnu.org>
parents:
24491
diff
changeset
|
1286 (intern |
14e1df6e60a8
(set-language-environment): Fix
Eli Zaretskii <eliz@gnu.org>
parents:
24491
diff
changeset
|
1287 (concat "cp" dos-codepage "-nonascii-translation-table"))))) |
23916
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1288 (cond |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1289 ((char-table-p nonascii) |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1290 (setq nonascii-translation-table nonascii)) |
24491
45b77df0b5ac
(set-language-environment): Don't use
Eli Zaretskii <eliz@gnu.org>
parents:
24417
diff
changeset
|
1291 ((and (eq window-system 'pc) (boundp dos-table)) |
23916
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1292 ;; DOS terminals' default is to use a special non-ASCII translation |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1293 ;; table as appropriate for the installed codepage. |
24491
45b77df0b5ac
(set-language-environment): Don't use
Eli Zaretskii <eliz@gnu.org>
parents:
24417
diff
changeset
|
1294 (setq nonascii-translation-table (symbol-value dos-table))) |
23916
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1295 ((charsetp nonascii) |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1296 (setq nonascii-insert-offset (- (make-char nonascii) 128))))) |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1297 |
22887
e24b79da83d6
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
22854
diff
changeset
|
1298 (setq charset-origin-alist |
e24b79da83d6
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
22854
diff
changeset
|
1299 (get-language-info language-name 'charset-origin-alist)) |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1300 |
23044
6a8e5ce6cfc1
(set-language-environment): Reset
Kenichi Handa <handa@m17n.org>
parents:
23031
diff
changeset
|
1301 ;; Unibyte setups if necessary. |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1302 (unless default-enable-multibyte-characters |
23044
6a8e5ce6cfc1
(set-language-environment): Reset
Kenichi Handa <handa@m17n.org>
parents:
23031
diff
changeset
|
1303 ;; Syntax and case table. |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1304 (let ((syntax (get-language-info language-name 'unibyte-syntax))) |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1305 (if syntax |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1306 (let ((set-case-syntax-set-multibyte nil)) |
23044
6a8e5ce6cfc1
(set-language-environment): Reset
Kenichi Handa <handa@m17n.org>
parents:
23031
diff
changeset
|
1307 (load syntax nil t)) |
6a8e5ce6cfc1
(set-language-environment): Reset
Kenichi Handa <handa@m17n.org>
parents:
23031
diff
changeset
|
1308 ;; No information for syntax and case. Reset to the defaults. |
6a8e5ce6cfc1
(set-language-environment): Reset
Kenichi Handa <handa@m17n.org>
parents:
23031
diff
changeset
|
1309 (let ((syntax-table (standard-syntax-table)) |
6a8e5ce6cfc1
(set-language-environment): Reset
Kenichi Handa <handa@m17n.org>
parents:
23031
diff
changeset
|
1310 (case-table (standard-case-table)) |
23916
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1311 (ch (if (eq window-system 'pc) 128 160))) |
23044
6a8e5ce6cfc1
(set-language-environment): Reset
Kenichi Handa <handa@m17n.org>
parents:
23031
diff
changeset
|
1312 (while (< ch 256) |
6a8e5ce6cfc1
(set-language-environment): Reset
Kenichi Handa <handa@m17n.org>
parents:
23031
diff
changeset
|
1313 (modify-syntax-entry ch " " syntax-table) |
6a8e5ce6cfc1
(set-language-environment): Reset
Kenichi Handa <handa@m17n.org>
parents:
23031
diff
changeset
|
1314 (aset case-table ch ch) |
6a8e5ce6cfc1
(set-language-environment): Reset
Kenichi Handa <handa@m17n.org>
parents:
23031
diff
changeset
|
1315 (setq ch (1+ ch))) |
6a8e5ce6cfc1
(set-language-environment): Reset
Kenichi Handa <handa@m17n.org>
parents:
23031
diff
changeset
|
1316 (set-char-table-extra-slot case-table 0 nil) |
6a8e5ce6cfc1
(set-language-environment): Reset
Kenichi Handa <handa@m17n.org>
parents:
23031
diff
changeset
|
1317 (set-char-table-extra-slot case-table 1 nil) |
6a8e5ce6cfc1
(set-language-environment): Reset
Kenichi Handa <handa@m17n.org>
parents:
23031
diff
changeset
|
1318 (set-char-table-extra-slot case-table 2 nil)) |
6a8e5ce6cfc1
(set-language-environment): Reset
Kenichi Handa <handa@m17n.org>
parents:
23031
diff
changeset
|
1319 (set-standard-case-table (standard-case-table)) |
6a8e5ce6cfc1
(set-language-environment): Reset
Kenichi Handa <handa@m17n.org>
parents:
23031
diff
changeset
|
1320 (let ((list (buffer-list))) |
6a8e5ce6cfc1
(set-language-environment): Reset
Kenichi Handa <handa@m17n.org>
parents:
23031
diff
changeset
|
1321 (while list |
6a8e5ce6cfc1
(set-language-environment): Reset
Kenichi Handa <handa@m17n.org>
parents:
23031
diff
changeset
|
1322 (with-current-buffer (car list) |
6a8e5ce6cfc1
(set-language-environment): Reset
Kenichi Handa <handa@m17n.org>
parents:
23031
diff
changeset
|
1323 (set-case-table (standard-case-table))) |
6a8e5ce6cfc1
(set-language-environment): Reset
Kenichi Handa <handa@m17n.org>
parents:
23031
diff
changeset
|
1324 (setq list (cdr list)))))) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1325 (set-display-table-and-terminal-coding-system language-name)) |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1326 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1327 (let ((required-features (get-language-info language-name 'features))) |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1328 (while required-features |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1329 (require (car required-features)) |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1330 (setq required-features (cdr required-features)))) |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1331 (let ((func (get-language-info language-name 'setup-function))) |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1332 (if (fboundp func) |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1333 (funcall func))) |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1334 (run-hooks 'set-language-environment-hook) |
18634
8b309d07a95e
(set-language-environment): Do the real work here.
Richard M. Stallman <rms@gnu.org>
parents:
18633
diff
changeset
|
1335 (force-mode-line-update t)) |
17052 | 1336 |
21856
68e39b75b862
(set-language-environment): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
21770
diff
changeset
|
1337 (defun standard-display-european-internal () |
68e39b75b862
(set-language-environment): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
21770
diff
changeset
|
1338 ;; Actually set up direct output of non-ASCII characters. |
23916
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1339 (standard-display-8bit (if (eq window-system 'pc) 128 160) 255) |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1340 ;; Unibyte Emacs on MS-DOS wants to display all 8-bit characters with |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1341 ;; the native font, and codes 160 and 146 stand for something very |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1342 ;; different there. |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1343 (or (and (eq window-system 'pc) (not default-enable-multibyte-characters)) |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1344 (progn |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1345 ;; Make non-line-break space display as a plain space. |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1346 ;; Most X fonts do the wrong thing for code 160. |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1347 (aset standard-display-table 160 [32]) |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1348 ;; Most Windows programs send out apostrophe's as \222. Most X fonts |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1349 ;; don't contain a character at that position. Map it to the ASCII |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1350 ;; apostrophe. |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1351 (aset standard-display-table 146 [39])))) |
21856
68e39b75b862
(set-language-environment): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
21770
diff
changeset
|
1352 |
23916
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1353 (defun set-language-environment-coding-systems (language-name |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1354 &optional eol-type) |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1355 "Do various coding system setups for language environment LANGUAGE-NAME. |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1356 |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1357 The optional arg EOL-TYPE specifies the eol-type of the default value |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1358 of buffer-file-coding-system set by this function." |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1359 (let* ((priority (get-language-info language-name 'coding-priority)) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1360 (default-coding (car priority))) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1361 (if priority |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1362 (let ((categories (mapcar 'coding-system-category priority))) |
23916
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1363 (set-default-coding-systems |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1364 (if (memq eol-type '(0 1 2 unix dos mac)) |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1365 (coding-system-change-eol-conversion default-coding eol-type) |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1366 default-coding)) |
23087
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
1367 (setq default-sendmail-coding-system default-coding) |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1368 (set-coding-priority categories) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1369 (while priority |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1370 (set (car categories) (car priority)) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1371 (setq priority (cdr priority) categories (cdr categories))) |
22887
e24b79da83d6
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
22854
diff
changeset
|
1372 (update-coding-systems-internal))))) |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1373 |
17052 | 1374 ;; Print all arguments with `princ', then print "\n". |
1375 (defsubst princ-list (&rest args) | |
1376 (while args (princ (car args)) (setq args (cdr args))) | |
1377 (princ "\n")) | |
1378 | |
23419
c251dd6b289e
(setup-specified-language-environment): Add apropos-inhibit property.
Richard M. Stallman <rms@gnu.org>
parents:
23261
diff
changeset
|
1379 (put 'describe-specified-language-support 'apropos-inhibit t) |
c251dd6b289e
(setup-specified-language-environment): Add apropos-inhibit property.
Richard M. Stallman <rms@gnu.org>
parents:
23261
diff
changeset
|
1380 |
17840
2517414676ed
(set-language-info): Change the special treatment
Kenichi Handa <handa@m17n.org>
parents:
17758
diff
changeset
|
1381 ;; Print a language specific information such as input methods, |
17758
8c67c2e2cc29
(build-describe-language-support-function,
Kenichi Handa <handa@m17n.org>
parents:
17526
diff
changeset
|
1382 ;; charsets, and coding systems. This function is intended to be |
17840
2517414676ed
(set-language-info): Change the special treatment
Kenichi Handa <handa@m17n.org>
parents:
17758
diff
changeset
|
1383 ;; called from the menu: |
18152
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
1384 ;; [menu-bar mule describe-language-environment LANGUAGE] |
17840
2517414676ed
(set-language-info): Change the special treatment
Kenichi Handa <handa@m17n.org>
parents:
17758
diff
changeset
|
1385 ;; and should not run it by `M-x describe-current-input-method-function'. |
2517414676ed
(set-language-info): Change the special treatment
Kenichi Handa <handa@m17n.org>
parents:
17758
diff
changeset
|
1386 (defun describe-specified-language-support () |
19083
8fdb29b769ed
Doc fixes; fix error message text.
Richard M. Stallman <rms@gnu.org>
parents:
19036
diff
changeset
|
1387 "Describe how Emacs supports the specified language environment." |
17840
2517414676ed
(set-language-info): Change the special treatment
Kenichi Handa <handa@m17n.org>
parents:
17758
diff
changeset
|
1388 (interactive) |
18152
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
1389 (let (language-name) |
17840
2517414676ed
(set-language-info): Change the special treatment
Kenichi Handa <handa@m17n.org>
parents:
17758
diff
changeset
|
1390 (if (not (and (symbolp last-command-event) |
28456 | 1391 (or (not (eq last-command-event 'Default)) |
1392 (setq last-command-event 'English)) | |
18152
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
1393 (setq language-name (symbol-name last-command-event)))) |
17840
2517414676ed
(set-language-info): Change the special treatment
Kenichi Handa <handa@m17n.org>
parents:
17758
diff
changeset
|
1394 (error "Bogus calling sequence")) |
18152
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
1395 (describe-language-environment language-name))) |
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
1396 |
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
1397 (defun describe-language-environment (language-name) |
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
1398 "Describe how Emacs supports language environment LANGUAGE-NAME." |
19653
431753f747ea
(describe-input-method): Fix previous
Kenichi Handa <handa@m17n.org>
parents:
19649
diff
changeset
|
1399 (interactive |
431753f747ea
(describe-input-method): Fix previous
Kenichi Handa <handa@m17n.org>
parents:
19649
diff
changeset
|
1400 (list (read-language-name |
431753f747ea
(describe-input-method): Fix previous
Kenichi Handa <handa@m17n.org>
parents:
19649
diff
changeset
|
1401 'documentation |
20091
aac4c6a58684
(describe-language-environment): Fix prompt.
Karl Heuer <kwzh@gnu.org>
parents:
19917
diff
changeset
|
1402 "Describe language environment (default, current choice): "))) |
18634
8b309d07a95e
(set-language-environment): Do the real work here.
Richard M. Stallman <rms@gnu.org>
parents:
18633
diff
changeset
|
1403 (if (null language-name) |
8b309d07a95e
(set-language-environment): Do the real work here.
Richard M. Stallman <rms@gnu.org>
parents:
18633
diff
changeset
|
1404 (setq language-name current-language-environment)) |
18152
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
1405 (if (or (null language-name) |
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
1406 (null (get-language-info language-name 'documentation))) |
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
1407 (error "No documentation for the specified language")) |
19649
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
1408 (if (symbolp language-name) |
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
1409 (setq language-name (symbol-name language-name))) |
18152
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
1410 (let ((doc (get-language-info language-name 'documentation))) |
17840
2517414676ed
(set-language-info): Change the special treatment
Kenichi Handa <handa@m17n.org>
parents:
17758
diff
changeset
|
1411 (with-output-to-temp-buffer "*Help*" |
21471
ae34e7d5c51f
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
21377
diff
changeset
|
1412 (princ-list language-name " language environment" "\n") |
17758
8c67c2e2cc29
(build-describe-language-support-function,
Kenichi Handa <handa@m17n.org>
parents:
17526
diff
changeset
|
1413 (if (stringp doc) |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1414 (progn |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1415 (princ-list doc) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1416 (terpri))) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1417 (let ((str (get-language-info language-name 'sample-text))) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1418 (if (stringp str) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1419 (progn |
18152
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
1420 (princ "Sample text:\n") |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1421 (princ-list " " str) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1422 (terpri)))) |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1423 (let ((input-method (get-language-info language-name 'input-method)) |
24066
7914a815df8b
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
24008
diff
changeset
|
1424 (l (copy-sequence input-method-alist))) |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1425 (princ "Input methods") |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1426 (when input-method |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1427 (princ (format " (default, %s)" input-method)) |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1428 (setq input-method (assoc input-method input-method-alist)) |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1429 (setq l (cons input-method (delete input-method l)))) |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1430 (princ ":\n") |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1431 (while l |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1432 (if (string= language-name (nth 1 (car l))) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1433 (princ-list " " (car (car l)) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1434 (format " (`%s' in mode line)" (nth 3 (car l))))) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1435 (setq l (cdr l)))) |
18152
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
1436 (terpri) |
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
1437 (princ "Character sets:\n") |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1438 (let ((l (get-language-info language-name 'charset))) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1439 (if (null l) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1440 (princ-list " nothing specific to " language-name) |
17840
2517414676ed
(set-language-info): Change the special treatment
Kenichi Handa <handa@m17n.org>
parents:
17758
diff
changeset
|
1441 (while l |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1442 (princ-list " " (car l) ": " |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1443 (charset-description (car l))) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1444 (setq l (cdr l))))) |
18152
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
1445 (terpri) |
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
1446 (princ "Coding systems:\n") |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1447 (let ((l (get-language-info language-name 'coding-system))) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1448 (if (null l) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1449 (princ-list " nothing specific to " language-name) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1450 (while l |
18152
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
1451 (princ (format " %s (`%c' in mode line):\n\t%s\n" |
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
1452 (car l) |
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
1453 (coding-system-mnemonic (car l)) |
18176
fc07ea29cd81
Define mouse-set-font in mule-menu-keymap.
Kenichi Handa <handa@m17n.org>
parents:
18152
diff
changeset
|
1454 (coding-system-doc-string (car l)))) |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1455 (let ((aliases (coding-system-get (car l) 'alias-coding-systems))) |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1456 (when aliases |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1457 (princ "\t") |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1458 (princ (cons 'alias: (cdr aliases))) |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1459 (terpri))) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1460 (setq l (cdr l)))))))) |
17052 | 1461 |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1462 ;;; Locales. |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1463 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1464 (defvar locale-translation-file-name |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1465 (let ((files '("/usr/lib/X11/locale/locale.alias" ; e.g. X11R6.4 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1466 "/usr/X11R6/lib/X11/locale/locale.alias" ; e.g. RedHat 4.2 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1467 "/usr/openwin/lib/locale/locale.alias" ; e.g. Solaris 2.6 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1468 ;; |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1469 ;; The following name appears after the X-related names above, |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1470 ;; since the X-related names are what X actually uses. |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1471 "/usr/share/locale/locale.alias" ; GNU/Linux sans X |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1472 ))) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1473 (while (and files (not (file-exists-p (car files)))) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1474 (setq files (cdr files))) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1475 (car files)) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1476 "*File name for the system's file of locale-name aliases, or nil if none.") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1477 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1478 (defvar locale-language-names |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1479 '( |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1480 ;; UTF-8 is not yet implemented. |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1481 ;; Put this first, so that e.g. "ko.UTF-8" does not match "ko" below. |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1482 (".*[._]utf" . nil) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1483 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1484 ;; Locale names of the form LANGUAGE[_TERRITORY][.CODESET][@MODIFIER] |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1485 ;; as specified in the Single Unix Spec, Version 2. |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1486 ;; LANGUAGE is a language code taken from ISO 639:1988 (E/F) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1487 ;; with additions from ISO 639/RA Newsletter No.1/1989; |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1488 ;; see Internet RFC 2165 (1997-06). |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1489 ;; TERRITORY is a country code taken from ISO 3166. |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1490 ;; CODESET and MODIFIER are implementation-dependent. |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1491 ;; |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1492 ; aa Afar |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1493 ; ab Abkhazian |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1494 ("af" . "Latin-1") ; Afrikaans |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1495 ("am" . "Ethiopic") ; Amharic |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1496 ; ar Arabic |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1497 ; as Assamese |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1498 ; ay Aymara |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1499 ; az Azerbaijani |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1500 ; ba Bashkir |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1501 ("be" . "Latin-5") ; Byelorussian |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1502 ("bg" . "Latin-5") ; Bulgarian |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1503 ; bh Bihari |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1504 ; bi Bislama |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1505 ; bn Bengali, Bangla |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1506 ("bo" . "Tibetan") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1507 ("br" . "Latin-1") ; Breton |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1508 ("ca" . "Latin-1") ; Catalan |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1509 ; co Corsican |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1510 ("cs" . "Czech") |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1511 ("cy" . "Latin-8") ; Welsh |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1512 ("da" . "Latin-1") ; Danish |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1513 ("de" . "German") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1514 ; dz Bhutani |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1515 ("el" . "Greek") |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1516 ;; Users who specify "en" explicitly typically want Latin-1, not ASCII. |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1517 ("en" . "Latin-1") ; English |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1518 ("eo" . "Latin-3") ; Esperanto |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1519 ("es" . "Latin-1") ; Spanish |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1520 ("et" . "Latin-4") ; Estonian |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1521 ("eu" . "Latin-1") ; Basque |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1522 ; fa Persian |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1523 ("fi" . "Latin-1") ; Finnish |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1524 ; fj Fiji |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1525 ("fo" . "Latin-1") ; Faroese |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1526 ("fr" . "Latin-1") ; French |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1527 ("fy" . "Latin-1") ; Frisian |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1528 ("ga" . "Latin-1") ; Irish Gaelic (new orthography) |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1529 ("gd" . "Latin-1") ; Scots Gaelic |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1530 ("gl" . "Latin-1") ; Galician |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1531 ; gn Guarani |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1532 ; gu Gujarati |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1533 ; ha Hausa |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1534 ("he" . "Hebrew") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1535 ("hi" . "Devanagari") ; Hindi |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1536 ("hr" . "Latin-2") ; Croatian |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1537 ("hu" . "Latin-2") ; Hungarian |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1538 ; hy Armenian |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1539 ; ia Interlingua |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1540 ("id" . "Latin-1") ; Indonesian |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1541 ; ie Interlingue |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1542 ; ik Inupiak |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1543 ("is" . "Latin-1") ; Icelandic |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1544 ("it" . "Latin-1") ; Italian |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1545 ; iu Inuktitut |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1546 ("ja" . "Japanese") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1547 ; jw Javanese |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1548 ; ka Georgian |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1549 ; kk Kazakh |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1550 ("kl" . "Latin-1") ; Greenlandic |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1551 ; km Cambodian |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1552 ; kn Kannada |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1553 ("ko" . "Korean") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1554 ; ks Kashmiri |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1555 ; ku Kurdish |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1556 ; ky Kirghiz |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1557 ("la" . "Latin-1") ; Latin |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1558 ; ln Lingala |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1559 ("lo" . "Lao") ; Laothian |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1560 ("lt" . "Latin-4") ; Lithuanian |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1561 ("lv" . "Latin-4") ; Latvian, Lettish |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1562 ; mg Malagasy |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1563 ; mi Maori |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1564 ("mk" . "Latin-5") ; Macedonian |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1565 ; ml Malayalam |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1566 ; mn Mongolian |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1567 ; mo Moldavian |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1568 ("mr" . "Devanagari") ; Marathi |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1569 ; ms Malay |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1570 ("mt" . "Latin-3") ; Maltese |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1571 ; my Burmese |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1572 ; na Nauru |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1573 ("ne" . "Devanagari") ; Nepali |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1574 ("nl" . "Latin-1") ; Dutch |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1575 ("no" . "Latin-1") ; Norwegian |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1576 ; oc Occitan |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1577 ; om (Afan) Oromo |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1578 ; or Oriya |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1579 ; pa Punjabi |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1580 ("pl" . "Latin-2") ; Polish |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1581 ; ps Pashto, Pushto |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1582 ("pt" . "Latin-1") ; Portuguese |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1583 ; qu Quechua |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1584 ("rm" . "Latin-1") ; Rhaeto-Romanic |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1585 ; rn Kirundi |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1586 ("ro" . "Romanian") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1587 ("ru.*[_.]koi8" . "Cyrillic-KOI8") ; Russian |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1588 ("ru" . "Latin-5") ; Russian |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1589 ; rw Kinyarwanda |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1590 ("sa" . "Devanagari") ; Sanskrit |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1591 ; sd Sindhi |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1592 ; sg Sangho |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1593 ("sh" . "Latin-2") ; Serbo-Croatian |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1594 ; si Sinhalese |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1595 ("sk" . "Slovak") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1596 ("sl" . "Slovenian") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1597 ; sm Samoan |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1598 ; sn Shona |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1599 ; so Somali |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1600 ("sq" . "Latin-1") ; Albanian |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1601 ("sr" . "Latin-2") ; Serbian (Latin alphabet) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1602 ; ss Siswati |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1603 ; st Sesotho |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1604 ; su Sundanese |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1605 ("sv" . "Latin-1") ; Swedish |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1606 ("sw" . "Latin-1") ; Swahili |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1607 ; ta Tamil |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1608 ; te Telugu |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1609 ; tg Tajik |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1610 ("th" . "Thai") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1611 ; ti Tigrinya |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1612 ; tk Turkmen |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1613 ("tl" . "Latin-1") ; Tagalog |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1614 ; tn Setswana |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1615 ; to Tonga |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1616 ("tr" . "Latin-5") ; Turkish |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1617 ; ts Tsonga |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1618 ; tt Tatar |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1619 ; tw Twi |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1620 ; ug Uighur |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1621 ("uk" . "Latin-5") ; Ukrainian |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1622 ; ur Urdu |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1623 ; uz Uzbek |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1624 ("vi" . "Vietnamese") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1625 ; vo Volapuk |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1626 ; wo Wolof |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1627 ; xh Xhosa |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1628 ; yi Yiddish |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1629 ; yo Yoruba |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1630 ; za Zhuang |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1631 ("zh.*[._]big5" . "Chinese-BIG5") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1632 ("zh.*[._]gbk" . nil) ; Solaris 2.7; has gbk-0 as well as GB 2312.1980-0 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1633 ("zh_tw" . "Chinese-CNS") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1634 ("zh" . "Chinese-GB") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1635 ; zu Zulu |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1636 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1637 ;; ISO standard locales |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1638 ("c$" . "ASCII") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1639 ("posix$" . "ASCII") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1640 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1641 ;; The "IPA" Emacs language environment does not correspond |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1642 ;; to any ISO 639 code, so let it stand for itself. |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1643 ("ipa$" . "IPA") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1644 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1645 ;; Nonstandard or obsolete language codes |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1646 ("cz" . "Czech") ; e.g. Solaris 2.6 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1647 ("ee" . "Latin-4") ; Estonian, e.g. X11R6.4 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1648 ("iw" . "Hebrew") ; e.g. X11R6.4 |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1649 ("sp" . "Latin-5") ; Serbian (Cyrillic alphabet), e.g. X11R6.4 |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1650 ("su" . "Latin-1") ; Finnish, e.g. Solaris 2.6 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1651 ) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1652 "List of pairs of locale regexps and language names. |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1653 The first element whose locale regexp matches the start of a downcased locale |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1654 specifies the language name corresponding to that locale. |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1655 If the language name is nil, there is no corresponding language environment.") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1656 |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1657 (defvar locale-charset-language-names |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1658 '((".*8859[-_]?1\\>" . "Latin-1") |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1659 (".*8859[-_]?2\\>" . "Latin-2") |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1660 (".*8859[-_]?3\\>" . "Latin-3") |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1661 (".*8859[-_]?4\\>" . "Latin-4") |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1662 (".*8859[-_]?9\\>" . "Latin-5") |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1663 (".*8859[-_]?14\\>" . "Latin-8") |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1664 (".*8859[-_]?15\\>" . "Latin-9") |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1665 ) |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1666 "List of pairs of locale regexps and charset language names. |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1667 The first element whose locale regexp matches the start of a downcased locale |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1668 specifies the language name whose charsets corresponds to that locale. |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1669 This language name is used if its charsets disagree with the charsets of |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1670 the language name that would otherwise be used for this locale.") |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1671 |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1672 (defvar locale-preferred-coding-systems |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1673 '(("ja.*[._]euc" . japanese-iso-8bit) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1674 ("ja.*[._]jis7" . iso-2022-jp) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1675 ("ja.*[._]pck" . japanese-shift-jis) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1676 ("ja.*[._]sjis" . japanese-shift-jis) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1677 ) |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1678 "List of pairs of locale regexps and preferred coding systems. |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1679 The first element whose locale regexp matches the start of a downcased locale |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1680 specifies the coding system to prefer when using that locale.") |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1681 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1682 (defun locale-name-match (key alist) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1683 "Search for KEY in ALIST, which should be a list of regexp-value pairs. |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1684 Return the value corresponding to the first regexp that matches the |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1685 start of KEY, or nil if there is no match." |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1686 (let (element) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1687 (while (and alist (not element)) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1688 (if (string-match (concat "^\\(" (car (car alist)) "\\)") key) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1689 (setq element (car alist))) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1690 (setq alist (cdr alist))) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1691 (cdr element))) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1692 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1693 (defun set-locale-environment (locale-name) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1694 "Set up multi-lingual environment for using LOCALE-NAME. |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1695 This sets the coding system priority and the default input method |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1696 and sometimes other things. LOCALE-NAME should be a string |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1697 which is the name of a locale supported by the system; |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1698 often it is of the form xx_XX.CODE, where xx is a language, |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1699 XX is a country, and CODE specifies a character set and coding system. |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1700 For example, the locale name \"ja_JP.EUC\" might name a locale |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1701 for Japanese in Japan using the `japanese-iso-8bit' coding-system. |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1702 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1703 If LOCALE-NAME is nil, its value is taken from the environment. |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1704 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1705 The locale names supported by your system can typically be found in a |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1706 directory named `/usr/share/locale' or `/usr/lib/locale'." |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1707 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1708 (unless locale-name |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1709 ;; Use the first of these three environment variables |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1710 ;; that has a nonempty value. |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1711 (let ((vars '("LC_ALL" "LC_CTYPE" "LANG"))) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1712 (while (and vars (not (setq locale-name (getenv (car vars))))) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1713 (setq vars (cdr vars))))) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1714 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1715 (when locale-name |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1716 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1717 ;; Translate "swedish" into "sv_SE.ISO8859-1", and so on, |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1718 ;; using the translation file that many systems have. |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1719 (when locale-translation-file-name |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1720 (with-temp-buffer |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1721 (insert-file-contents locale-translation-file-name) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1722 (when (re-search-forward |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1723 (concat "^" (regexp-quote locale-name) ":?[ \t]+") nil t) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1724 (setq locale-name (buffer-substring (point) (line-end-position)))))) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1725 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1726 (setq locale-name (downcase locale-name)) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1727 |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1728 (let ((language-name |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1729 (locale-name-match locale-name locale-language-names)) |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1730 (charset-language-name |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1731 (locale-name-match locale-name locale-charset-language-names)) |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1732 (coding-system |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1733 (locale-name-match locale-name locale-preferred-coding-systems))) |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1734 |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1735 (if (and charset-language-name |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1736 (not |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1737 (equal (get-language-info language-name 'charset) |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1738 (get-language-info charset-language-name 'charset)))) |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1739 (setq language-name charset-language-name)) |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
1740 |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1741 (when language-name |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1742 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1743 ;; Set up for this character set. This is now the right way |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1744 ;; to do it for both unibyte and multibyte modes. |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1745 (set-language-environment language-name) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1746 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1747 ;; If default-enable-multibyte-characters is nil, |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1748 ;; we are using single-byte characters, |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1749 ;; so the display table and terminal coding system are irrelevant. |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1750 (when default-enable-multibyte-characters |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1751 (set-display-table-and-terminal-coding-system language-name)) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1752 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1753 (setq locale-coding-system |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1754 (car (get-language-info language-name 'coding-priority)))) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1755 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1756 (when coding-system |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1757 (prefer-coding-system coding-system) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1758 (setq locale-coding-system coding-system))))) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1759 |
17052 | 1760 ;;; Charset property |
1761 | |
23889
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
1762 (defun get-charset-property (charset propname) |
17052 | 1763 "Return the value of CHARSET's PROPNAME property. |
1764 This is the last value stored with | |
19083
8fdb29b769ed
Doc fixes; fix error message text.
Richard M. Stallman <rms@gnu.org>
parents:
19036
diff
changeset
|
1765 (put-charset-property CHARSET PROPNAME VALUE)." |
23889
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
1766 (and (not (eq charset 'composition)) |
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
1767 (plist-get (charset-plist charset) propname))) |
17052 | 1768 |
23889
3b5045c64434
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
23583
diff
changeset
|
1769 (defun put-charset-property (charset propname value) |
17052 | 1770 "Store CHARSETS's PROPNAME property with value VALUE. |
1771 It can be retrieved with `(get-charset-property CHARSET PROPNAME)'." | |
23526
f47eb2d1375c
(get-charset-property): If CHARSET is
Kenichi Handa <handa@m17n.org>
parents:
23478
diff
changeset
|
1772 (or (eq charset 'composition) |
f47eb2d1375c
(get-charset-property): If CHARSET is
Kenichi Handa <handa@m17n.org>
parents:
23478
diff
changeset
|
1773 (set-charset-plist charset |
f47eb2d1375c
(get-charset-property): If CHARSET is
Kenichi Handa <handa@m17n.org>
parents:
23478
diff
changeset
|
1774 (plist-put (charset-plist charset) propname value)))) |
17052 | 1775 |
1776 ;;; Character code property | |
1777 (put 'char-code-property-table 'char-table-extra-slots 0) | |
1778 | |
1779 (defvar char-code-property-table | |
1780 (make-char-table 'char-code-property-table) | |
1781 "Char-table containing a property list of each character code. | |
1782 | |
1783 See also the documentation of `get-char-code-property' and | |
19083
8fdb29b769ed
Doc fixes; fix error message text.
Richard M. Stallman <rms@gnu.org>
parents:
19036
diff
changeset
|
1784 `put-char-code-property'.") |
17052 | 1785 |
1786 (defun get-char-code-property (char propname) | |
1787 "Return the value of CHAR's PROPNAME property in `char-code-property-table'." | |
1788 (let ((plist (aref char-code-property-table char))) | |
1789 (if (listp plist) | |
1790 (car (cdr (memq propname plist)))))) | |
1791 | |
1792 (defun put-char-code-property (char propname value) | |
1793 "Store CHAR's PROPNAME property with VALUE in `char-code-property-table'. | |
1794 It can be retrieved with `(get-char-code-property CHAR PROPNAME)'." | |
1795 (let ((plist (aref char-code-property-table char))) | |
1796 (if plist | |
1797 (let ((slot (memq propname plist))) | |
1798 (if slot | |
1799 (setcar (cdr slot) value) | |
1800 (nconc plist (list propname value)))) | |
1801 (aset char-code-property-table char (list propname value))))) | |
1802 | |
24399
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1803 |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1804 ;; Pretty description of encoded string |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1805 |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1806 ;; Alist of ISO 2022 control code vs the corresponding mnemonic string. |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1807 (defvar iso-2022-control-alist |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1808 '((?\x1b . "ESC") |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1809 (?\x0e . "SO") |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1810 (?\x0f . "SI") |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1811 (?\x8e . "SS2") |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1812 (?\x8f . "SS3") |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1813 (?\x9b . "CSI"))) |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1814 |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1815 (defun encoded-string-description (str coding-system) |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1816 "Return a pretty description of STR that is encoded by CODING-SYSTEM." |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1817 (setq str (string-as-unibyte str)) |
28475
5eb1da819180
(encoded-string-description):
Kenichi Handa <handa@m17n.org>
parents:
28456
diff
changeset
|
1818 (mapconcat |
5eb1da819180
(encoded-string-description):
Kenichi Handa <handa@m17n.org>
parents:
28456
diff
changeset
|
1819 (if (eq (coding-system-type coding-system) 2) |
5eb1da819180
(encoded-string-description):
Kenichi Handa <handa@m17n.org>
parents:
28456
diff
changeset
|
1820 ;; Try to get a pretty description for ISO 2022 escape sequences. |
5eb1da819180
(encoded-string-description):
Kenichi Handa <handa@m17n.org>
parents:
28456
diff
changeset
|
1821 (function (lambda (x) (or (cdr (assq x iso-2022-control-alist)) |
5eb1da819180
(encoded-string-description):
Kenichi Handa <handa@m17n.org>
parents:
28456
diff
changeset
|
1822 (format "%02X" x)))) |
28477
cb1aa1596cca
(encoded-string-description): Use uppercase letters for hexadecimal
Kenichi Handa <handa@m17n.org>
parents:
28475
diff
changeset
|
1823 (function (lambda (x) (format "0x%02X" x)))) |
28475
5eb1da819180
(encoded-string-description):
Kenichi Handa <handa@m17n.org>
parents:
28456
diff
changeset
|
1824 str " ")) |
24399
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1825 |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1826 (defun encode-coding-char (char coding-system) |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1827 "Encode CHAR by CODING-SYSTEM and return the resulting string. |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1828 If CODING-SYSTEM can't safely encode CHAR, return nil." |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1829 (let ((str1 (char-to-string char)) |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1830 (str2 (make-string 2 char)) |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1831 (safe-charsets (and coding-system |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1832 (coding-system-get coding-system 'safe-charsets))) |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1833 enc1 enc2 i1 i2) |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1834 (when (or (eq safe-charsets t) |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1835 (memq (char-charset char) safe-charsets)) |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1836 ;; We must find the encoded string of CHAR. But, just encoding |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1837 ;; CHAR will put extra control sequences (usually to designate |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1838 ;; ASCII charaset) at the tail if type of CODING is ISO 2022. |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1839 ;; To exclude such tailing bytes, we at first encode one-char |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1840 ;; string and two-char string, then check how many bytes at the |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1841 ;; tail of both encoded strings are the same. |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1842 |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1843 (setq enc1 (string-as-unibyte (encode-coding-string str1 coding-system)) |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1844 i1 (length enc1) |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1845 enc2 (string-as-unibyte (encode-coding-string str2 coding-system)) |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1846 i2 (length enc2)) |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1847 (while (and (> i1 0) (= (aref enc1 (1- i1)) (aref enc2 (1- i2)))) |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1848 (setq i1 (1- i1) i2 (1- i2))) |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1849 |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1850 ;; Now (substring enc1 i1) and (substring enc2 i2) are the same, |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1851 ;; and they are the extra control sequences at the tail to |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1852 ;; exclude. |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1853 (substring enc2 0 i2)))) |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1854 |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
1855 |
17052 | 1856 ;;; mule-cmds.el ends here |