Mercurial > emacs
annotate lisp/international/mule-cmds.el @ 96766:19a21a87b52a
Change from author without assignment thankfully tiny.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 17 Jul 2008 16:32:15 +0000 |
parents | d45acf0c8d23 |
children | 9592c50233ab |
rev | line source |
---|---|
77918
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
1 ;;; mule-cmds.el --- commands for multilingual environment -*-coding: iso-2022-7bit -*- |
58055
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
2 |
95622
b4f1005a6470
Remove unnecessary eval-when-compiles.
Glenn Morris <rgm@gnu.org>
parents:
94953
diff
changeset
|
3 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, |
b4f1005a6470
Remove unnecessary eval-when-compiles.
Glenn Morris <rgm@gnu.org>
parents:
94953
diff
changeset
|
4 ;; 2007, 2008 Free Software Foundation, Inc. |
74605
6ee41fdd69ff
Update AIST copyright years.
Kenichi Handa <handa@m17n.org>
parents:
74544
diff
changeset
|
5 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
79709 | 6 ;; 2005, 2006, 2007, 2008 |
62274 | 7 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
8 ;; Registration Number H14PRO021 | |
89483 | 9 ;; Copyright (C) 2003 |
88410
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
10 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
11 ;; Registration Number H13PRO009 |
17052 | 12 |
89092
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
13 ;; Keywords: mule, i18n |
17052 | 14 |
15 ;; This file is part of GNU Emacs. | |
16 | |
94664
889bc336b89b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93865
diff
changeset
|
17 ;; GNU Emacs is free software: you can redistribute it and/or modify |
17052 | 18 ;; it under the terms of the GNU General Public License as published by |
94664
889bc336b89b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93865
diff
changeset
|
19 ;; the Free Software Foundation, either version 3 of the License, or |
889bc336b89b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93865
diff
changeset
|
20 ;; (at your option) any later version. |
17052 | 21 |
22 ;; GNU Emacs is distributed in the hope that it will be useful, | |
23 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
24 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
25 ;; GNU General Public License for more details. | |
26 | |
27 ;; You should have received a copy of the GNU General Public License | |
94664
889bc336b89b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93865
diff
changeset
|
28 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
17052 | 29 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37953
diff
changeset
|
30 ;;; Commentary: |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37953
diff
changeset
|
31 |
17052 | 32 ;;; Code: |
33 | |
95622
b4f1005a6470
Remove unnecessary eval-when-compiles.
Glenn Morris <rgm@gnu.org>
parents:
94953
diff
changeset
|
34 (defvar dos-codepage) |
b4f1005a6470
Remove unnecessary eval-when-compiles.
Glenn Morris <rgm@gnu.org>
parents:
94953
diff
changeset
|
35 (autoload 'widget-value "wid-edit") |
28456 | 36 |
65204
89dc9fa960e2
(mac-system-coding-system, mac-system-locale): Add defvars.
Juanma Barranquero <lekktu@gmail.com>
parents:
64672
diff
changeset
|
37 (defvar mac-system-coding-system) |
89dc9fa960e2
(mac-system-coding-system, mac-system-locale): Add defvars.
Juanma Barranquero <lekktu@gmail.com>
parents:
64672
diff
changeset
|
38 (defvar mac-system-locale) |
89dc9fa960e2
(mac-system-coding-system, mac-system-locale): Add defvars.
Juanma Barranquero <lekktu@gmail.com>
parents:
64672
diff
changeset
|
39 |
17052 | 40 ;;; MULE related key bindings and menus. |
41 | |
19725 | 42 (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
|
43 "Keymap for Mule (Multilingual environment) specific commands.") |
17052 | 44 |
17294
d7ae63db9e6e
Prefix for Mule related commands is changed.
Kenichi Handa <handa@m17n.org>
parents:
17090
diff
changeset
|
45 ;; Keep "C-x C-m ..." for mule specific commands. |
19725 | 46 (define-key ctl-x-map "\C-m" mule-keymap) |
17090
8085a8690c87
(mule-keymap): Re-arranged.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
47 |
17052 | 48 (define-key mule-keymap "f" 'set-buffer-file-coding-system) |
46786
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
49 (define-key mule-keymap "r" 'revert-buffer-with-coding-system) |
48879
153dc2e78966
(mule-keymap, set-coding-system-map):
Kenichi Handa <handa@m17n.org>
parents:
48877
diff
changeset
|
50 (define-key mule-keymap "F" 'set-file-name-coding-system) |
17052 | 51 (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
|
52 (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
|
53 (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
|
54 (define-key mule-keymap "x" 'set-selection-coding-system) |
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
55 (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
|
56 (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
|
57 (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
|
58 (define-key mule-keymap "l" 'set-language-environment) |
17052 | 59 |
27731 | 60 (defvar mule-menu-keymap |
61 (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
|
62 "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
|
63 |
23924
e3421077c412
Use make-sparse-keymap instead of define-prefix-key when defining
Eli Zaretskii <eliz@gnu.org>
parents:
23916
diff
changeset
|
64 (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
|
65 (make-sparse-keymap "Describe Language Environment")) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
66 |
23924
e3421077c412
Use make-sparse-keymap instead of define-prefix-key when defining
Eli Zaretskii <eliz@gnu.org>
parents:
23916
diff
changeset
|
67 (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
|
68 (make-sparse-keymap "Set Language Environment")) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
69 |
23924
e3421077c412
Use make-sparse-keymap instead of define-prefix-key when defining
Eli Zaretskii <eliz@gnu.org>
parents:
23916
diff
changeset
|
70 (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
|
71 (make-sparse-keymap "Set Coding System")) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
72 |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
73 (define-key-after mule-menu-keymap [set-language-environment] |
70882
c5d2bd581ee7
* menu-bar.el, international/mule-cmds.el: Remove tooltips for
Chong Yidong <cyd@stupidchicken.com>
parents:
69918
diff
changeset
|
74 (list 'menu-item "Set Language Environment" setup-language-environment-map)) |
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 |
51016
1a17ca15ca4b
(mule-menu-keymap): Enable the menu set-various-coding-system when
Kenichi Handa <handa@m17n.org>
parents:
50720
diff
changeset
|
91 :enable 'default-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 |
19673
da7f50da6773
(set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
19654
diff
changeset
|
121 (define-key-after set-coding-system-map [universal-coding-system-argument] |
27731 | 122 '(menu-item "For Next Command" universal-coding-system-argument |
123 :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
|
124 t) |
46786
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
125 (define-key-after set-coding-system-map [separator-1] |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
126 '("--") |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
127 t) |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
128 (define-key-after set-coding-system-map [set-buffer-file-coding-system] |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
129 '(menu-item "For Saving This Buffer" set-buffer-file-coding-system |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
130 :help "How to encode this buffer when saved") |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
131 t) |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
132 (define-key-after set-coding-system-map [revert-buffer-with-coding-system] |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
133 '(menu-item "For Reverting This File Now" revert-buffer-with-coding-system |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
134 :enable buffer-file-name |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
135 :help "Revisit this file immediately using specified coding system") |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
136 t) |
48879
153dc2e78966
(mule-keymap, set-coding-system-map):
Kenichi Handa <handa@m17n.org>
parents:
48877
diff
changeset
|
137 (define-key-after set-coding-system-map [set-file-name-coding-system] |
153dc2e78966
(mule-keymap, set-coding-system-map):
Kenichi Handa <handa@m17n.org>
parents:
48877
diff
changeset
|
138 '(menu-item "For File Name" set-file-name-coding-system |
153dc2e78966
(mule-keymap, set-coding-system-map):
Kenichi Handa <handa@m17n.org>
parents:
48877
diff
changeset
|
139 :help "How to decode/encode file names") |
153dc2e78966
(mule-keymap, set-coding-system-map):
Kenichi Handa <handa@m17n.org>
parents:
48877
diff
changeset
|
140 t) |
46786
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
141 (define-key-after set-coding-system-map [separator-2] |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
142 '("--") |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
143 t) |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
144 |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
145 (define-key-after set-coding-system-map [set-keyboard-coding-system] |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
146 '(menu-item "For Keyboard" set-keyboard-coding-system |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
147 :help "How to decode keyboard input") |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
148 t) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
149 (define-key-after set-coding-system-map [set-terminal-coding-system] |
27731 | 150 '(menu-item "For Terminal" set-terminal-coding-system |
96675
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96399
diff
changeset
|
151 :enable (null (memq initial-window-system '(x w32 mac ns))) |
27731 | 152 :help "How to encode terminal output") |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
153 t) |
46786
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
154 (define-key-after set-coding-system-map [separator-3] |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
155 '("--") |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
156 t) |
23031
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
157 (define-key-after set-coding-system-map [set-selection-coding-system] |
27731 | 158 '(menu-item "For X Selections/Clipboard" set-selection-coding-system |
159 :visible (display-selections-p) | |
160 :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
|
161 t) |
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
162 (define-key-after set-coding-system-map [set-next-selection-coding-system] |
27731 | 163 '(menu-item "For Next X Selection" set-next-selection-coding-system |
164 :visible (display-selections-p) | |
165 :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
|
166 t) |
46786
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
167 (define-key-after set-coding-system-map [set-buffer-process-coding-system] |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
168 '(menu-item "For I/O with Subprocess" set-buffer-process-coding-system |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
169 :visible (fboundp 'start-process) |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
170 :enable (get-buffer-process (current-buffer)) |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
171 :help "How to en/decode I/O from/to subprocess connected to this buffer") |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
172 t) |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
173 |
703592d3b794
(mule-keymap, set-coding-system-map):
Richard M. Stallman <rms@gnu.org>
parents:
46674
diff
changeset
|
174 |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
175 (define-key setup-language-environment-map |
27731 | 176 [Default] '(menu-item "Default" setup-specified-language-environment)) |
17052 | 177 |
28456 | 178 (define-key describe-language-environment-map |
179 [Default] '(menu-item "Default" describe-specified-language-support)) | |
180 | |
17052 | 181 ;; This should be a single character key binding because users use it |
182 ;; very frequently while editing multilingual text. Now we can use | |
183 ;; only two such keys: "\C-\\" and "\C-^", but the latter is not | |
184 ;; convenient because it requires shifting on most keyboards. An | |
185 ;; alternative is "\C-\]" which is now bound to `abort-recursive-edit' | |
186 ;; but it won't be used that frequently. | |
187 (define-key global-map "\C-\\" 'toggle-input-method) | |
188 | |
41126
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
189 ;; This is no good because people often type Shift-SPC |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
190 ;; meaning to type SPC. -- rms. |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
191 ;; ;; Here's an alternative key binding for X users (Shift-SPACE). |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
192 ;; (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
|
193 |
31245
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
194 ;;; Mule related hyperlinks. |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
195 (defconst help-xref-mule-regexp-template |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
196 (purecopy (concat "\\(\\<\\(" |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
197 "\\(coding system\\)\\|" |
31423
afa66a3f39dc
(help-xref-mule-regexp-template):
Kenichi Handa <handa@m17n.org>
parents:
31245
diff
changeset
|
198 "\\(input method\\)\\|" |
afa66a3f39dc
(help-xref-mule-regexp-template):
Kenichi Handa <handa@m17n.org>
parents:
31245
diff
changeset
|
199 "\\(character set\\)\\|" |
afa66a3f39dc
(help-xref-mule-regexp-template):
Kenichi Handa <handa@m17n.org>
parents:
31245
diff
changeset
|
200 "\\(charset\\)" |
31245
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
201 "\\)\\s-+\\)?" |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
202 ;; Note starting with word-syntax character: |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
203 "`\\(\\sw\\(\\sw\\|\\s_\\)+\\)'"))) |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
204 |
24007
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
205 (defun coding-system-change-eol-conversion (coding-system eol-type) |
77918
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
206 "Return a coding system which differs from CODING-SYSTEM in EOL conversion. |
24007
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
207 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
|
208 but text as the same way as CODING-SYSTEM. |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
209 EOL-TYPE should be `unix', `dos', `mac', or nil. |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
210 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
|
211 how end-of-line is formatted automatically while decoding. |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
212 |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
213 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
|
214 They means `unix', `dos', and `mac' respectively." |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
215 (if (symbolp eol-type) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
216 (setq eol-type (cond ((eq eol-type 'unix) 0) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
217 ((eq eol-type 'dos) 1) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
218 ((eq eol-type 'mac) 2) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
219 (t eol-type)))) |
73249
f5aa4451cada
* international/mule-cmds.el (coding-system-change-eol-conversion):
Chong Yidong <cyd@stupidchicken.com>
parents:
72032
diff
changeset
|
220 ;; We call `coding-system-base' before `coding-system-eol-type', |
f5aa4451cada
* international/mule-cmds.el (coding-system-change-eol-conversion):
Chong Yidong <cyd@stupidchicken.com>
parents:
72032
diff
changeset
|
221 ;; because the coding-system may not be initialized until then. |
f5aa4451cada
* international/mule-cmds.el (coding-system-change-eol-conversion):
Chong Yidong <cyd@stupidchicken.com>
parents:
72032
diff
changeset
|
222 (let* ((base (coding-system-base coding-system)) |
f5aa4451cada
* international/mule-cmds.el (coding-system-change-eol-conversion):
Chong Yidong <cyd@stupidchicken.com>
parents:
72032
diff
changeset
|
223 (orig-eol-type (coding-system-eol-type coding-system))) |
f5aa4451cada
* international/mule-cmds.el (coding-system-change-eol-conversion):
Chong Yidong <cyd@stupidchicken.com>
parents:
72032
diff
changeset
|
224 (cond ((vectorp orig-eol-type) |
f5aa4451cada
* international/mule-cmds.el (coding-system-change-eol-conversion):
Chong Yidong <cyd@stupidchicken.com>
parents:
72032
diff
changeset
|
225 (if (not eol-type) |
f5aa4451cada
* international/mule-cmds.el (coding-system-change-eol-conversion):
Chong Yidong <cyd@stupidchicken.com>
parents:
72032
diff
changeset
|
226 coding-system |
f5aa4451cada
* international/mule-cmds.el (coding-system-change-eol-conversion):
Chong Yidong <cyd@stupidchicken.com>
parents:
72032
diff
changeset
|
227 (aref orig-eol-type eol-type))) |
f5aa4451cada
* international/mule-cmds.el (coding-system-change-eol-conversion):
Chong Yidong <cyd@stupidchicken.com>
parents:
72032
diff
changeset
|
228 ((not eol-type) |
f5aa4451cada
* international/mule-cmds.el (coding-system-change-eol-conversion):
Chong Yidong <cyd@stupidchicken.com>
parents:
72032
diff
changeset
|
229 base) |
f5aa4451cada
* international/mule-cmds.el (coding-system-change-eol-conversion):
Chong Yidong <cyd@stupidchicken.com>
parents:
72032
diff
changeset
|
230 ((= eol-type orig-eol-type) |
f5aa4451cada
* international/mule-cmds.el (coding-system-change-eol-conversion):
Chong Yidong <cyd@stupidchicken.com>
parents:
72032
diff
changeset
|
231 coding-system) |
f5aa4451cada
* international/mule-cmds.el (coding-system-change-eol-conversion):
Chong Yidong <cyd@stupidchicken.com>
parents:
72032
diff
changeset
|
232 ((progn (setq orig-eol-type (coding-system-eol-type base)) |
f5aa4451cada
* international/mule-cmds.el (coding-system-change-eol-conversion):
Chong Yidong <cyd@stupidchicken.com>
parents:
72032
diff
changeset
|
233 (vectorp orig-eol-type)) |
f5aa4451cada
* international/mule-cmds.el (coding-system-change-eol-conversion):
Chong Yidong <cyd@stupidchicken.com>
parents:
72032
diff
changeset
|
234 (aref orig-eol-type eol-type))))) |
24007
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
235 |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
236 (defun coding-system-change-text-conversion (coding-system coding) |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
237 "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
|
238 The returned coding system converts text by CODING |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
239 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
|
240 If CODING is nil, the returned coding system detects |
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
241 how text is formatted automatically while decoding." |
44425
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
242 (let ((eol-type (coding-system-eol-type coding-system))) |
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
243 (coding-system-change-eol-conversion |
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
244 (if coding coding 'undecided) |
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
245 (if (numberp eol-type) (aref [unix dos mac] eol-type))))) |
24007
0e0b1cdfbfe3
(coding-system-change-eol-conversion,
Eli Zaretskii <eliz@gnu.org>
parents:
23966
diff
changeset
|
246 |
17052 | 247 (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
|
248 "Change whether this buffer uses multibyte characters. |
141c2d41d39c
(toggle-enable-multibyte-characters): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
20467
diff
changeset
|
249 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
|
250 |
141c2d41d39c
(toggle-enable-multibyte-characters): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
20467
diff
changeset
|
251 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
|
252 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
|
253 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
|
254 characters that the current buffer contains. |
141c2d41d39c
(toggle-enable-multibyte-characters): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
20467
diff
changeset
|
255 |
77918
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
256 We suggest you avoid using this command unless you know what you are |
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
257 doing. If you use it by mistake, and the buffer is now displayed |
20483
141c2d41d39c
(toggle-enable-multibyte-characters): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
20467
diff
changeset
|
258 wrong, use this command again to toggle back to the right mode." |
17052 | 259 (interactive "P") |
20830
237a0f70c61d
(toggle-enable-multibyte-characters): Use set-buffer-multibyte.
Richard M. Stallman <rms@gnu.org>
parents:
20733
diff
changeset
|
260 (let ((new-flag |
237a0f70c61d
(toggle-enable-multibyte-characters): Use set-buffer-multibyte.
Richard M. Stallman <rms@gnu.org>
parents:
20733
diff
changeset
|
261 (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
|
262 (> (prefix-numeric-value arg) 0)))) |
237a0f70c61d
(toggle-enable-multibyte-characters): Use set-buffer-multibyte.
Richard M. Stallman <rms@gnu.org>
parents:
20733
diff
changeset
|
263 (set-buffer-multibyte new-flag)) |
17052 | 264 (force-mode-line-update)) |
265 | |
266 (defun view-hello-file () | |
96399
c9d2dbd8e87c
robert marshall <robert at capuchin.co.uk> (tiny change)
Glenn Morris <rgm@gnu.org>
parents:
96376
diff
changeset
|
267 "Display the HELLO file, which lists many languages and characters." |
17052 | 268 (interactive) |
17294
d7ae63db9e6e
Prefix for Mule related commands is changed.
Kenichi Handa <handa@m17n.org>
parents:
17090
diff
changeset
|
269 ;; 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
|
270 (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
|
271 (coding-system-for-read 'iso-2022-7bit)) |
49779
2207016a3e9e
(view-hello-file): Use `view-file' instead of `find-file-read-only'.
Juanma Barranquero <lekktu@gmail.com>
parents:
49776
diff
changeset
|
272 (view-file (expand-file-name "HELLO" data-directory)))) |
17052 | 273 |
47450
6bd30e077257
(universal-coding-system-argument):
Richard M. Stallman <rms@gnu.org>
parents:
46857
diff
changeset
|
274 (defun universal-coding-system-argument (coding-system) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
275 "Execute an I/O command using the specified coding system." |
47450
6bd30e077257
(universal-coding-system-argument):
Richard M. Stallman <rms@gnu.org>
parents:
46857
diff
changeset
|
276 (interactive |
6bd30e077257
(universal-coding-system-argument):
Richard M. Stallman <rms@gnu.org>
parents:
46857
diff
changeset
|
277 (let ((default (and buffer-file-coding-system |
21882
4fb3860a1f26
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
21856
diff
changeset
|
278 (not (eq (coding-system-type buffer-file-coding-system) |
89472
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
279 'undecided)) |
47450
6bd30e077257
(universal-coding-system-argument):
Richard M. Stallman <rms@gnu.org>
parents:
46857
diff
changeset
|
280 buffer-file-coding-system))) |
6bd30e077257
(universal-coding-system-argument):
Richard M. Stallman <rms@gnu.org>
parents:
46857
diff
changeset
|
281 (list (read-coding-system |
6bd30e077257
(universal-coding-system-argument):
Richard M. Stallman <rms@gnu.org>
parents:
46857
diff
changeset
|
282 (if default |
65680
ed770a0a7846
2005-09-24 Emilio C. Lopes <eclig@gmx.net>
Romain Francoise <romain@orebokech.com>
parents:
65652
diff
changeset
|
283 (format "Coding system for following command (default %s): " default) |
47450
6bd30e077257
(universal-coding-system-argument):
Richard M. Stallman <rms@gnu.org>
parents:
46857
diff
changeset
|
284 "Coding system for following command: ") |
6bd30e077257
(universal-coding-system-argument):
Richard M. Stallman <rms@gnu.org>
parents:
46857
diff
changeset
|
285 default)))) |
6bd30e077257
(universal-coding-system-argument):
Richard M. Stallman <rms@gnu.org>
parents:
46857
diff
changeset
|
286 (let* ((keyseq (read-key-sequence |
19798
054497f70932
(universal-coding-system-argument): Improve prompt strings.
Richard M. Stallman <rms@gnu.org>
parents:
19784
diff
changeset
|
287 (format "Command to execute with %s:" coding-system))) |
35504
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
288 (cmd (key-binding keyseq)) |
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
289 prefix) |
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
290 |
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
291 (when (eq cmd 'universal-argument) |
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
292 (call-interactively cmd) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49435
diff
changeset
|
293 |
35504
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
294 ;; Process keys bound in `universal-argument-map'. |
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
295 (while (progn |
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
296 (setq keyseq (read-key-sequence nil t) |
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
297 cmd (key-binding keyseq t)) |
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
298 (not (eq cmd 'universal-argument-other-key))) |
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
299 (let ((current-prefix-arg prefix-arg) |
46674 | 300 ;; Have to bind `last-command-char' here so that |
52856
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
301 ;; `digit-argument', for instance, can compute the |
35504
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
302 ;; prefix arg. |
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
303 (last-command-char (aref keyseq 0))) |
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
304 (call-interactively cmd))) |
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
305 |
52856
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
306 ;; This is the final call to `universal-argument-other-key', which |
35504
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
307 ;; set's the final `prefix-arg. |
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
308 (let ((current-prefix-arg prefix-arg)) |
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
309 (call-interactively cmd)) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49435
diff
changeset
|
310 |
35504
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
311 ;; Read the command to execute with the given prefix arg. |
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
312 (setq prefix prefix-arg |
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
313 keyseq (read-key-sequence nil t) |
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
314 cmd (key-binding keyseq))) |
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
315 |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
316 (let ((coding-system-for-read coding-system) |
35504
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
317 (coding-system-for-write coding-system) |
48877
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
318 (coding-system-require-warning t) |
35504
9545aa93e735
(universal-coding-system-argument):
Gerd Moellmann <gerd@gnu.org>
parents:
35254
diff
changeset
|
319 (current-prefix-arg prefix)) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
320 (message "") |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
321 (call-interactively cmd)))) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
322 |
19141
9e0468e59b5f
(set-default-coding-systems): New function.
Kenichi Handa <handa@m17n.org>
parents:
19083
diff
changeset
|
323 (defun set-default-coding-systems (coding-system) |
19267
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
324 "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
|
325 This sets the following coding systems: |
19267
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
326 o coding system of a newly created buffer |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
327 o default coding system for subprocess I/O |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
328 This also sets the following values: |
64124
8ee5c917c069
(set-default-coding-systems): Don't
Kenichi Handa <handa@m17n.org>
parents:
64085
diff
changeset
|
329 o default value used as `file-name-coding-system' for converting file names |
77918
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
330 if CODING-SYSTEM is ASCII-compatible |
23916
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
331 o default value for the command `set-terminal-coding-system' (not on MSDOS) |
64124
8ee5c917c069
(set-default-coding-systems): Don't
Kenichi Handa <handa@m17n.org>
parents:
64085
diff
changeset
|
332 o default value for the command `set-keyboard-coding-system' |
77918
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
333 if CODING-SYSTEM is ASCII-compatible" |
19141
9e0468e59b5f
(set-default-coding-systems): New function.
Kenichi Handa <handa@m17n.org>
parents:
19083
diff
changeset
|
334 (check-coding-system coding-system) |
9e0468e59b5f
(set-default-coding-systems): New function.
Kenichi Handa <handa@m17n.org>
parents:
19083
diff
changeset
|
335 (setq-default buffer-file-coding-system coding-system) |
53262
b18fd10266de
(set-default-coding-systems): Call
Kenichi Handa <handa@m17n.org>
parents:
53168
diff
changeset
|
336 (if (fboundp 'ucs-set-table-for-input) |
b18fd10266de
(set-default-coding-systems): Call
Kenichi Handa <handa@m17n.org>
parents:
53168
diff
changeset
|
337 (dolist (buffer (buffer-list)) |
b18fd10266de
(set-default-coding-systems): Call
Kenichi Handa <handa@m17n.org>
parents:
53168
diff
changeset
|
338 (or (local-variable-p 'buffer-file-coding-system buffer) |
b18fd10266de
(set-default-coding-systems): Call
Kenichi Handa <handa@m17n.org>
parents:
53168
diff
changeset
|
339 (ucs-set-table-for-input buffer)))) |
b18fd10266de
(set-default-coding-systems): Call
Kenichi Handa <handa@m17n.org>
parents:
53168
diff
changeset
|
340 |
73819
5b1056dbe2ba
(set-default-coding-systems): Always
Kenichi Handa <handa@m17n.org>
parents:
73249
diff
changeset
|
341 (if (eq system-type 'darwin) |
59906
9c28fead9bf2
(set-locale-environment): Set file-name coding system to utf-8 on Darwin.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
59743
diff
changeset
|
342 ;; The file-name coding system on Darwin systems is always utf-8. |
73819
5b1056dbe2ba
(set-default-coding-systems): Always
Kenichi Handa <handa@m17n.org>
parents:
73249
diff
changeset
|
343 (setq default-file-name-coding-system 'utf-8) |
5b1056dbe2ba
(set-default-coding-systems): Always
Kenichi Handa <handa@m17n.org>
parents:
73249
diff
changeset
|
344 (if (and default-enable-multibyte-characters |
5b1056dbe2ba
(set-default-coding-systems): Always
Kenichi Handa <handa@m17n.org>
parents:
73249
diff
changeset
|
345 (or (not coding-system) |
90668
d677464a3fad
(set-default-coding-systems): Sync
Kenichi Handa <handa@m17n.org>
parents:
90658
diff
changeset
|
346 (coding-system-get coding-system 'ascii-compatible-p))) |
73819
5b1056dbe2ba
(set-default-coding-systems): Always
Kenichi Handa <handa@m17n.org>
parents:
73249
diff
changeset
|
347 (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
|
348 ;; 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
|
349 ;; that they could reset the terminal coding system. |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
350 (unless (and (eq window-system 'pc) coding-system) |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
351 (setq default-terminal-coding-system coding-system)) |
19141
9e0468e59b5f
(set-default-coding-systems): New function.
Kenichi Handa <handa@m17n.org>
parents:
19083
diff
changeset
|
352 (setq default-keyboard-coding-system coding-system) |
44425
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
353 ;; Preserve eol-type from existing default-process-coding-systems. |
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
354 ;; On non-unix-like systems in particular, these may have been set |
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
355 ;; carefully by the user, or by the startup code, to deal with the |
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
356 ;; users shell appropriately, so should not be altered by changing |
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
357 ;; language environment. |
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
358 (let ((output-coding |
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
359 (coding-system-change-text-conversion |
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
360 (car default-process-coding-system) coding-system)) |
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
361 (input-coding |
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
362 (coding-system-change-text-conversion |
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
363 (cdr default-process-coding-system) coding-system))) |
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
364 (setq default-process-coding-system |
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
365 (cons output-coding input-coding)))) |
19141
9e0468e59b5f
(set-default-coding-systems): New function.
Kenichi Handa <handa@m17n.org>
parents:
19083
diff
changeset
|
366 |
19267
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
367 (defun prefer-coding-system (coding-system) |
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
368 "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
|
369 This also sets the following coding systems: |
19267
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
370 o coding system of a newly created buffer |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
371 o default coding system for subprocess I/O |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
372 This also sets the following values: |
77918
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
373 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
|
374 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
|
375 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
|
376 |
23960
37905ac69d9c
(prefer-coding-system): If the argument requires specific EOL conversion
Eli Zaretskii <eliz@gnu.org>
parents:
23924
diff
changeset
|
377 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
|
378 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
|
379 |
23916
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
380 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
|
381 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
|
382 system, and Emacs automatically sets the default to that coding system at |
35254
54d36c772e7b
(prefer-coding-system): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
35248
diff
changeset
|
383 startup. |
54d36c772e7b
(prefer-coding-system): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
35248
diff
changeset
|
384 |
36464 | 385 A coding system that requires automatic detection of text |
89483 | 386 +encoding (e.g. undecided, unix) can't be preferred.." |
19267
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
387 (interactive "zPrefer coding system: ") |
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
388 (if (not (and coding-system (coding-system-p coding-system))) |
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
389 (error "Invalid coding system `%s'" coding-system)) |
88410
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
390 (if (memq (coding-system-type coding-system) '(raw-text undecided)) |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
391 (error "Can't prefer the coding system `%s'" coding-system)) |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
392 (let ((base (coding-system-base coding-system)) |
23960
37905ac69d9c
(prefer-coding-system): If the argument requires specific EOL conversion
Eli Zaretskii <eliz@gnu.org>
parents:
23924
diff
changeset
|
393 (eol-type (coding-system-eol-type coding-system))) |
88410
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
394 (set-coding-system-priority base) |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
395 (and (interactive-p) |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
396 (or (eq base coding-system) |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
397 (message "Highest priority is set to %s (base of %s)" |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
398 base coding-system))) |
23960
37905ac69d9c
(prefer-coding-system): If the argument requires specific EOL conversion
Eli Zaretskii <eliz@gnu.org>
parents:
23924
diff
changeset
|
399 ;; 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
|
400 (if (memq eol-type '(0 1 2)) |
88410
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
401 (setq base |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
402 (coding-system-change-eol-conversion base eol-type))) |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
403 (set-default-coding-systems base))) |
19267
6e152439176f
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
19141
diff
changeset
|
404 |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
405 (defvar sort-coding-systems-predicate nil |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
406 "If non-nil, a predicate function to sort coding systems. |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
407 |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
408 It is called with two coding systems, and should return t if the first |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
409 one is \"less\" than the second. |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
410 |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
411 The function `sort-coding-systems' use it.") |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
412 |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
413 (defun sort-coding-systems (codings) |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
414 "Sort coding system list CODINGS by a priority of each coding system. |
77918
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
415 Return the sorted list. CODINGS is modified by side effects. |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
416 |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
417 If a coding system is most preferred, it has the highest priority. |
77918
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
418 Otherwise, coding systems that correspond to MIME charsets have |
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
419 higher priorities. Among them, a coding system included in the |
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
420 `coding-system' key of the current language environment has higher |
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
421 priority. See also the documentation of `language-info-alist'. |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
422 |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
423 If the variable `sort-coding-systems-predicate' (which see) is |
77918
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
424 non-nil, it is used to sort CODINGS instead." |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
425 (if sort-coding-systems-predicate |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
426 (sort codings sort-coding-systems-predicate) |
89483 | 427 (let* ((from-priority (coding-system-priority-list)) |
428 (most-preferred (car from-priority)) | |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
429 (lang-preferred (get-language-info current-language-environment |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
430 'coding-system)) |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
431 (func (function |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
432 (lambda (x) |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
433 (let ((base (coding-system-base x))) |
50537
4eb84208a499
(sort-coding-systems): Set higher priority to a coding system listed
Kenichi Handa <handa@m17n.org>
parents:
50535
diff
changeset
|
434 ;; We calculate the priority number 0..255 by |
4eb84208a499
(sort-coding-systems): Set higher priority to a coding system listed
Kenichi Handa <handa@m17n.org>
parents:
50535
diff
changeset
|
435 ;; using the 8 bits PMMLCEII as this: |
78484
edc666d07b2c
Replace `iff' in doc-strings and comments.
Glenn Morris <rgm@gnu.org>
parents:
78310
diff
changeset
|
436 ;; P: 1 if most preferred. |
edc666d07b2c
Replace `iff' in doc-strings and comments.
Glenn Morris <rgm@gnu.org>
parents:
78310
diff
changeset
|
437 ;; MM: greater than 0 if mime-charset. |
edc666d07b2c
Replace `iff' in doc-strings and comments.
Glenn Morris <rgm@gnu.org>
parents:
78310
diff
changeset
|
438 ;; L: 1 if one of the current lang. env.'s codings. |
edc666d07b2c
Replace `iff' in doc-strings and comments.
Glenn Morris <rgm@gnu.org>
parents:
78310
diff
changeset
|
439 ;; C: 1 if one of codings listed in the category list. |
edc666d07b2c
Replace `iff' in doc-strings and comments.
Glenn Morris <rgm@gnu.org>
parents:
78310
diff
changeset
|
440 ;; E: 1 if not XXX-with-esc |
50537
4eb84208a499
(sort-coding-systems): Set higher priority to a coding system listed
Kenichi Handa <handa@m17n.org>
parents:
50535
diff
changeset
|
441 ;; II: if iso-2022 based, 0..3, else 1. |
4eb84208a499
(sort-coding-systems): Set higher priority to a coding system listed
Kenichi Handa <handa@m17n.org>
parents:
50535
diff
changeset
|
442 (logior |
4eb84208a499
(sort-coding-systems): Set higher priority to a coding system listed
Kenichi Handa <handa@m17n.org>
parents:
50535
diff
changeset
|
443 (lsh (if (eq base most-preferred) 1 0) 7) |
4eb84208a499
(sort-coding-systems): Set higher priority to a coding system listed
Kenichi Handa <handa@m17n.org>
parents:
50535
diff
changeset
|
444 (lsh |
89483 | 445 (let ((mime (coding-system-get base :mime-charset))) |
49029 | 446 ;; Prefer coding systems corresponding to a |
447 ;; MIME charset. | |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
448 (if mime |
49029 | 449 ;; Lower utf-16 priority so that we |
450 ;; normally prefer utf-8 to it, and put | |
451 ;; x-ctext below that. | |
50535
32b881425e3d
(sort-coding-systems): Lower the
Kenichi Handa <handa@m17n.org>
parents:
50183
diff
changeset
|
452 (cond ((string-match "utf-16" |
32b881425e3d
(sort-coding-systems): Lower the
Kenichi Handa <handa@m17n.org>
parents:
50183
diff
changeset
|
453 (symbol-name mime)) |
50537
4eb84208a499
(sort-coding-systems): Set higher priority to a coding system listed
Kenichi Handa <handa@m17n.org>
parents:
50535
diff
changeset
|
454 2) |
49029 | 455 ((string-match "^x-" (symbol-name mime)) |
50537
4eb84208a499
(sort-coding-systems): Set higher priority to a coding system listed
Kenichi Handa <handa@m17n.org>
parents:
50535
diff
changeset
|
456 1) |
4eb84208a499
(sort-coding-systems): Set higher priority to a coding system listed
Kenichi Handa <handa@m17n.org>
parents:
50535
diff
changeset
|
457 (t 3)) |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
458 0)) |
50537
4eb84208a499
(sort-coding-systems): Set higher priority to a coding system listed
Kenichi Handa <handa@m17n.org>
parents:
50535
diff
changeset
|
459 5) |
4eb84208a499
(sort-coding-systems): Set higher priority to a coding system listed
Kenichi Handa <handa@m17n.org>
parents:
50535
diff
changeset
|
460 (lsh (if (memq base lang-preferred) 1 0) 4) |
89483 | 461 (lsh (if (memq base from-priority) 1 0) 3) |
50537
4eb84208a499
(sort-coding-systems): Set higher priority to a coding system listed
Kenichi Handa <handa@m17n.org>
parents:
50535
diff
changeset
|
462 (lsh (if (string-match "-with-esc\\'" |
4eb84208a499
(sort-coding-systems): Set higher priority to a coding system listed
Kenichi Handa <handa@m17n.org>
parents:
50535
diff
changeset
|
463 (symbol-name base)) |
4eb84208a499
(sort-coding-systems): Set higher priority to a coding system listed
Kenichi Handa <handa@m17n.org>
parents:
50535
diff
changeset
|
464 0 1) 2) |
89483 | 465 (if (eq (coding-system-type base) 'iso-2022) |
466 (let ((category (coding-system-category base))) | |
467 ;; For ISO based coding systems, prefer | |
468 ;; one that doesn't use designation nor | |
469 ;; locking/single shifting. | |
89472
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
470 (cond |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
471 ((or (eq category 'coding-category-iso-8-1) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
472 (eq category 'coding-category-iso-8-2)) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
473 2) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
474 ((or (eq category 'coding-category-iso-7-tight) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
475 (eq category 'coding-category-iso-7)) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
476 1) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
477 (t |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
478 0))) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
479 1) |
88796
d740bbf6ca68
(sort-coding-systems): Comment out
Dave Love <fx@gnu.org>
parents:
88769
diff
changeset
|
480 )))))) |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
481 (sort codings (function (lambda (x y) |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
482 (> (funcall func x) (funcall func y)))))))) |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
483 |
21377 | 484 (defun find-coding-systems-region (from to) |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
485 "Return a list of proper coding systems to encode a text between FROM and TO. |
89483 | 486 |
46674 | 487 If FROM is a string, find coding systems in that instead of the buffer. |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
488 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
|
489 in the text. |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
490 |
23196 | 491 If the text contains no multibyte characters, return a list of a single |
21377 | 492 element `undecided'." |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
493 (let ((codings (find-coding-systems-region-internal from to))) |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
494 (if (eq codings t) |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
495 ;; The text contains only ASCII characters. Any coding |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
496 ;; systems are safe. |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
497 '(undecided) |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
498 ;; We need copy-sequence because sorting will alter the argument. |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
499 (sort-coding-systems (copy-sequence codings))))) |
21377 | 500 |
501 (defun find-coding-systems-string (string) | |
502 "Return a list of proper coding systems to encode STRING. | |
503 All coding systems in the list can safely encode any multibyte characters | |
504 in STRING. | |
505 | |
23196 | 506 If STRING contains no multibyte characters, return a list of a single |
21377 | 507 element `undecided'." |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
508 (find-coding-systems-region string nil)) |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
509 |
21377 | 510 (defun find-coding-systems-for-charsets (charsets) |
511 "Return a list of proper coding systems to encode characters of CHARSETS. | |
50183
42387e68072a
(find-coding-systems-for-charsets):
Kenichi Handa <handa@m17n.org>
parents:
50116
diff
changeset
|
512 CHARSETS is a list of character sets. |
89092
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
513 |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
514 This only finds coding systems of type `charset', whose |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
515 `:charset-list' property includes all of CHARSETS (plus `ascii' for |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
516 ascii-compatible coding systems). It was used in older versions of |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
517 Emacs, but is unlikely to be what you really want now." |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
518 ;; Deal with aliases. |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
519 (setq charsets (mapcar (lambda (c) |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
520 (get-charset-property c :name)) |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
521 charsets)) |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
522 (cond ((or (null charsets) |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
523 (and (= (length charsets) 1) |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
524 (eq 'ascii (car charsets)))) |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
525 '(undecided)) |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
526 ((or (memq 'eight-bit-control charsets) |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
527 (memq 'eight-bit-graphic charsets)) |
89092
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
528 '(raw-text utf-8-emacs)) |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
529 (t |
89092
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
530 (let (codings) |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
531 (dolist (cs (coding-system-list t)) |
89344
1c9758957aae
(find-coding-systems-for-charsets):
Dave Love <fx@gnu.org>
parents:
89241
diff
changeset
|
532 (let ((cs-charsets (and (eq (coding-system-type cs) 'charset) |
1c9758957aae
(find-coding-systems-for-charsets):
Dave Love <fx@gnu.org>
parents:
89241
diff
changeset
|
533 (coding-system-charset-list cs))) |
89092
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
534 (charsets charsets)) |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
535 (if (coding-system-get cs :ascii-compatible-p) |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
536 (add-to-list 'cs-charsets 'ascii)) |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
537 (if (catch 'ok |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
538 (when cs-charsets |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
539 (while charsets |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
540 (unless (memq (pop charsets) cs-charsets) |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
541 (throw 'ok nil))) |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
542 t)) |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
543 (push cs codings)))) |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
544 (nreverse codings))))) |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
545 |
22815
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
546 (defun find-multibyte-characters (from to &optional maxcount excludes) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
547 "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
|
548 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
|
549 The return value is an alist of the following format: |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
550 ((CHARSET COUNT CHAR ...) ...) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
551 where |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
552 CHARSET is a character set, |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
553 COUNT is a number of characters, |
52856
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
554 CHARs are the characters found from the character set. |
22815
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
555 Optional 3rd arg MAXCOUNT limits how many CHARs are put in the above list. |
90861
4f7df84e666c
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
90776
diff
changeset
|
556 Optional 4th arg EXCLUDES is a list of character sets to be ignored." |
22815
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
557 (let ((chars nil) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
558 charset char) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
559 (if (stringp from) |
89472
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
560 (if (multibyte-string-p from) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
561 (let ((idx 0)) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
562 (while (setq idx (string-match "[^\000-\177]" from idx)) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
563 (setq char (aref from idx) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
564 charset (char-charset char)) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
565 (unless (memq charset excludes) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
566 (let ((slot (assq charset chars))) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
567 (if slot |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
568 (if (not (memq char (nthcdr 2 slot))) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
569 (let ((count (nth 1 slot))) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
570 (setcar (cdr slot) (1+ count)) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
571 (if (or (not maxcount) (< count maxcount)) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
572 (nconc slot (list char))))) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
573 (setq chars (cons (list charset 1 char) chars))))) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
574 (setq idx (1+ idx))))) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
575 (if enable-multibyte-characters |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
576 (save-excursion |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
577 (goto-char from) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
578 (while (re-search-forward "[^\000-\177]" to t) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
579 (setq char (preceding-char) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
580 charset (char-charset char)) |
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
581 (unless (memq charset excludes) |
22815
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
582 (let ((slot (assq charset chars))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
583 (if slot |
89472
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
584 (if (not (member char (nthcdr 2 slot))) |
22815
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
585 (let ((count (nth 1 slot))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
586 (setcar (cdr slot) (1+ count)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
587 (if (or (not maxcount) (< count maxcount)) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
588 (nconc slot (list char))))) |
89472
523daff56a65
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
89344
diff
changeset
|
589 (setq chars (cons (list charset 1 char) chars))))))))) |
22815
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
590 (nreverse chars))) |
6af93eeeca10
(find-multibyte-characters): New
Kenichi Handa <handa@m17n.org>
parents:
22778
diff
changeset
|
591 |
46857
31feee29e69a
(search-unencodable-char): New
Kenichi Handa <handa@m17n.org>
parents:
46829
diff
changeset
|
592 (defun search-unencodable-char (coding-system) |
31feee29e69a
(search-unencodable-char): New
Kenichi Handa <handa@m17n.org>
parents:
46829
diff
changeset
|
593 "Search forward from point for a character that is not encodable. |
31feee29e69a
(search-unencodable-char): New
Kenichi Handa <handa@m17n.org>
parents:
46829
diff
changeset
|
594 It asks which coding system to check. |
31feee29e69a
(search-unencodable-char): New
Kenichi Handa <handa@m17n.org>
parents:
46829
diff
changeset
|
595 If such a character is found, set point after that character. |
31feee29e69a
(search-unencodable-char): New
Kenichi Handa <handa@m17n.org>
parents:
46829
diff
changeset
|
596 Otherwise, don't move point. |
31feee29e69a
(search-unencodable-char): New
Kenichi Handa <handa@m17n.org>
parents:
46829
diff
changeset
|
597 |
77918
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
598 When called from a program, the value is the position of the unencodable |
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
599 character found, or nil if all characters are encodable." |
46857
31feee29e69a
(search-unencodable-char): New
Kenichi Handa <handa@m17n.org>
parents:
46829
diff
changeset
|
600 (interactive |
31feee29e69a
(search-unencodable-char): New
Kenichi Handa <handa@m17n.org>
parents:
46829
diff
changeset
|
601 (list (let ((default (or buffer-file-coding-system 'us-ascii))) |
31feee29e69a
(search-unencodable-char): New
Kenichi Handa <handa@m17n.org>
parents:
46829
diff
changeset
|
602 (read-coding-system |
65680
ed770a0a7846
2005-09-24 Emilio C. Lopes <eclig@gmx.net>
Romain Francoise <romain@orebokech.com>
parents:
65652
diff
changeset
|
603 (format "Coding-system (default %s): " default) |
46857
31feee29e69a
(search-unencodable-char): New
Kenichi Handa <handa@m17n.org>
parents:
46829
diff
changeset
|
604 default)))) |
31feee29e69a
(search-unencodable-char): New
Kenichi Handa <handa@m17n.org>
parents:
46829
diff
changeset
|
605 (let ((pos (unencodable-char-position (point) (point-max) coding-system))) |
31feee29e69a
(search-unencodable-char): New
Kenichi Handa <handa@m17n.org>
parents:
46829
diff
changeset
|
606 (if pos |
31feee29e69a
(search-unencodable-char): New
Kenichi Handa <handa@m17n.org>
parents:
46829
diff
changeset
|
607 (goto-char (1+ pos)) |
31feee29e69a
(search-unencodable-char): New
Kenichi Handa <handa@m17n.org>
parents:
46829
diff
changeset
|
608 (message "All following characters are encodable by %s" coding-system)) |
31feee29e69a
(search-unencodable-char): New
Kenichi Handa <handa@m17n.org>
parents:
46829
diff
changeset
|
609 pos)) |
31feee29e69a
(search-unencodable-char): New
Kenichi Handa <handa@m17n.org>
parents:
46829
diff
changeset
|
610 |
22025
369ac7fae774
(last-coding-system-specified): New var.
Richard M. Stallman <rms@gnu.org>
parents:
21983
diff
changeset
|
611 (defvar last-coding-system-specified nil |
369ac7fae774
(last-coding-system-specified): New var.
Richard M. Stallman <rms@gnu.org>
parents:
21983
diff
changeset
|
612 "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
|
613 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
|
614 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
|
615 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
|
616 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
|
617 |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
618 (defvar select-safe-coding-system-accept-default-p nil |
63269
f5860b9ada9c
(select-safe-coding-system-accept-default-p, input-method-exit-on-invalid-key):
Juanma Barranquero <lekktu@gmail.com>
parents:
62274
diff
changeset
|
619 "If non-nil, a function to control the behavior of coding system selection. |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
620 The meaning is the same as the argument ACCEPT-DEFAULT-P of the |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
621 function `select-safe-coding-system' (which see). This variable |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
622 overrides that argument.") |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
623 |
58055
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
624 (defun select-safe-coding-system-interactively (from to codings unsafe |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
625 &optional rejected default) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
626 "Select interactively a coding system for the region FROM ... TO. |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
627 FROM can be a string, as in `write-region'. |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
628 CODINGS is the list of base coding systems known to be safe for this region, |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
629 typically obtained with `find-coding-systems-region'. |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
630 UNSAFE is a list of coding systems known to be unsafe for this region. |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
631 REJECTED is a list of coding systems which were safe but for some reason |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
632 were not recommended in the particular context. |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
633 DEFAULT is the coding system to use by default in the query." |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
634 ;; At first, if some defaults are unsafe, record at most 11 |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
635 ;; problematic characters and their positions for them by turning |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
636 ;; (CODING ...) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
637 ;; into |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
638 ;; ((CODING (POS . CHAR) (POS . CHAR) ...) ...) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
639 (if unsafe |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
640 (setq unsafe |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
641 (mapcar #'(lambda (coding) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
642 (cons coding |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
643 (if (stringp from) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
644 (mapcar #'(lambda (pos) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
645 (cons pos (aref from pos))) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
646 (unencodable-char-position |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
647 0 (length from) coding |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
648 11 from)) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
649 (mapcar #'(lambda (pos) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
650 (cons pos (char-after pos))) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
651 (unencodable-char-position |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
652 from to coding 11))))) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
653 unsafe))) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
654 |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
655 ;; Change each safe coding system to the corresponding |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
656 ;; mime-charset name if it is also a coding system. Such a name |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
657 ;; is more friendly to users. |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
658 (let ((l codings) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
659 mime-charset) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
660 (while l |
90052
197b7306b2bb
(select-safe-coding-system-interactively):
Kenichi Handa <handa@m17n.org>
parents:
90044
diff
changeset
|
661 (setq mime-charset (coding-system-get (car l) :mime-charset)) |
197b7306b2bb
(select-safe-coding-system-interactively):
Kenichi Handa <handa@m17n.org>
parents:
90044
diff
changeset
|
662 (if (and mime-charset (coding-system-p mime-charset) |
197b7306b2bb
(select-safe-coding-system-interactively):
Kenichi Handa <handa@m17n.org>
parents:
90044
diff
changeset
|
663 (coding-system-equal (car l) mime-charset)) |
58055
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
664 (setcar l mime-charset)) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
665 (setq l (cdr l)))) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
666 |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
667 ;; Don't offer variations with locking shift, which you |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
668 ;; basically never want. |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
669 (let (l) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
670 (dolist (elt codings (setq codings (nreverse l))) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
671 (unless (or (eq 'coding-category-iso-7-else |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
672 (coding-system-category elt)) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
673 (eq 'coding-category-iso-8-else |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
674 (coding-system-category elt))) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
675 (push elt l)))) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
676 |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
677 ;; Remove raw-text, emacs-mule and no-conversion unless nothing |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
678 ;; else is available. |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
679 (setq codings |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
680 (or (delq 'raw-text |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
681 (delq 'emacs-mule |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
682 (delq 'no-conversion codings))) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
683 '(raw-text emacs-mule no-conversion))) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
684 |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
685 (let ((window-configuration (current-window-configuration)) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
686 (bufname (buffer-name)) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
687 coding-system) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
688 (save-excursion |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
689 ;; If some defaults are unsafe, make sure the offending |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
690 ;; buffer is displayed. |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
691 (when (and unsafe (not (stringp from))) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
692 (pop-to-buffer bufname) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
693 (goto-char (apply 'min (mapcar #'(lambda (x) (car (cadr x))) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
694 unsafe)))) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
695 ;; Then ask users to select one from CODINGS while showing |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
696 ;; the reason why none of the defaults are not used. |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
697 (with-output-to-temp-buffer "*Warning*" |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
698 (with-current-buffer standard-output |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
699 (if (and (null rejected) (null unsafe)) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
700 (insert "No default coding systems to try for " |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
701 (if (stringp from) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
702 (format "string \"%s\"." from) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
703 (format "buffer `%s'." bufname))) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
704 (insert |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
705 "These default coding systems were tried to encode" |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
706 (if (stringp from) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
707 (concat " \"" (if (> (length from) 10) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
708 (concat (substring from 0 10) "...\"") |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
709 (concat from "\""))) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
710 (format " text\nin the buffer `%s'" bufname)) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
711 ":\n") |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
712 (let ((pos (point)) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
713 (fill-prefix " ")) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
714 (dolist (x (append rejected unsafe)) |
90947
996f89a629d7
(select-safe-coding-system-interactively): Fix printing of
Kenichi Handa <handa@m17n.org>
parents:
90861
diff
changeset
|
715 (princ " ") (princ x)) |
58055
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
716 (insert "\n") |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
717 (fill-region-as-paragraph pos (point))) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
718 (when rejected |
74934
b9d3d3b69df9
(select-safe-coding-system-interactively): Improve the message in the
Eli Zaretskii <eliz@gnu.org>
parents:
74931
diff
changeset
|
719 (insert "These safely encode the text in the buffer, |
b9d3d3b69df9
(select-safe-coding-system-interactively): Improve the message in the
Eli Zaretskii <eliz@gnu.org>
parents:
74931
diff
changeset
|
720 but are not recommended for encoding text in this context, |
58055
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
721 e.g., for sending an email message.\n ") |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
722 (dolist (x rejected) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
723 (princ " ") (princ x)) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
724 (insert "\n")) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
725 (when unsafe |
74934
b9d3d3b69df9
(select-safe-coding-system-interactively): Improve the message in the
Eli Zaretskii <eliz@gnu.org>
parents:
74931
diff
changeset
|
726 (insert (if rejected "The other coding systems" |
58055
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
727 "However, each of them") |
74934
b9d3d3b69df9
(select-safe-coding-system-interactively): Improve the message in the
Eli Zaretskii <eliz@gnu.org>
parents:
74931
diff
changeset
|
728 " encountered characters it couldn't encode:\n") |
58055
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
729 (dolist (coding unsafe) |
74934
b9d3d3b69df9
(select-safe-coding-system-interactively): Improve the message in the
Eli Zaretskii <eliz@gnu.org>
parents:
74931
diff
changeset
|
730 (insert (format " %s cannot encode these:" (car coding))) |
58055
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
731 (let ((i 0) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
732 (func1 |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
733 #'(lambda (bufname pos) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
734 (when (buffer-live-p (get-buffer bufname)) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
735 (pop-to-buffer bufname) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
736 (goto-char pos)))) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
737 (func2 |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
738 #'(lambda (bufname pos coding) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
739 (when (buffer-live-p (get-buffer bufname)) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
740 (pop-to-buffer bufname) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
741 (if (< (point) pos) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
742 (goto-char pos) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
743 (forward-char 1) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
744 (search-unencodable-char coding) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
745 (forward-char -1)))))) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
746 (dolist (elt (cdr coding)) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
747 (insert " ") |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
748 (if (stringp from) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
749 (insert (if (< i 10) (cdr elt) "...")) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
750 (if (< i 10) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
751 (insert-text-button |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
752 (cdr elt) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
753 :type 'help-xref |
74931
94fc36e46118
(select-safe-coding-system-interactively):
Kenichi Handa <handa@m17n.org>
parents:
74927
diff
changeset
|
754 'face 'link |
58055
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
755 'help-echo |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
756 "mouse-2, RET: jump to this character" |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
757 'help-function func1 |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
758 'help-args (list bufname (car elt))) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
759 (insert-text-button |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
760 "..." |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
761 :type 'help-xref |
74931
94fc36e46118
(select-safe-coding-system-interactively):
Kenichi Handa <handa@m17n.org>
parents:
74927
diff
changeset
|
762 'face 'link |
58055
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
763 'help-echo |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
764 "mouse-2, RET: next unencodable character" |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
765 'help-function func2 |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
766 'help-args (list bufname (car elt) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
767 (car coding))))) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
768 (setq i (1+ i)))) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
769 (insert "\n")) |
75150
920fbb042c18
(select-safe-coding-system-interactively): Fix message.
Kenichi Handa <handa@m17n.org>
parents:
74978
diff
changeset
|
770 (insert (substitute-command-keys "\ |
74927
a53153ed1c2b
(select-safe-coding-system-interactively):
Kenichi Handa <handa@m17n.org>
parents:
74607
diff
changeset
|
771 |
75150
920fbb042c18
(select-safe-coding-system-interactively): Fix message.
Kenichi Handa <handa@m17n.org>
parents:
74978
diff
changeset
|
772 Click on a character (or switch to this window by `\\[other-window]'\n\ |
920fbb042c18
(select-safe-coding-system-interactively): Fix message.
Kenichi Handa <handa@m17n.org>
parents:
74978
diff
changeset
|
773 and select the characters by RET) to jump to the place it appears,\n\ |
74934
b9d3d3b69df9
(select-safe-coding-system-interactively): Improve the message in the
Eli Zaretskii <eliz@gnu.org>
parents:
74931
diff
changeset
|
774 where `\\[universal-argument] \\[what-cursor-position]' will give information about it.\n")))) |
74927
a53153ed1c2b
(select-safe-coding-system-interactively):
Kenichi Handa <handa@m17n.org>
parents:
74607
diff
changeset
|
775 (insert (substitute-command-keys "\nSelect \ |
74934
b9d3d3b69df9
(select-safe-coding-system-interactively): Improve the message in the
Eli Zaretskii <eliz@gnu.org>
parents:
74931
diff
changeset
|
776 one of the safe coding systems listed below,\n\ |
b9d3d3b69df9
(select-safe-coding-system-interactively): Improve the message in the
Eli Zaretskii <eliz@gnu.org>
parents:
74931
diff
changeset
|
777 or cancel the writing with \\[keyboard-quit] and edit the buffer\n\ |
b9d3d3b69df9
(select-safe-coding-system-interactively): Improve the message in the
Eli Zaretskii <eliz@gnu.org>
parents:
74931
diff
changeset
|
778 to remove or modify the problematic characters,\n\ |
b9d3d3b69df9
(select-safe-coding-system-interactively): Improve the message in the
Eli Zaretskii <eliz@gnu.org>
parents:
74931
diff
changeset
|
779 or specify any other coding system (and risk losing\n\ |
b9d3d3b69df9
(select-safe-coding-system-interactively): Improve the message in the
Eli Zaretskii <eliz@gnu.org>
parents:
74931
diff
changeset
|
780 the problematic characters).\n\n")) |
58055
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
781 (let ((pos (point)) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
782 (fill-prefix " ")) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
783 (dolist (x codings) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
784 (princ " ") (princ x)) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
785 (insert "\n") |
74927
a53153ed1c2b
(select-safe-coding-system-interactively):
Kenichi Handa <handa@m17n.org>
parents:
74607
diff
changeset
|
786 (fill-region-as-paragraph pos (point))))) |
58055
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
787 |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
788 ;; Read a coding system. |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
789 (setq coding-system |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
790 (read-coding-system |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
791 (format "Select coding system (default %s): " default) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
792 default)) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
793 (setq last-coding-system-specified coding-system)) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
794 |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
795 (kill-buffer "*Warning*") |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
796 (set-window-configuration window-configuration) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
797 coding-system)) |
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
798 |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
799 (defun select-safe-coding-system (from to &optional default-coding-system |
45631
b01cd9b1ae08
(select-safe-coding-system): New arg FILE; use that for set-auto-coding.
Richard M. Stallman <rms@gnu.org>
parents:
45479
diff
changeset
|
800 accept-default-p file) |
20842
428831a6f4d1
(find-safe-coding-system): Return
Kenichi Handa <handa@m17n.org>
parents:
20830
diff
changeset
|
801 "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
|
802 The candidates of coding systems which can safely encode a text |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
803 between FROM and TO are shown in a popup window. Among them, the most |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
804 proper one is suggested as the default. |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
805 |
51134
d59b2e15c4c7
(select-safe-coding-system): Try
Kenichi Handa <handa@m17n.org>
parents:
51016
diff
changeset
|
806 The list of `buffer-file-coding-system' of the current buffer, |
d59b2e15c4c7
(select-safe-coding-system): Try
Kenichi Handa <handa@m17n.org>
parents:
51016
diff
changeset
|
807 the `default-buffer-file-coding-system', and the |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
808 most preferred coding system (if it corresponds to a MIME charset) is |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
809 treated as the default coding system list. Among them, the first one |
46674 | 810 that safely encodes the text is normally selected silently and |
811 returned without any user interaction. See also the command | |
812 `prefer-coding-system'. | |
813 | |
814 However, the user is queried if the chosen coding system is | |
64481
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
815 inconsistent with what would be selected by `find-auto-coding' from |
46674 | 816 coding cookies &c. if the contents of the region were read from a |
817 file. (That could lead to data corruption in a file subsequently | |
818 re-visited and edited.) | |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
819 |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
820 Optional 3rd arg DEFAULT-CODING-SYSTEM specifies a coding system or a |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
821 list of coding systems to be prepended to the default coding system |
48877
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
822 list. However, if DEFAULT-CODING-SYSTEM is a list and the first |
72032
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
823 element is t, the cdr part is used as the default coding system list, |
51134
d59b2e15c4c7
(select-safe-coding-system): Try
Kenichi Handa <handa@m17n.org>
parents:
51016
diff
changeset
|
824 i.e. `buffer-file-coding-system', `default-buffer-file-coding-system', |
d59b2e15c4c7
(select-safe-coding-system): Try
Kenichi Handa <handa@m17n.org>
parents:
51016
diff
changeset
|
825 and the most preferred coding system are not used. |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
826 |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
827 Optional 4th arg ACCEPT-DEFAULT-P, if non-nil, is a function to |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
828 determine the acceptability of the silently selected coding system. |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
829 It is called with that coding system, and should return nil if it |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
830 should not be silently selected and thus user interaction is required. |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
831 |
45631
b01cd9b1ae08
(select-safe-coding-system): New arg FILE; use that for set-auto-coding.
Richard M. Stallman <rms@gnu.org>
parents:
45479
diff
changeset
|
832 Optional 5th arg FILE is the file name to use for this purpose. |
b01cd9b1ae08
(select-safe-coding-system): New arg FILE; use that for set-auto-coding.
Richard M. Stallman <rms@gnu.org>
parents:
45479
diff
changeset
|
833 That is different from `buffer-file-name' when handling `write-region' |
b01cd9b1ae08
(select-safe-coding-system): New arg FILE; use that for set-auto-coding.
Richard M. Stallman <rms@gnu.org>
parents:
45479
diff
changeset
|
834 \(for example). |
b01cd9b1ae08
(select-safe-coding-system): New arg FILE; use that for set-auto-coding.
Richard M. Stallman <rms@gnu.org>
parents:
45479
diff
changeset
|
835 |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
836 The variable `select-safe-coding-system-accept-default-p', if |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
837 non-nil, overrides ACCEPT-DEFAULT-P. |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
838 |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
839 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
|
840 and TO is ignored." |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
841 (if (and default-coding-system |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
842 (not (listp default-coding-system))) |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
843 (setq default-coding-system (list default-coding-system))) |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
844 |
64481
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
845 (let ((no-other-defaults nil) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
846 auto-cs) |
74523
d3e5cb1aa5b6
(register-input-method): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
73819
diff
changeset
|
847 (unless (or (stringp from) find-file-literally) |
64481
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
848 ;; Find an auto-coding that is specified for the the current |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
849 ;; buffer and file from the region FROM and TO. |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
850 (save-excursion |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
851 (save-restriction |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
852 (widen) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
853 (goto-char from) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
854 (setq auto-cs (find-auto-coding (or file buffer-file-name "") |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
855 (- to from))) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
856 (if auto-cs |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
857 (if (coding-system-p (car auto-cs)) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
858 (setq auto-cs (car auto-cs)) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
859 (display-warning |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
860 :warning |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
861 (format "\ |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
862 Invalid coding system `%s' is specified |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
863 for the current buffer/file by the %s. |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
864 It is highly recommended to fix it before writing to a file." |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
865 (car auto-cs) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
866 (if (eq (cdr auto-cs) :coding) ":coding tag" |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
867 (format "variable `%s'" (cdr auto-cs))))) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
868 (or (yes-or-no-p "Really proceed with writing? ") |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
869 (error "Save aborted")) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
870 (setq auto-cs nil)))))) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
871 |
48877
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
872 (if (eq (car default-coding-system) t) |
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
873 (setq no-other-defaults t |
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
874 default-coding-system (cdr default-coding-system))) |
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
875 |
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
876 ;; Change elements of the list to (coding . base-coding). |
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
877 (setq default-coding-system |
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
878 (mapcar (function (lambda (x) (cons x (coding-system-base x)))) |
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
879 default-coding-system)) |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
880 |
64481
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
881 (if (and auto-cs (not no-other-defaults)) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
882 ;; If the file has a coding cookie, try to use it before anything |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
883 ;; else (i.e. before default-coding-system which will typically come |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
884 ;; from file-coding-system-alist). |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
885 (let ((base (coding-system-base auto-cs))) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
886 (or (memq base '(nil undecided)) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
887 (rassq base default-coding-system) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
888 (push (cons auto-cs base) default-coding-system)))) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
889 |
48877
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
890 (unless no-other-defaults |
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
891 ;; If buffer-file-coding-system is not nil nor undecided, append it |
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
892 ;; to the defaults. |
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
893 (if buffer-file-coding-system |
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
894 (let ((base (coding-system-base buffer-file-coding-system))) |
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
895 (or (eq base 'undecided) |
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
896 (rassq base default-coding-system) |
72032
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
897 (setq default-coding-system |
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
898 (append default-coding-system |
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
899 (list (cons buffer-file-coding-system base))))))) |
51134
d59b2e15c4c7
(select-safe-coding-system): Try
Kenichi Handa <handa@m17n.org>
parents:
51016
diff
changeset
|
900 |
d59b2e15c4c7
(select-safe-coding-system): Try
Kenichi Handa <handa@m17n.org>
parents:
51016
diff
changeset
|
901 ;; If default-buffer-file-coding-system is not nil nor undecided, |
d59b2e15c4c7
(select-safe-coding-system): Try
Kenichi Handa <handa@m17n.org>
parents:
51016
diff
changeset
|
902 ;; append it to the defaults. |
d59b2e15c4c7
(select-safe-coding-system): Try
Kenichi Handa <handa@m17n.org>
parents:
51016
diff
changeset
|
903 (if default-buffer-file-coding-system |
d59b2e15c4c7
(select-safe-coding-system): Try
Kenichi Handa <handa@m17n.org>
parents:
51016
diff
changeset
|
904 (let ((base (coding-system-base default-buffer-file-coding-system))) |
d59b2e15c4c7
(select-safe-coding-system): Try
Kenichi Handa <handa@m17n.org>
parents:
51016
diff
changeset
|
905 (or (eq base 'undecided) |
d59b2e15c4c7
(select-safe-coding-system): Try
Kenichi Handa <handa@m17n.org>
parents:
51016
diff
changeset
|
906 (rassq base default-coding-system) |
72032
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
907 (setq default-coding-system |
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
908 (append default-coding-system |
74523
d3e5cb1aa5b6
(register-input-method): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
73819
diff
changeset
|
909 (list (cons default-buffer-file-coding-system |
72032
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
910 base))))))) |
29507 | 911 |
48877
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
912 ;; If the most preferred coding system has the property mime-charset, |
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
913 ;; append it to the defaults. |
89483 | 914 (let ((preferred (coding-system-priority-list t)) |
915 base) | |
48877
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
916 (and (coding-system-p preferred) |
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
917 (setq base (coding-system-base preferred)) |
89483 | 918 (coding-system-get preferred :mime-charset) |
48877
c7299043f7f4
(universal-coding-system-argument):
Kenichi Handa <handa@m17n.org>
parents:
48836
diff
changeset
|
919 (not (rassq base default-coding-system)) |
72032
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
920 (setq default-coding-system |
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
921 (append default-coding-system |
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
922 (list (cons preferred base))))))) |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
923 |
64481
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
924 (if select-safe-coding-system-accept-default-p |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
925 (setq accept-default-p select-safe-coding-system-accept-default-p)) |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
926 |
72032
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
927 ;; Decide the eol-type from the top of the default codings, |
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
928 ;; buffer-file-coding-system, or |
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
929 ;; default-buffer-file-coding-system. |
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
930 (if default-coding-system |
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
931 (let ((default-eol-type (coding-system-eol-type |
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
932 (caar default-coding-system)))) |
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
933 (if (and (vectorp default-eol-type) buffer-file-coding-system) |
74523
d3e5cb1aa5b6
(register-input-method): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
73819
diff
changeset
|
934 (setq default-eol-type (coding-system-eol-type |
72032
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
935 buffer-file-coding-system))) |
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
936 (if (and (vectorp default-eol-type) default-buffer-file-coding-system) |
74523
d3e5cb1aa5b6
(register-input-method): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
73819
diff
changeset
|
937 (setq default-eol-type (coding-system-eol-type |
72032
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
938 default-buffer-file-coding-system))) |
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
939 (if (and default-eol-type (not (vectorp default-eol-type))) |
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
940 (dolist (elt default-coding-system) |
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
941 (setcar elt (coding-system-change-eol-conversion |
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
942 (car elt) default-eol-type)))))) |
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
943 |
64481
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
944 (let ((codings (find-coding-systems-region from to)) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
945 (coding-system nil) |
87430
f322e8d4c5e3
(select-safe-coding-system): When a
Kenichi Handa <handa@m17n.org>
parents:
87098
diff
changeset
|
946 (tick (if (not (stringp from)) (buffer-modified-tick))) |
64481
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
947 safe rejected unsafe) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
948 (if (eq (car codings) 'undecided) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
949 ;; Any coding system is ok. |
72032
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
950 (setq coding-system (caar default-coding-system)) |
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
951 ;; Reverse the list so that elements are accumulated in safe, |
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
952 ;; rejected, and unsafe in the correct order. |
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
953 (setq default-coding-system (nreverse default-coding-system)) |
352a45abb3cc
(select-safe-coding-system): Fix the
Kenichi Handa <handa@m17n.org>
parents:
71606
diff
changeset
|
954 |
64481
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
955 ;; Classify the defaults into safe, rejected, and unsafe. |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
956 (dolist (elt default-coding-system) |
90574
cb32f6952a5b
(select-safe-coding-system): Fix
Kenichi Handa <handa@m17n.org>
parents:
90573
diff
changeset
|
957 (if (or (eq (car codings) 'undecided) |
cb32f6952a5b
(select-safe-coding-system): Fix
Kenichi Handa <handa@m17n.org>
parents:
90573
diff
changeset
|
958 (memq (cdr elt) codings)) |
64481
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
959 (if (and (functionp accept-default-p) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
960 (not (funcall accept-default-p (cdr elt)))) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
961 (push (car elt) rejected) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
962 (push (car elt) safe)) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
963 (push (car elt) unsafe))) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
964 (if safe |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
965 (setq coding-system (car safe)))) |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
966 |
64481
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
967 ;; If all the defaults failed, ask a user. |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
968 (when (not coding-system) |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
969 (setq coding-system (select-safe-coding-system-interactively |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
970 from to codings unsafe rejected (car codings)))) |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
971 |
64481
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
972 ;; Check we're not inconsistent with what `coding:' spec &c would |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
973 ;; give when file is re-read. |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
974 ;; But don't do this if we explicitly ignored the cookie |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
975 ;; by using `find-file-literally'. |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
976 (when (and auto-cs |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
977 (not (and |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
978 coding-system |
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
979 (memq (coding-system-type coding-system) '(0 5))))) |
54507
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
980 ;; Merge coding-system and auto-cs as far as possible. |
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
981 (if (not coding-system) |
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
982 (setq coding-system auto-cs) |
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
983 (if (not auto-cs) |
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
984 (setq auto-cs coding-system) |
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
985 (let ((eol-type-1 (coding-system-eol-type coding-system)) |
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
986 (eol-type-2 (coding-system-eol-type auto-cs))) |
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
987 (if (eq (coding-system-base coding-system) 'undecided) |
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
988 (setq coding-system (coding-system-change-text-conversion |
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
989 coding-system auto-cs)) |
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
990 (if (eq (coding-system-base auto-cs) 'undecided) |
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
991 (setq auto-cs (coding-system-change-text-conversion |
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
992 auto-cs coding-system)))) |
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
993 (if (vectorp eol-type-1) |
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
994 (or (vectorp eol-type-2) |
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
995 (setq coding-system (coding-system-change-eol-conversion |
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
996 coding-system eol-type-2))) |
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
997 (if (vectorp eol-type-2) |
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
998 (setq auto-cs (coding-system-change-eol-conversion |
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
999 auto-cs eol-type-1))))))) |
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
1000 |
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
1001 (if (and auto-cs |
46674 | 1002 ;; Don't barf if writing a compressed file, say. |
1003 ;; This check perhaps isn't ideal, but is probably | |
1004 ;; the best thing to do. | |
1005 (not (auto-coding-alist-lookup (or file buffer-file-name ""))) | |
54507
96c240b674ee
(select-safe-coding-system): Merge
Kenichi Handa <handa@m17n.org>
parents:
53358
diff
changeset
|
1006 (not (coding-system-equal coding-system auto-cs))) |
45082
5b1a8adeb602
(select-safe-coding-system): Don't offer coding systems that use locking shift.
Richard M. Stallman <rms@gnu.org>
parents:
44904
diff
changeset
|
1007 (unless (yes-or-no-p |
5b1a8adeb602
(select-safe-coding-system): Don't offer coding systems that use locking shift.
Richard M. Stallman <rms@gnu.org>
parents:
44904
diff
changeset
|
1008 (format "Selected encoding %s disagrees with \ |
5b1a8adeb602
(select-safe-coding-system): Don't offer coding systems that use locking shift.
Richard M. Stallman <rms@gnu.org>
parents:
44904
diff
changeset
|
1009 %s specified by file contents. Really save (else edit coding cookies \ |
5b1a8adeb602
(select-safe-coding-system): Don't offer coding systems that use locking shift.
Richard M. Stallman <rms@gnu.org>
parents:
44904
diff
changeset
|
1010 and try again)? " coding-system auto-cs)) |
64481
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
1011 (error "Save aborted")))) |
87430
f322e8d4c5e3
(select-safe-coding-system): When a
Kenichi Handa <handa@m17n.org>
parents:
87098
diff
changeset
|
1012 (when (and tick (/= tick (buffer-modified-tick))) |
f322e8d4c5e3
(select-safe-coding-system): When a
Kenichi Handa <handa@m17n.org>
parents:
87098
diff
changeset
|
1013 (error "Cancelled because the buffer was modified")) |
64481
0626bdaeea77
(select-safe-coding-system): Try to
Kenichi Handa <handa@m17n.org>
parents:
64124
diff
changeset
|
1014 coding-system))) |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1015 |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1016 (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
|
1017 |
23087
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
1018 (defun select-message-coding-system () |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
1019 "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
|
1020 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
|
1021 in this order: |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
1022 (1) local value of `buffer-file-coding-system' |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
1023 (2) value of `sendmail-coding-system' |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
1024 (3) value of `default-sendmail-coding-system' |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
1025 (4) value of `default-buffer-file-coding-system' |
23087
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
1026 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
|
1027 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
|
1028 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
|
1029 (let ((coding (or (and (local-variable-p 'buffer-file-coding-system) |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
1030 buffer-file-coding-system) |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
1031 sendmail-coding-system |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
1032 default-sendmail-coding-system |
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
1033 default-buffer-file-coding-system))) |
23087
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
1034 (if (eq coding 'no-conversion) |
46674 | 1035 ;; We should never use no-conversion for outgoing mail. |
23087
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
1036 (setq coding nil)) |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
1037 (if (fboundp select-safe-coding-system-function) |
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
1038 (funcall select-safe-coding-system-function |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
1039 (point-min) (point-max) coding |
88502 | 1040 (function (lambda (x) (coding-system-get x :mime-charset)))) |
23087
4ae12d3c8c30
(select-message-coding-system): New
Kenichi Handa <handa@m17n.org>
parents:
23049
diff
changeset
|
1041 coding))) |
17052 | 1042 |
23916
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1043 ;;; Language support stuff. |
17052 | 1044 |
1045 (defvar language-info-alist nil | |
22153 | 1046 "Alist of language environment definitions. |
17052 | 1047 Each element looks like: |
1048 (LANGUAGE-NAME . ((KEY . INFO) ...)) | |
22153 | 1049 where LANGUAGE-NAME is a string, the name of the language environment, |
1050 KEY is a symbol denoting the kind of information, and | |
1051 INFO is the data associated with KEY. | |
1052 Meaningful values for KEY include | |
17052 | 1053 |
22153 | 1054 documentation value is documentation of what this language environment |
1055 is meant for, and how to use it. | |
88981
28fee7bb4dab
(reset-language-environment): Don't
Kenichi Handa <handa@m17n.org>
parents:
88837
diff
changeset
|
1056 charset value is a list of the character sets mainly used |
28fee7bb4dab
(reset-language-environment): Don't
Kenichi Handa <handa@m17n.org>
parents:
88837
diff
changeset
|
1057 by this language environment. |
46674 | 1058 sample-text value is an expression which is evalled to generate |
1059 a line of text written using characters appropriate | |
1060 for this language environment. | |
22153 | 1061 setup-function value is a function to call to switch to this |
1062 language environment. | |
1063 exit-function value is a function to call to leave this | |
1064 language environment. | |
1065 coding-system value is a list of coding systems that are good | |
1066 for saving text written in this language environment. | |
1067 This list serves as suggestions to the user; | |
1068 in effect, as a kind of documentation. | |
1069 coding-priority value is a list of coding systems for this language | |
1070 environment, in order of decreasing priority. | |
1071 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
|
1072 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
|
1073 nonascii-translation |
88981
28fee7bb4dab
(reset-language-environment): Don't
Kenichi Handa <handa@m17n.org>
parents:
88837
diff
changeset
|
1074 value is a charset of dimension one to use for |
28fee7bb4dab
(reset-language-environment): Don't
Kenichi Handa <handa@m17n.org>
parents:
88837
diff
changeset
|
1075 converting a unibyte character to multibyte |
28fee7bb4dab
(reset-language-environment): Don't
Kenichi Handa <handa@m17n.org>
parents:
88837
diff
changeset
|
1076 and vice versa. |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1077 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
|
1078 environment. |
23031
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
1079 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
|
1080 language environment. |
53355
fea694690fc7
(reset-language-environment): Call
Kenichi Handa <handa@m17n.org>
parents:
53262
diff
changeset
|
1081 ctext-non-standard-encodings |
fea694690fc7
(reset-language-environment): Call
Kenichi Handa <handa@m17n.org>
parents:
53262
diff
changeset
|
1082 value is a list of non-standard encoding |
fea694690fc7
(reset-language-environment): Call
Kenichi Handa <handa@m17n.org>
parents:
53262
diff
changeset
|
1083 names used in extended segments of CTEXT. |
fea694690fc7
(reset-language-environment): Call
Kenichi Handa <handa@m17n.org>
parents:
53262
diff
changeset
|
1084 See the variable |
fea694690fc7
(reset-language-environment): Call
Kenichi Handa <handa@m17n.org>
parents:
53262
diff
changeset
|
1085 `ctext-non-standard-encodings' for more |
fea694690fc7
(reset-language-environment): Call
Kenichi Handa <handa@m17n.org>
parents:
53262
diff
changeset
|
1086 detail. |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1087 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1088 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
|
1089 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
|
1090 is nil. |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1091 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1092 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
|
1093 for the terminal. Characters in the range |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1094 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
|
1095 but as non-ASCII characters in this language |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1096 environment.") |
22153 | 1097 |
1098 (defun get-language-info (lang-env key) | |
1099 "Return information listed under KEY for language environment LANG-ENV. | |
1100 KEY is a symbol denoting the kind of information. | |
1101 For a list of useful values for KEY and their meanings, | |
1102 see `language-info-alist'." | |
1103 (if (symbolp lang-env) | |
1104 (setq lang-env (symbol-name lang-env))) | |
55047
428f891f9e31
Use assoc-string, not assoc-ignore-case.
Richard M. Stallman <rms@gnu.org>
parents:
54507
diff
changeset
|
1105 (let ((lang-slot (assoc-string lang-env language-info-alist t))) |
17052 | 1106 (if lang-slot |
1107 (cdr (assq key (cdr lang-slot)))))) | |
1108 | |
22200
a0d60a6c87da
(register-input-method): Rename arg ENV to LANG-ENV. Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22153
diff
changeset
|
1109 (defun set-language-info (lang-env key info) |
22153 | 1110 "Modify part of the definition of language environment LANG-ENV. |
1111 Specifically, this stores the information INFO under KEY | |
1112 in the definition of this language environment. | |
17052 | 1113 KEY is a symbol denoting the kind of information. |
22153 | 1114 INFO is the value for that information. |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1115 |
22153 | 1116 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
|
1117 see `language-info-alist'." |
22153 | 1118 (if (symbolp lang-env) |
1119 (setq lang-env (symbol-name lang-env))) | |
67320
08bc4f887f34
(set-language-info-internal): New
Kenichi Handa <handa@m17n.org>
parents:
67036
diff
changeset
|
1120 (set-language-info-internal lang-env key info) |
08bc4f887f34
(set-language-info-internal): New
Kenichi Handa <handa@m17n.org>
parents:
67036
diff
changeset
|
1121 (if (equal lang-env current-language-environment) |
71606
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1122 (cond ((eq key 'coding-priority) |
90521
b81a8a5635a8
(set-language-info): Fix synching
Kenichi Handa <handa@m17n.org>
parents:
90519
diff
changeset
|
1123 (set-language-environment-coding-systems lang-env) |
b81a8a5635a8
(set-language-info): Fix synching
Kenichi Handa <handa@m17n.org>
parents:
90519
diff
changeset
|
1124 (set-language-environment-charset lang-env)) |
71606
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1125 ((eq key 'input-method) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1126 (set-language-environment-input-method lang-env)) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1127 ((eq key 'nonascii-translation) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1128 (set-language-environment-nonascii-translation lang-env)) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1129 ((eq key 'charset) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1130 (set-language-environment-charset lang-env)) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1131 ((and (not default-enable-multibyte-characters) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1132 (or (eq key 'unibyte-syntax) (eq key 'unibyte-display))) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1133 (set-language-environment-unibyte lang-env))))) |
67320
08bc4f887f34
(set-language-info-internal): New
Kenichi Handa <handa@m17n.org>
parents:
67036
diff
changeset
|
1134 |
08bc4f887f34
(set-language-info-internal): New
Kenichi Handa <handa@m17n.org>
parents:
67036
diff
changeset
|
1135 (defun set-language-info-internal (lang-env key info) |
08bc4f887f34
(set-language-info-internal): New
Kenichi Handa <handa@m17n.org>
parents:
67036
diff
changeset
|
1136 "Internal use only. |
08bc4f887f34
(set-language-info-internal): New
Kenichi Handa <handa@m17n.org>
parents:
67036
diff
changeset
|
1137 Arguments are the same as `set-language-info'." |
17052 | 1138 (let (lang-slot key-slot) |
22153 | 1139 (setq lang-slot (assoc lang-env language-info-alist)) |
17052 | 1140 (if (null lang-slot) ; If no slot for the language, add it. |
22153 | 1141 (setq lang-slot (list lang-env) |
17052 | 1142 language-info-alist (cons lang-slot language-info-alist))) |
1143 (setq key-slot (assq key lang-slot)) | |
1144 (if (null key-slot) ; If no slot for the key, add it. | |
1145 (progn | |
1146 (setq key-slot (list key)) | |
1147 (setcdr lang-slot (cons key-slot (cdr lang-slot))))) | |
48808
3928ea1dee22
(current-language-environment-custom-type): New fun.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48231
diff
changeset
|
1148 (setcdr key-slot (purecopy info)) |
48813
47c6ac3517f8
(set-language-info): Update custom-type of
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48812
diff
changeset
|
1149 ;; Update the custom-type of `current-language-environment'. |
48808
3928ea1dee22
(current-language-environment-custom-type): New fun.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48231
diff
changeset
|
1150 (put 'current-language-environment 'custom-type |
48813
47c6ac3517f8
(set-language-info): Update custom-type of
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48812
diff
changeset
|
1151 (cons 'choice (mapcar |
47c6ac3517f8
(set-language-info): Update custom-type of
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48812
diff
changeset
|
1152 (lambda (lang) |
49435
f9953109e75c
(set-language-info, current-language-environment):
Markus Rost <rost@math.uni-bielefeld.de>
parents:
49048
diff
changeset
|
1153 (list 'const lang)) |
f9953109e75c
(set-language-info, current-language-environment):
Markus Rost <rost@math.uni-bielefeld.de>
parents:
49048
diff
changeset
|
1154 (sort (mapcar 'car language-info-alist) 'string<)))))) |
17052 | 1155 |
22153 | 1156 (defun set-language-info-alist (lang-env alist &optional parents) |
1157 "Store ALIST as the definition of language environment LANG-ENV. | |
1158 ALIST is an alist of KEY and INFO values. See the documentation of | |
29830
74886b751ce2
(set-language-info-alist): Docstring fixed.
Kenichi Handa <handa@m17n.org>
parents:
29507
diff
changeset
|
1159 `language-info-alist' for the meanings of KEY and INFO. |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1160 |
22153 | 1161 Optional arg PARENTS is a list of parent menu names; it specifies |
46674 | 1162 where to put this language environment in the |
22153 | 1163 Describe Language Environment and Set Language Environment menus. |
1164 For example, (\"European\") means to put this language environment | |
1165 in the European submenu in each of those two menus." | |
1166 (if (symbolp lang-env) | |
1167 (setq lang-env (symbol-name lang-env))) | |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1168 (let ((describe-map describe-language-environment-map) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1169 (setup-map setup-language-environment-map)) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1170 (if parents |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1171 (let ((l parents) |
28828
b8133d80ec1e
(set-language-info-alist): Call define-prefix-command with 3 arguments,
Eli Zaretskii <eliz@gnu.org>
parents:
28774
diff
changeset
|
1172 map parent-symbol parent prompt) |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1173 (while l |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1174 (if (symbolp (setq parent-symbol (car l))) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1175 (setq parent (symbol-name parent)) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1176 (setq parent parent-symbol parent-symbol (intern parent))) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1177 (setq map (lookup-key describe-map (vector parent-symbol))) |
28828
b8133d80ec1e
(set-language-info-alist): Call define-prefix-command with 3 arguments,
Eli Zaretskii <eliz@gnu.org>
parents:
28774
diff
changeset
|
1178 ;; This prompt string is for define-prefix-command, so |
b8133d80ec1e
(set-language-info-alist): Call define-prefix-command with 3 arguments,
Eli Zaretskii <eliz@gnu.org>
parents:
28774
diff
changeset
|
1179 ;; that the map it creates will be suitable for a menu. |
b8133d80ec1e
(set-language-info-alist): Call define-prefix-command with 3 arguments,
Eli Zaretskii <eliz@gnu.org>
parents:
28774
diff
changeset
|
1180 (or map (setq prompt (format "%s Environment" parent))) |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1181 (if (not map) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1182 (progn |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1183 (setq map (intern (format "describe-%s-environment-map" |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1184 (downcase parent)))) |
28828
b8133d80ec1e
(set-language-info-alist): Call define-prefix-command with 3 arguments,
Eli Zaretskii <eliz@gnu.org>
parents:
28774
diff
changeset
|
1185 (define-prefix-command map nil prompt) |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1186 (define-key-after describe-map (vector parent-symbol) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1187 (cons parent map) t))) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1188 (setq describe-map (symbol-value map)) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1189 (setq map (lookup-key setup-map (vector parent-symbol))) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1190 (if (not map) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1191 (progn |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1192 (setq map (intern (format "setup-%s-environment-map" |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1193 (downcase parent)))) |
28828
b8133d80ec1e
(set-language-info-alist): Call define-prefix-command with 3 arguments,
Eli Zaretskii <eliz@gnu.org>
parents:
28774
diff
changeset
|
1194 (define-prefix-command map nil prompt) |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1195 (define-key-after setup-map (vector parent-symbol) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1196 (cons parent map) t))) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1197 (setq setup-map (symbol-value map)) |
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1198 (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
|
1199 |
a0d60a6c87da
(register-input-method): Rename arg ENV to LANG-ENV. Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22153
diff
changeset
|
1200 ;; Set up menu items for this language env. |
23031
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
1201 (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
|
1202 (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
|
1203 (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
|
1204 (cons lang-env 'describe-specified-language-support) t))) |
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
1205 (define-key-after setup-map (vector (intern lang-env)) |
5e2bc240edfc
(language-info-alist): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
23021
diff
changeset
|
1206 (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
|
1207 |
67320
08bc4f887f34
(set-language-info-internal): New
Kenichi Handa <handa@m17n.org>
parents:
67036
diff
changeset
|
1208 (dolist (elt alist) |
08bc4f887f34
(set-language-info-internal): New
Kenichi Handa <handa@m17n.org>
parents:
67036
diff
changeset
|
1209 (set-language-info-internal lang-env (car elt) (cdr elt))) |
74523
d3e5cb1aa5b6
(register-input-method): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
73819
diff
changeset
|
1210 |
67320
08bc4f887f34
(set-language-info-internal): New
Kenichi Handa <handa@m17n.org>
parents:
67036
diff
changeset
|
1211 (if (equal lang-env current-language-environment) |
08bc4f887f34
(set-language-info-internal): New
Kenichi Handa <handa@m17n.org>
parents:
67036
diff
changeset
|
1212 (set-language-environment lang-env)))) |
17052 | 1213 |
19734
c4894d8a3310
(read-language-name): Use a default, not an initial input.
Richard M. Stallman <rms@gnu.org>
parents:
19725
diff
changeset
|
1214 (defun read-language-name (key prompt &optional default) |
22153 | 1215 "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
|
1216 If KEY is nil, read any language environment. |
22153 | 1217 Prompt with PROMPT. DEFAULT is the default choice of language environment. |
1218 This returns a language environment name as a string." | |
17052 | 1219 (let* ((completion-ignore-case t) |
1220 (name (completing-read prompt | |
1221 language-info-alist | |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1222 (and key |
44904
3c8d8ff3a848
(read-language-name): Take of non-list values.
Pavel Janík <Pavel@Janik.cz>
parents:
44643
diff
changeset
|
1223 (function (lambda (elm) (and (listp 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
|
1224 t nil nil default))) |
17758
8c67c2e2cc29
(build-describe-language-support-function,
Kenichi Handa <handa@m17n.org>
parents:
17526
diff
changeset
|
1225 (if (and (> (length name) 0) |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1226 (or (not key) |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1227 (get-language-info name key))) |
17758
8c67c2e2cc29
(build-describe-language-support-function,
Kenichi Handa <handa@m17n.org>
parents:
17526
diff
changeset
|
1228 name))) |
17052 | 1229 |
1230 ;;; Multilingual input methods. | |
46674 | 1231 (defgroup leim nil |
31423
afa66a3f39dc
(help-xref-mule-regexp-template):
Kenichi Handa <handa@m17n.org>
parents:
31245
diff
changeset
|
1232 "LEIM: Libraries of Emacs Input Methods." |
afa66a3f39dc
(help-xref-mule-regexp-template):
Kenichi Handa <handa@m17n.org>
parents:
31245
diff
changeset
|
1233 :group 'mule) |
17052 | 1234 |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1235 (defconst leim-list-file-name "leim-list.el" |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1236 "Name of LEIM list file. |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1237 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
|
1238 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
|
1239 Emacs loads this file at startup time.") |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1240 |
26010
edea9722f14e
(select-safe-coding-system, leim-list-header): avoid the use of strings
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
24864
diff
changeset
|
1241 (defvar leim-list-header (format |
46674 | 1242 ";;; %s -- list of LEIM (Library of Emacs Input Method) -*-coding: iso-2022-7bit;-*- |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1243 ;; |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1244 ;; This file contains a list of LEIM (Library of Emacs Input Method) |
36464 | 1245 ;; methods in the same directory as this file. Loading this file |
1246 ;; registers all the input methods in Emacs. | |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1247 ;; |
18969 | 1248 ;; Each entry has the form: |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1249 ;; (register-input-method |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1250 ;; INPUT-METHOD LANGUAGE-NAME ACTIVATE-FUNC |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1251 ;; TITLE DESCRIPTION |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1252 ;; ARG ...) |
36464 | 1253 ;; See the function `register-input-method' for the meanings of the arguments. |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1254 ;; |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1255 ;; 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
|
1256 ;; loads this file at startup time. |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1257 |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1258 " |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1259 leim-list-file-name) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1260 "Header to be inserted in LEIM list file.") |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1261 |
18982
2297a2cb909d
(leim-list-entry-regexp): Make this match only at beginning of line.
Kenichi Handa <handa@m17n.org>
parents:
18978
diff
changeset
|
1262 (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
|
1263 "Regexp matching head of each entry in LEIM list file. |
77918
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
1264 See also the variable `leim-list-header'.") |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1265 |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1266 (defvar update-leim-list-functions |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1267 '(quail-update-leim-list-file) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1268 "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
|
1269 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
|
1270 |
19615
4cdef838afb0
(update-leim-list-file): Make it handle multiple directories.
Richard M. Stallman <rms@gnu.org>
parents:
19614
diff
changeset
|
1271 (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
|
1272 "Update LEIM list file in directories DIRS." |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1273 (let ((functions update-leim-list-functions)) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1274 (while functions |
19615
4cdef838afb0
(update-leim-list-file): Make it handle multiple directories.
Richard M. Stallman <rms@gnu.org>
parents:
19614
diff
changeset
|
1275 (apply (car functions) dirs) |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1276 (setq functions (cdr functions))))) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1277 |
17052 | 1278 (defvar current-input-method nil |
1279 "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
|
1280 If nil, that means no input method is activated now.") |
17052 | 1281 (make-variable-buffer-local 'current-input-method) |
1282 (put 'current-input-method 'permanent-local t) | |
1283 | |
1284 (defvar current-input-method-title nil | |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1285 "Title string of the current input method shown in mode line.") |
17052 | 1286 (make-variable-buffer-local 'current-input-method-title) |
1287 (put 'current-input-method-title 'permanent-local t) | |
1288 | |
18801
f60dbf4f7d7c
(mule-keymap): Bind l to set-language-environment.
Kenichi Handa <handa@m17n.org>
parents:
18712
diff
changeset
|
1289 (defcustom default-input-method nil |
90861
4f7df84e666c
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
90776
diff
changeset
|
1290 "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
|
1291 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
|
1292 `toggle-input-method' (\\[toggle-input-method])." |
52856
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
1293 :link '(custom-manual "(emacs)Input Methods") |
21229
38b621cd9169
(set-language-environment): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
21042
diff
changeset
|
1294 :group 'mule |
52856
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
1295 :type '(choice (const nil) (string |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
1296 :completion-ignore-case t |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
1297 :complete-function widget-string-complete |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
1298 :completion-alist input-method-alist |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
1299 :prompt-history input-method-history)) |
26832
4a01a2762de5
(default-input-method): Specify
Gerd Moellmann <gerd@gnu.org>
parents:
26190
diff
changeset
|
1300 :set-after '(current-language-environment)) |
18801
f60dbf4f7d7c
(mule-keymap): Bind l to set-language-environment.
Kenichi Handa <handa@m17n.org>
parents:
18712
diff
changeset
|
1301 |
24617
a9d05d95717d
(input-method-function): Add permanent-local property.
Karl Heuer <kwzh@gnu.org>
parents:
24551
diff
changeset
|
1302 (put 'input-method-function 'permanent-local t) |
a9d05d95717d
(input-method-function): Add permanent-local property.
Karl Heuer <kwzh@gnu.org>
parents:
24551
diff
changeset
|
1303 |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1304 (defvar input-method-history nil |
79595
9fec9cf76ca1
(input-method-history): Add reference to `history-length' in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents:
79505
diff
changeset
|
1305 "History list of input methods read from the minibuffer. |
9fec9cf76ca1
(input-method-history): Add reference to `history-length' in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents:
79505
diff
changeset
|
1306 |
9fec9cf76ca1
(input-method-history): Add reference to `history-length' in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents:
79505
diff
changeset
|
1307 Maximum length of the history list is determined by the value |
9fec9cf76ca1
(input-method-history): Add reference to `history-length' in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents:
79505
diff
changeset
|
1308 of `history-length', which see.") |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1309 (make-variable-buffer-local 'input-method-history) |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1310 (put 'input-method-history 'permanent-local t) |
17052 | 1311 |
1312 (defvar inactivate-current-input-method-function nil | |
1313 "Function to call for inactivating the current input method. | |
1314 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
|
1315 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
|
1316 |
df2996f7fdc3
(inactivate-current-input-method-function): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
19424
diff
changeset
|
1317 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
|
1318 It is set to nil by the function `inactivate-input-method'.") |
17052 | 1319 (make-variable-buffer-local 'inactivate-current-input-method-function) |
1320 (put 'inactivate-current-input-method-function 'permanent-local t) | |
1321 | |
1322 (defvar describe-current-input-method-function nil | |
1323 "Function to call for describing the current input method. | |
1324 This function is called with no argument.") | |
1325 (make-variable-buffer-local 'describe-current-input-method-function) | |
1326 (put 'describe-current-input-method-function 'permanent-local t) | |
1327 | |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1328 (defvar input-method-alist nil |
22153 | 1329 "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
|
1330 Each element has the form: |
22153 | 1331 (INPUT-METHOD LANGUAGE-ENV ACTIVATE-FUNC TITLE DESCRIPTION ARGS...) |
1332 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
|
1333 |
22200
a0d60a6c87da
(register-input-method): Rename arg ENV to LANG-ENV. Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22153
diff
changeset
|
1334 (defun register-input-method (input-method lang-env &rest args) |
36732
326d93c83808
(register-input-method): Doc fix.
Kenichi Handa <handa@m17n.org>
parents:
36528
diff
changeset
|
1335 "Register INPUT-METHOD as an input method for language environment LANG-ENV. |
74523
d3e5cb1aa5b6
(register-input-method): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
73819
diff
changeset
|
1336 |
22200
a0d60a6c87da
(register-input-method): Rename arg ENV to LANG-ENV. Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22153
diff
changeset
|
1337 INPUT-METHOD and LANG-ENV are symbols or strings. |
22153 | 1338 ACTIVATE-FUNC is a function to call to activate this method. |
1339 TITLE is a string to show in the mode line when this method is active. | |
1340 DESCRIPTION is a string describing this method and what it is good for. | |
1341 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
|
1342 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
|
1343 |
36464 | 1344 This function is mainly used in the file \"leim-list.el\" which is |
1345 created at Emacs build time, registering all Quail input methods | |
36261 | 1346 contained in the Emacs distribution. |
23168
ff3750779f48
(register-input-method): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23165
diff
changeset
|
1347 |
36261 | 1348 In case you want to register a new Quail input method by yourself, be |
23168
ff3750779f48
(register-input-method): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23165
diff
changeset
|
1349 careful to use the same input method title as given in the third |
36261 | 1350 parameter of `quail-define-package'. (If the values are different, the |
1351 string specified in this function takes precedence.) | |
23168
ff3750779f48
(register-input-method): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23165
diff
changeset
|
1352 |
ff3750779f48
(register-input-method): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23165
diff
changeset
|
1353 The commands `describe-input-method' and `list-input-methods' need |
36261 | 1354 these duplicated values to show some information about input methods |
74523
d3e5cb1aa5b6
(register-input-method): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
73819
diff
changeset
|
1355 without loading the relevant Quail packages. |
d3e5cb1aa5b6
(register-input-method): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
73819
diff
changeset
|
1356 \n(fn INPUT-METHOD LANG-ENV ACTIVATE-FUNC TITLE DESCRIPTION &rest ARGS)" |
22200
a0d60a6c87da
(register-input-method): Rename arg ENV to LANG-ENV. Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22153
diff
changeset
|
1357 (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
|
1358 (setq lang-env (symbol-name lang-env))) |
19649
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
1359 (if (symbolp input-method) |
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
1360 (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
|
1361 (let ((info (cons lang-env args)) |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1362 (slot (assoc input-method input-method-alist))) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1363 (if slot |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1364 (setcdr slot info) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1365 (setq slot (cons input-method info)) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1366 (setq input-method-alist (cons slot input-method-alist))))) |
17052 | 1367 |
19328
a616b45ffa31
(read-input-method-name): Replace INITIAL-INPUT arg with DEFAULT arg.
Richard M. Stallman <rms@gnu.org>
parents:
19267
diff
changeset
|
1368 (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
|
1369 "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
|
1370 If DEFAULT is non-nil, use that as the default, |
36261 | 1371 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
|
1372 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
|
1373 |
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
1374 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
|
1375 (if default |
a616b45ffa31
(read-input-method-name): Replace INITIAL-INPUT arg with DEFAULT arg.
Richard M. Stallman <rms@gnu.org>
parents:
19267
diff
changeset
|
1376 (setq prompt (format prompt default))) |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1377 (let* ((completion-ignore-case t) |
36863
247618d8fd9d
(read-input-method-name): Locally
Kenichi Handa <handa@m17n.org>
parents:
36836
diff
changeset
|
1378 ;; As it is quite normal to change input method in the |
247618d8fd9d
(read-input-method-name): Locally
Kenichi Handa <handa@m17n.org>
parents:
36836
diff
changeset
|
1379 ;; minibuffer, we must enable it even if |
247618d8fd9d
(read-input-method-name): Locally
Kenichi Handa <handa@m17n.org>
parents:
36836
diff
changeset
|
1380 ;; enable-recursive-minibuffers is currently nil. |
247618d8fd9d
(read-input-method-name): Locally
Kenichi Handa <handa@m17n.org>
parents:
36836
diff
changeset
|
1381 (enable-recursive-minibuffers t) |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1382 ;; This binding is necessary because input-method-history is |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1383 ;; buffer local. |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1384 (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
|
1385 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
|
1386 default))) |
26190
598f252b76f2
(read-input-method-name): Handle the
Kenichi Handa <handa@m17n.org>
parents:
26139
diff
changeset
|
1387 (if (and input-method (symbolp input-method)) |
598f252b76f2
(read-input-method-name): Handle the
Kenichi Handa <handa@m17n.org>
parents:
26139
diff
changeset
|
1388 (setq input-method (symbol-name input-method))) |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1389 (if (> (length input-method) 0) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1390 input-method |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1391 (if inhibit-null |
18978
0f01c27a9756
(read-input-method-name): Show more appropriate error message.
Kenichi Handa <handa@m17n.org>
parents:
18969
diff
changeset
|
1392 (error "No valid input method is specified"))))) |
17052 | 1393 |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1394 (defun activate-input-method (input-method) |
22153 | 1395 "Switch to input method INPUT-METHOD for the current buffer. |
1396 If some other input method is already active, turn it off first. | |
1397 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
|
1398 (if (and input-method (symbolp input-method)) |
19649
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
1399 (setq input-method (symbol-name input-method))) |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1400 (if (and current-input-method |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1401 (not (string= current-input-method input-method))) |
23049
82a27d5b4582
(activate-input-method): Handle the
Kenichi Handa <handa@m17n.org>
parents:
23044
diff
changeset
|
1402 (inactivate-input-method)) |
22153 | 1403 (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
|
1404 (let ((slot (assoc input-method input-method-alist))) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1405 (if (null slot) |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1406 (error "Can't activate input method `%s'" input-method)) |
36528
355bbea5a6cd
(activate-input-method): If current-input-method-title is set by
Kenichi Handa <handa@m17n.org>
parents:
36464
diff
changeset
|
1407 (setq current-input-method-title nil) |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1408 (let ((func (nth 2 slot))) |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1409 (if (functionp func) |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1410 (apply (nth 2 slot) input-method (nthcdr 5 slot)) |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1411 (if (and (consp func) (symbolp (car func)) (symbolp (cdr func))) |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1412 (progn |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1413 (require (cdr func)) |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1414 (apply (car func) input-method (nthcdr 5 slot))) |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1415 (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
|
1416 (setq current-input-method input-method) |
36528
355bbea5a6cd
(activate-input-method): If current-input-method-title is set by
Kenichi Handa <handa@m17n.org>
parents:
36464
diff
changeset
|
1417 (or (stringp current-input-method-title) |
355bbea5a6cd
(activate-input-method): If current-input-method-title is set by
Kenichi Handa <handa@m17n.org>
parents:
36464
diff
changeset
|
1418 (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
|
1419 (unwind-protect |
dd7dcda2d47b
(activate-input-method): Update mode line.
Kenichi Handa <handa@m17n.org>
parents:
22815
diff
changeset
|
1420 (run-hooks 'input-method-activate-hook) |
dd7dcda2d47b
(activate-input-method): Update mode line.
Kenichi Handa <handa@m17n.org>
parents:
22815
diff
changeset
|
1421 (force-mode-line-update))))) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1422 |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1423 (defun inactivate-input-method () |
19555
df2996f7fdc3
(inactivate-current-input-method-function): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
19424
diff
changeset
|
1424 "Turn off the current input method." |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1425 (when current-input-method |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1426 (if input-method-history |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1427 (unless (string= current-input-method (car input-method-history)) |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1428 (setq input-method-history |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1429 (cons current-input-method |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1430 (delete current-input-method input-method-history)))) |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1431 (setq input-method-history (list current-input-method))) |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1432 (unwind-protect |
91016
a4a3332d6583
(inactivate-input-method): Set
Kenichi Handa <handa@m17n.org>
parents:
91005
diff
changeset
|
1433 (progn |
a4a3332d6583
(inactivate-input-method): Set
Kenichi Handa <handa@m17n.org>
parents:
91005
diff
changeset
|
1434 (setq input-method-function nil |
a4a3332d6583
(inactivate-input-method): Set
Kenichi Handa <handa@m17n.org>
parents:
91005
diff
changeset
|
1435 current-input-method-title nil) |
a4a3332d6583
(inactivate-input-method): Set
Kenichi Handa <handa@m17n.org>
parents:
91005
diff
changeset
|
1436 (funcall inactivate-current-input-method-function)) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1437 (unwind-protect |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1438 (run-hooks 'input-method-inactivate-hook) |
91016
a4a3332d6583
(inactivate-input-method): Set
Kenichi Handa <handa@m17n.org>
parents:
91005
diff
changeset
|
1439 (setq current-input-method nil) |
22854
dd7dcda2d47b
(activate-input-method): Update mode line.
Kenichi Handa <handa@m17n.org>
parents:
22815
diff
changeset
|
1440 (force-mode-line-update))))) |
17052 | 1441 |
57932
93792c00945b
(set-input-method, toggle-input-method):
Richard M. Stallman <rms@gnu.org>
parents:
56040
diff
changeset
|
1442 (defun set-input-method (input-method &optional interactive) |
22153 | 1443 "Select and activate input method INPUT-METHOD for the current buffer. |
36051
781f426b26c5
(set-input-method): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
35556
diff
changeset
|
1444 This also sets the default input method to the one you specify. |
36074
89518bb0ddaa
(set-input-method): Another doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
36051
diff
changeset
|
1445 If INPUT-METHOD is nil, this function turns off the input method, and |
89518bb0ddaa
(set-input-method): Another doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
36051
diff
changeset
|
1446 also causes you to be prompted for a name of an input method the next |
89518bb0ddaa
(set-input-method): Another doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
36051
diff
changeset
|
1447 time you invoke \\[toggle-input-method]. |
57932
93792c00945b
(set-input-method, toggle-input-method):
Richard M. Stallman <rms@gnu.org>
parents:
56040
diff
changeset
|
1448 When called interactively, the optional arg INTERACTIVE is non-nil, |
93792c00945b
(set-input-method, toggle-input-method):
Richard M. Stallman <rms@gnu.org>
parents:
56040
diff
changeset
|
1449 which marks the variable `default-input-method' as set for Custom buffers. |
36074
89518bb0ddaa
(set-input-method): Another doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
36051
diff
changeset
|
1450 |
36051
781f426b26c5
(set-input-method): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
35556
diff
changeset
|
1451 To deactivate the input method interactively, use \\[toggle-input-method]. |
77918
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
1452 To deactivate it programmatically, use `inactivate-input-method'." |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1453 (interactive |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1454 (let* ((default (or (car input-method-history) default-input-method))) |
19402 | 1455 (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
|
1456 (if default "Select input method (default %s): " "Select input method: ") |
57932
93792c00945b
(set-input-method, toggle-input-method):
Richard M. Stallman <rms@gnu.org>
parents:
56040
diff
changeset
|
1457 default t) |
93792c00945b
(set-input-method, toggle-input-method):
Richard M. Stallman <rms@gnu.org>
parents:
56040
diff
changeset
|
1458 t))) |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1459 (activate-input-method input-method) |
43252
bccb026d40e4
2002-02-12 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43182
diff
changeset
|
1460 (setq default-input-method input-method) |
57932
93792c00945b
(set-input-method, toggle-input-method):
Richard M. Stallman <rms@gnu.org>
parents:
56040
diff
changeset
|
1461 (when interactive |
43252
bccb026d40e4
2002-02-12 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43182
diff
changeset
|
1462 (customize-mark-as-set 'default-input-method)) |
bccb026d40e4
2002-02-12 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43182
diff
changeset
|
1463 default-input-method) |
17052 | 1464 |
79505
42b98dfc31f6
(toggle-input-method-active): New var.
Richard M. Stallman <rms@gnu.org>
parents:
79441
diff
changeset
|
1465 (defvar toggle-input-method-active nil |
42b98dfc31f6
(toggle-input-method-active): New var.
Richard M. Stallman <rms@gnu.org>
parents:
79441
diff
changeset
|
1466 "Non-nil inside `toggle-input-method'.") |
42b98dfc31f6
(toggle-input-method-active): New var.
Richard M. Stallman <rms@gnu.org>
parents:
79441
diff
changeset
|
1467 |
57932
93792c00945b
(set-input-method, toggle-input-method):
Richard M. Stallman <rms@gnu.org>
parents:
56040
diff
changeset
|
1468 (defun toggle-input-method (&optional arg interactive) |
36083
e9191d28ed86
(toggle-input-method): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
36074
diff
changeset
|
1469 "Enable or disable multilingual text input method for the current buffer. |
e9191d28ed86
(toggle-input-method): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
36074
diff
changeset
|
1470 Only one input method can be enabled at any time in a given buffer. |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1471 |
36083
e9191d28ed86
(toggle-input-method): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
36074
diff
changeset
|
1472 The normal action is to enable an input method if none was |
e9191d28ed86
(toggle-input-method): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
36074
diff
changeset
|
1473 enabled, and disable the current one otherwise. Which input method |
e9191d28ed86
(toggle-input-method): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
36074
diff
changeset
|
1474 to enable can be determined in various ways--either the one most |
e9191d28ed86
(toggle-input-method): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
36074
diff
changeset
|
1475 recently used, or the one specified by `default-input-method', or |
e9191d28ed86
(toggle-input-method): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
36074
diff
changeset
|
1476 as a last resort by reading the name of an input method in the |
e9191d28ed86
(toggle-input-method): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
36074
diff
changeset
|
1477 minibuffer. |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1478 |
36083
e9191d28ed86
(toggle-input-method): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
36074
diff
changeset
|
1479 With a prefix argument, read an input method name with the minibuffer |
e9191d28ed86
(toggle-input-method): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
36074
diff
changeset
|
1480 and enable that one. The default is the most recent input method specified |
57932
93792c00945b
(set-input-method, toggle-input-method):
Richard M. Stallman <rms@gnu.org>
parents:
56040
diff
changeset
|
1481 \(not including the currently active input method, if any). |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1482 |
57932
93792c00945b
(set-input-method, toggle-input-method):
Richard M. Stallman <rms@gnu.org>
parents:
56040
diff
changeset
|
1483 When called interactively, the optional arg INTERACTIVE is non-nil, |
93792c00945b
(set-input-method, toggle-input-method):
Richard M. Stallman <rms@gnu.org>
parents:
56040
diff
changeset
|
1484 which marks the variable `default-input-method' as set for Custom buffers." |
93792c00945b
(set-input-method, toggle-input-method):
Richard M. Stallman <rms@gnu.org>
parents:
56040
diff
changeset
|
1485 |
93792c00945b
(set-input-method, toggle-input-method):
Richard M. Stallman <rms@gnu.org>
parents:
56040
diff
changeset
|
1486 (interactive "P\np") |
79505
42b98dfc31f6
(toggle-input-method-active): New var.
Richard M. Stallman <rms@gnu.org>
parents:
79441
diff
changeset
|
1487 (if toggle-input-method-active |
42b98dfc31f6
(toggle-input-method-active): New var.
Richard M. Stallman <rms@gnu.org>
parents:
79441
diff
changeset
|
1488 (error "Recursive use of `toggle-input-method'")) |
21983
487cd71c058d
(toggle-input-method): Use a more
Richard M. Stallman <rms@gnu.org>
parents:
21882
diff
changeset
|
1489 (if (and current-input-method (not arg)) |
487cd71c058d
(toggle-input-method): Use a more
Richard M. Stallman <rms@gnu.org>
parents:
21882
diff
changeset
|
1490 (inactivate-input-method) |
79505
42b98dfc31f6
(toggle-input-method-active): New var.
Richard M. Stallman <rms@gnu.org>
parents:
79441
diff
changeset
|
1491 (let ((toggle-input-method-active t) |
42b98dfc31f6
(toggle-input-method-active): New var.
Richard M. Stallman <rms@gnu.org>
parents:
79441
diff
changeset
|
1492 (default (or (car input-method-history) default-input-method))) |
21983
487cd71c058d
(toggle-input-method): Use a more
Richard M. Stallman <rms@gnu.org>
parents:
21882
diff
changeset
|
1493 (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
|
1494 (> (length input-method-history) 1)) |
487cd71c058d
(toggle-input-method): Use a more
Richard M. Stallman <rms@gnu.org>
parents:
21882
diff
changeset
|
1495 (setq default (nth 1 input-method-history))) |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1496 (activate-input-method |
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1497 (if (or arg (not default)) |
21983
487cd71c058d
(toggle-input-method): Use a more
Richard M. Stallman <rms@gnu.org>
parents:
21882
diff
changeset
|
1498 (progn |
487cd71c058d
(toggle-input-method): Use a more
Richard M. Stallman <rms@gnu.org>
parents:
21882
diff
changeset
|
1499 (read-input-method-name |
487cd71c058d
(toggle-input-method): Use a more
Richard M. Stallman <rms@gnu.org>
parents:
21882
diff
changeset
|
1500 (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
|
1501 default t)) |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1502 default)) |
43252
bccb026d40e4
2002-02-12 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43182
diff
changeset
|
1503 (unless default-input-method |
46674 | 1504 (prog1 |
43252
bccb026d40e4
2002-02-12 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43182
diff
changeset
|
1505 (setq default-input-method current-input-method) |
57932
93792c00945b
(set-input-method, toggle-input-method):
Richard M. Stallman <rms@gnu.org>
parents:
56040
diff
changeset
|
1506 (when interactive |
43252
bccb026d40e4
2002-02-12 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43182
diff
changeset
|
1507 (customize-mark-as-set 'default-input-method))))))) |
17052 | 1508 |
95622
b4f1005a6470
Remove unnecessary eval-when-compiles.
Glenn Morris <rgm@gnu.org>
parents:
94953
diff
changeset
|
1509 (autoload 'help-buffer "help-mode") |
88654
ce18173db20e
(describe-language-environment): Use
Dave Love <fx@gnu.org>
parents:
88649
diff
changeset
|
1510 |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1511 (defun describe-input-method (input-method) |
22153 | 1512 "Describe input method INPUT-METHOD." |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1513 (interactive |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1514 (list (read-input-method-name |
65680
ed770a0a7846
2005-09-24 Emilio C. Lopes <eclig@gmx.net>
Romain Francoise <romain@orebokech.com>
parents:
65652
diff
changeset
|
1515 "Describe input method (default current choice): "))) |
19653
431753f747ea
(describe-input-method): Fix previous
Kenichi Handa <handa@m17n.org>
parents:
19649
diff
changeset
|
1516 (if (and input-method (symbolp input-method)) |
19649
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
1517 (setq input-method (symbol-name input-method))) |
43310 | 1518 (help-setup-xref (list #'describe-input-method |
1519 (or input-method current-input-method)) | |
43078
61ad8f29fefa
(describe-input-method): Call help-setup-xref here.
Richard M. Stallman <rms@gnu.org>
parents:
42734
diff
changeset
|
1520 (interactive-p)) |
61ad8f29fefa
(describe-input-method): Call help-setup-xref here.
Richard M. Stallman <rms@gnu.org>
parents:
42734
diff
changeset
|
1521 |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1522 (if (null input-method) |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1523 (describe-current-input-method) |
31245
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
1524 (let ((current current-input-method)) |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
1525 (condition-case nil |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
1526 (progn |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
1527 (save-excursion |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
1528 (activate-input-method input-method) |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
1529 (describe-current-input-method)) |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
1530 (activate-input-method current)) |
46674 | 1531 (error |
31245
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
1532 (activate-input-method current) |
41126
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
1533 (help-setup-xref (list #'describe-input-method input-method) |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
1534 (interactive-p)) |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
1535 (with-output-to-temp-buffer (help-buffer) |
31245
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
1536 (let ((elt (assoc input-method input-method-alist))) |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
1537 (princ (format |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
1538 "Input method: %s (`%s' in mode line) for %s\n %s\n" |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
1539 input-method (nth 3 elt) (nth 1 elt) (nth 4 elt)))))))))) |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1540 |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1541 (defun describe-current-input-method () |
43078
61ad8f29fefa
(describe-input-method): Call help-setup-xref here.
Richard M. Stallman <rms@gnu.org>
parents:
42734
diff
changeset
|
1542 "Describe the input method currently in use. |
61ad8f29fefa
(describe-input-method): Call help-setup-xref here.
Richard M. Stallman <rms@gnu.org>
parents:
42734
diff
changeset
|
1543 This is a subroutine for `describe-input-method'." |
17052 | 1544 (if current-input-method |
1545 (if (and (symbolp describe-current-input-method-function) | |
1546 (fboundp describe-current-input-method-function)) | |
1547 (funcall describe-current-input-method-function) | |
1548 (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
|
1549 current-input-method) |
17052 | 1550 (ding)) |
18301
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1551 (error "No input method is activated now"))) |
17052 | 1552 |
20116
8c1995cc7702
(read-multilingual-string): Use
Kenichi Handa <handa@m17n.org>
parents:
20091
diff
changeset
|
1553 (defun read-multilingual-string (prompt &optional initial-input input-method) |
17052 | 1554 "Read a multilingual string from minibuffer, prompting with string PROMPT. |
1555 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
|
1556 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
|
1557 initially. |
a4da36c7bb08
Define describe-coding-system instead of
Kenichi Handa <handa@m17n.org>
parents:
18217
diff
changeset
|
1558 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
|
1559 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
|
1560 or a string." |
18712
7366898bee9e
(read-multilingual-string): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
18634
diff
changeset
|
1561 (setq input-method |
7366898bee9e
(read-multilingual-string): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
18634
diff
changeset
|
1562 (or input-method |
20116
8c1995cc7702
(read-multilingual-string): Use
Kenichi Handa <handa@m17n.org>
parents:
20091
diff
changeset
|
1563 current-input-method |
18712
7366898bee9e
(read-multilingual-string): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
18634
diff
changeset
|
1564 default-input-method |
7366898bee9e
(read-multilingual-string): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
18634
diff
changeset
|
1565 (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
|
1566 (if (and input-method (symbolp input-method)) |
19649
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
1567 (setq input-method (symbol-name input-method))) |
23049
82a27d5b4582
(activate-input-method): Handle the
Kenichi Handa <handa@m17n.org>
parents:
23044
diff
changeset
|
1568 (let ((prev-input-method current-input-method)) |
82a27d5b4582
(activate-input-method): Handle the
Kenichi Handa <handa@m17n.org>
parents:
23044
diff
changeset
|
1569 (unwind-protect |
82a27d5b4582
(activate-input-method): Handle the
Kenichi Handa <handa@m17n.org>
parents:
23044
diff
changeset
|
1570 (progn |
82a27d5b4582
(activate-input-method): Handle the
Kenichi Handa <handa@m17n.org>
parents:
23044
diff
changeset
|
1571 (activate-input-method input-method) |
82a27d5b4582
(activate-input-method): Handle the
Kenichi Handa <handa@m17n.org>
parents:
23044
diff
changeset
|
1572 (read-string prompt initial-input nil nil t)) |
82a27d5b4582
(activate-input-method): Handle the
Kenichi Handa <handa@m17n.org>
parents:
23044
diff
changeset
|
1573 (activate-input-method prev-input-method)))) |
17052 | 1574 |
1575 ;; Variables to control behavior of input methods. All input methods | |
1576 ;; should react to these variables. | |
1577 | |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1578 (defcustom input-method-verbose-flag 'default |
90861
4f7df84e666c
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
90776
diff
changeset
|
1579 "A flag to control extra guidance given by input methods. |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1580 The value should be nil, t, `complex-only', or `default'. |
17052 | 1581 |
19917
834c629f9220
(select-input-method): No error if enable-multibyte-characters is nil.
Richard M. Stallman <rms@gnu.org>
parents:
19848
diff
changeset
|
1582 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
|
1583 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
|
1584 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
|
1585 |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1586 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
|
1587 nil, extra guidance is always suppressed. |
19848
68c5c0b3ed0d
(input-method-verbose-flag):
Kenichi Handa <handa@m17n.org>
parents:
19798
diff
changeset
|
1588 |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1589 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
|
1590 `chinese-py' and `japanese' give extra guidance. |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1591 |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1592 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
|
1593 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
|
1594 the minibuffer. |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1595 |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1596 See also the variable `input-method-highlight-flag'." |
46674 | 1597 :type '(choice (const :tag "Always" t) (const :tag "Never" nil) |
1598 (const complex-only) (const default)) | |
19402 | 1599 :group 'mule) |
1600 | |
1601 (defcustom input-method-highlight-flag t | |
90861
4f7df84e666c
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
90776
diff
changeset
|
1602 "If this flag is non-nil, input methods highlight partially-entered text. |
19402 | 1603 For instance, while you are in the middle of a Quail input method sequence, |
1604 the text inserted so far is temporarily underlined. | |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1605 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
|
1606 See also the variable `input-method-verbose-flag'." |
19402 | 1607 :type 'boolean |
1608 :group 'mule) | |
17052 | 1609 |
89092
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1610 (defcustom input-method-activate-hook nil |
19555
df2996f7fdc3
(inactivate-current-input-method-function): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
19424
diff
changeset
|
1611 "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
|
1612 |
df2996f7fdc3
(inactivate-current-input-method-function): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
19424
diff
changeset
|
1613 The variable `current-input-method' keeps the input method name |
89092
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1614 just activated." |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1615 :type 'hook |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1616 :group 'mule) |
17052 | 1617 |
89092
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1618 (defcustom input-method-inactivate-hook nil |
19555
df2996f7fdc3
(inactivate-current-input-method-function): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
19424
diff
changeset
|
1619 "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
|
1620 |
df2996f7fdc3
(inactivate-current-input-method-function): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
19424
diff
changeset
|
1621 The variable `current-input-method' still keeps the input method name |
89092
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1622 just inactivated." |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1623 :type 'hook |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1624 :group 'mule) |
17052 | 1625 |
89092
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1626 (defcustom input-method-after-insert-chunk-hook nil |
89483 | 1627 "Normal hook run just after an input method insert some chunk of text." |
89092
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1628 :type 'hook |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1629 :group 'mule) |
17052 | 1630 |
22918
776bc4293c87
(input-method-exit-on-first-char):
Kenichi Handa <handa@m17n.org>
parents:
22899
diff
changeset
|
1631 (defvar input-method-exit-on-first-char nil |
36261 | 1632 "This flag controls when an input method returns. |
22918
776bc4293c87
(input-method-exit-on-first-char):
Kenichi Handa <handa@m17n.org>
parents:
22899
diff
changeset
|
1633 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
|
1634 that it may find a different translation if a user types another key. |
77918
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
1635 But, if this flag is non-nil, the input method returns as soon as |
22948
e259bed9247e
(input-method-exit-on-first-char)
Richard M. Stallman <rms@gnu.org>
parents:
22918
diff
changeset
|
1636 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
|
1637 |
89092
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1638 (defcustom input-method-use-echo-area nil |
22918
776bc4293c87
(input-method-exit-on-first-char):
Kenichi Handa <handa@m17n.org>
parents:
22899
diff
changeset
|
1639 "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
|
1640 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
|
1641 or candidate translations corresponding to the sequence, |
e259bed9247e
(input-method-exit-on-first-char)
Richard M. Stallman <rms@gnu.org>
parents:
22918
diff
changeset
|
1642 at point in the current buffer. |
89092
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1643 But, if this flag is non-nil, it displays them in echo area instead." |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1644 :type 'hook |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1645 :group 'mule) |
22918
776bc4293c87
(input-method-exit-on-first-char):
Kenichi Handa <handa@m17n.org>
parents:
22899
diff
changeset
|
1646 |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1647 (defvar input-method-exit-on-invalid-key nil |
63269
f5860b9ada9c
(select-safe-coding-system-accept-default-p, input-method-exit-on-invalid-key):
Juanma Barranquero <lekktu@gmail.com>
parents:
62274
diff
changeset
|
1648 "This flag controls the behavior of an input method on invalid key input. |
19405
7ef4af7505f2
(previous-input-method): This
Kenichi Handa <handa@m17n.org>
parents:
19402
diff
changeset
|
1649 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
|
1650 handled by the input method, the key is handled by turning off the |
23196 | 1651 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
|
1652 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
|
1653 |
17052 | 1654 |
89092
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1655 (defcustom set-language-environment-hook nil |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1656 "Normal hook run after some language environment is set. |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1657 |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1658 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
|
1659 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
|
1660 another function in `exit-language-environment-hook' (which see) to |
89092
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1661 cancel the effect." |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1662 :type 'hook |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1663 :group 'mule) |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1664 |
89092
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1665 (defcustom exit-language-environment-hook nil |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1666 "Normal hook run after exiting from some language environment. |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1667 When this hook is run, the variable `current-language-environment' |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1668 is still bound to the language environment being exited. |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1669 |
23196 | 1670 This hook is mainly used for canceling the effect of |
90861
4f7df84e666c
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
90776
diff
changeset
|
1671 `set-language-environment-hook' (which see)." |
89092
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1672 :type 'hook |
50888ee7880f
(language-info-custom-alist): New.
Dave Love <fx@gnu.org>
parents:
88981
diff
changeset
|
1673 :group 'mule) |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1674 |
23419
c251dd6b289e
(setup-specified-language-environment): Add apropos-inhibit property.
Richard M. Stallman <rms@gnu.org>
parents:
23261
diff
changeset
|
1675 (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
|
1676 |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1677 (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
|
1678 "Switch to a specified language environment." |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1679 (interactive) |
18634
8b309d07a95e
(set-language-environment): Do the real work here.
Richard M. Stallman <rms@gnu.org>
parents:
18633
diff
changeset
|
1680 (let (language-name) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1681 (if (and (symbolp last-command-event) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1682 (or (not (eq last-command-event 'Default)) |
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1683 (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
|
1684 (setq language-name (symbol-name last-command-event))) |
43252
bccb026d40e4
2002-02-12 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43182
diff
changeset
|
1685 (prog1 |
bccb026d40e4
2002-02-12 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43182
diff
changeset
|
1686 (set-language-environment language-name) |
bccb026d40e4
2002-02-12 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
43182
diff
changeset
|
1687 (customize-mark-as-set 'current-language-environment)) |
17991
65407fdc4a33
Delete defining "i" in mule-keymap.
Kenichi Handa <handa@m17n.org>
parents:
17840
diff
changeset
|
1688 (error "Bogus calling sequence")))) |
17052 | 1689 |
21229
38b621cd9169
(set-language-environment): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
21042
diff
changeset
|
1690 (defcustom current-language-environment "English" |
24204 | 1691 "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
|
1692 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
|
1693 to using the function `set-language-environment'." |
24204 | 1694 :link '(custom-manual "(emacs)Language Environments") |
23165
0e28574df9af
(current-language-environment): Fix setter function.
Dave Love <fx@gnu.org>
parents:
23087
diff
changeset
|
1695 :set (lambda (symbol value) (set-language-environment value)) |
24204 | 1696 :get (lambda (x) |
55047
428f891f9e31
Use assoc-string, not assoc-ignore-case.
Richard M. Stallman <rms@gnu.org>
parents:
54507
diff
changeset
|
1697 (or (car-safe (assoc-string |
24204 | 1698 (if (symbolp current-language-environment) |
1699 (symbol-name current-language-environment) | |
1700 current-language-environment) | |
55047
428f891f9e31
Use assoc-string, not assoc-ignore-case.
Richard M. Stallman <rms@gnu.org>
parents:
54507
diff
changeset
|
1701 language-info-alist t)) |
24204 | 1702 "English")) |
48836
81333325d8f7
(current-language-environment): Set type according to
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48813
diff
changeset
|
1703 ;; custom type will be updated with `set-language-info'. |
81333325d8f7
(current-language-environment): Set type according to
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48813
diff
changeset
|
1704 :type (if language-info-alist |
81333325d8f7
(current-language-environment): Set type according to
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48813
diff
changeset
|
1705 (cons 'choice (mapcar |
81333325d8f7
(current-language-environment): Set type according to
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48813
diff
changeset
|
1706 (lambda (lang) |
49435
f9953109e75c
(set-language-info, current-language-environment):
Markus Rost <rost@math.uni-bielefeld.de>
parents:
49048
diff
changeset
|
1707 (list 'const lang)) |
f9953109e75c
(set-language-info, current-language-environment):
Markus Rost <rost@math.uni-bielefeld.de>
parents:
49048
diff
changeset
|
1708 (sort (mapcar 'car language-info-alist) 'string<))) |
48836
81333325d8f7
(current-language-environment): Set type according to
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48813
diff
changeset
|
1709 'string) |
21229
38b621cd9169
(set-language-environment): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
21042
diff
changeset
|
1710 :initialize 'custom-initialize-default |
48231
7b77f5edeace
(current-language-environment): Fix
Dave Love <fx@gnu.org>
parents:
48073
diff
changeset
|
1711 :group 'mule) |
18634
8b309d07a95e
(set-language-environment): Do the real work here.
Richard M. Stallman <rms@gnu.org>
parents:
18633
diff
changeset
|
1712 |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1713 (defun reset-language-environment () |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1714 "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
|
1715 |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1716 The default status is as follows: |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1717 |
46674 | 1718 The default value of `buffer-file-coding-system' is nil. |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1719 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
|
1720 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
|
1721 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
|
1722 |
88410
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1723 The order of priorities of coding systems are as follows: |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1724 utf-8 |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1725 iso-2022-7bit |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1726 iso-latin-1 |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1727 iso-2022-7bit-lock |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1728 iso-2022-8bit-ss2 |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1729 emacs-mule |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1730 raw-text" |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1731 (interactive) |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1732 ;; 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
|
1733 ;; 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
|
1734 |
88410
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1735 (set-coding-system-priority |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1736 'utf-8 |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1737 'iso-2022-7bit |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1738 'iso-latin-1 |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1739 'iso-2022-7bit-lock |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1740 'iso-2022-8bit-ss2 |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1741 'emacs-mule |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1742 'raw-text) |
23261
9346958bb3d5
(reset-language-environment): Call
Kenichi Handa <handa@m17n.org>
parents:
23196
diff
changeset
|
1743 |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1744 (set-default-coding-systems nil) |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
1745 (setq default-sendmail-coding-system 'iso-latin-1) |
59906
9c28fead9bf2
(set-locale-environment): Set file-name coding system to utf-8 on Darwin.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
59743
diff
changeset
|
1746 ;; On Darwin systems, this should be utf-8, but when this file is loaded |
9c28fead9bf2
(set-locale-environment): Set file-name coding system to utf-8 on Darwin.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
59743
diff
changeset
|
1747 ;; utf-8 is not yet defined, so we set it in set-locale-environment instead. |
50116
f2c182eeeda2
(reset-language-environment): Set
Kenichi Handa <handa@m17n.org>
parents:
49796
diff
changeset
|
1748 (setq default-file-name-coding-system 'iso-latin-1) |
44425
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
1749 ;; Preserve eol-type from existing default-process-coding-systems. |
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
1750 ;; On non-unix-like systems in particular, these may have been set |
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
1751 ;; carefully by the user, or by the startup code, to deal with the |
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
1752 ;; users shell appropriately, so should not be altered by changing |
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
1753 ;; language environment. |
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
1754 (let ((output-coding |
44440
db660532bd23
(reset-language-environment): Handle
Jason Rumney <jasonr@gnu.org>
parents:
44425
diff
changeset
|
1755 ;; When bootstrapping, coding-systems are not defined yet, so |
db660532bd23
(reset-language-environment): Handle
Jason Rumney <jasonr@gnu.org>
parents:
44425
diff
changeset
|
1756 ;; we need to catch the error from check-coding-system. |
46674 | 1757 (condition-case nil |
44440
db660532bd23
(reset-language-environment): Handle
Jason Rumney <jasonr@gnu.org>
parents:
44425
diff
changeset
|
1758 (coding-system-change-text-conversion |
db660532bd23
(reset-language-environment): Handle
Jason Rumney <jasonr@gnu.org>
parents:
44425
diff
changeset
|
1759 (car default-process-coding-system) 'undecided) |
db660532bd23
(reset-language-environment): Handle
Jason Rumney <jasonr@gnu.org>
parents:
44425
diff
changeset
|
1760 (coding-system-error 'undecided))) |
44425
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
1761 (input-coding |
44440
db660532bd23
(reset-language-environment): Handle
Jason Rumney <jasonr@gnu.org>
parents:
44425
diff
changeset
|
1762 (condition-case nil |
db660532bd23
(reset-language-environment): Handle
Jason Rumney <jasonr@gnu.org>
parents:
44425
diff
changeset
|
1763 (coding-system-change-text-conversion |
db660532bd23
(reset-language-environment): Handle
Jason Rumney <jasonr@gnu.org>
parents:
44425
diff
changeset
|
1764 (cdr default-process-coding-system) 'iso-latin-1) |
db660532bd23
(reset-language-environment): Handle
Jason Rumney <jasonr@gnu.org>
parents:
44425
diff
changeset
|
1765 (coding-system-error 'iso-latin-1)))) |
44425
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
1766 (setq default-process-coding-system |
86eccd269d36
(set-default-coding-systems, reset-language-environment): Preserve
Jason Rumney <jasonr@gnu.org>
parents:
44321
diff
changeset
|
1767 (cons output-coding input-coding))) |
30492
822b51279bd3
(find-coding-systems-region-subset-p): This function deleted.
Kenichi Handa <handa@m17n.org>
parents:
30268
diff
changeset
|
1768 |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1769 ;; 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
|
1770 ;; The terminal still supports the same coding system |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1771 ;; that it supported a minute ago. |
44321
abf6fc89e7d7
(standard-keyboard-coding-systems): Add koi8-u and koi8-r.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43310
diff
changeset
|
1772 ;; (set-terminal-coding-system-internal nil) |
abf6fc89e7d7
(standard-keyboard-coding-systems): Add koi8-u and koi8-r.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43310
diff
changeset
|
1773 ;; (set-keyboard-coding-system-internal nil) |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1774 |
92764
79b4e32b9b79
(reset-language-environment, set-language-environment-nonascii-translation):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91918
diff
changeset
|
1775 ;; Back in Emacs-20, it was necessary to provide some fallback implicit |
79b4e32b9b79
(reset-language-environment, set-language-environment-nonascii-translation):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91918
diff
changeset
|
1776 ;; conversion, because almost no packages handled coding-system issues. |
79b4e32b9b79
(reset-language-environment, set-language-environment-nonascii-translation):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91918
diff
changeset
|
1777 ;; Nowadays it'd just paper over bugs. |
79b4e32b9b79
(reset-language-environment, set-language-environment-nonascii-translation):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91918
diff
changeset
|
1778 ;; (set-unibyte-charset 'iso-8859-1) |
79b4e32b9b79
(reset-language-environment, set-language-environment-nonascii-translation):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91918
diff
changeset
|
1779 ) |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1780 |
31138
5dab940bf298
(reset-language-environment): Set default-process-coding-system to
Kenichi Handa <handa@m17n.org>
parents:
30566
diff
changeset
|
1781 (reset-language-environment) |
5dab940bf298
(reset-language-environment): Set default-process-coding-system to
Kenichi Handa <handa@m17n.org>
parents:
30566
diff
changeset
|
1782 |
83300
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
1783 (defun set-display-table-and-terminal-coding-system (language-name &optional coding-system display) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1784 "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
|
1785 (let ((coding (get-language-info language-name 'unibyte-display))) |
67358
9fa16adb2f52
(set-display-table-and-terminal-coding-system): If the coding
Kenichi Handa <handa@m17n.org>
parents:
67320
diff
changeset
|
1786 (if (and coding |
9fa16adb2f52
(set-display-table-and-terminal-coding-system): If the coding
Kenichi Handa <handa@m17n.org>
parents:
67320
diff
changeset
|
1787 (or (not coding-system) |
9fa16adb2f52
(set-display-table-and-terminal-coding-system): If the coding
Kenichi Handa <handa@m17n.org>
parents:
67320
diff
changeset
|
1788 (coding-system-equal coding coding-system))) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1789 (standard-display-european-internal) |
51622
c85b00553f5e
Add a comment in set-display-table-and-terminal-coding-system
Eli Zaretskii <eliz@gnu.org>
parents:
51134
diff
changeset
|
1790 ;; The following 2 lines undo the 8-bit display that we set up |
c85b00553f5e
Add a comment in set-display-table-and-terminal-coding-system
Eli Zaretskii <eliz@gnu.org>
parents:
51134
diff
changeset
|
1791 ;; in standard-display-european-internal, which see. This is in |
c85b00553f5e
Add a comment in set-display-table-and-terminal-coding-system
Eli Zaretskii <eliz@gnu.org>
parents:
51134
diff
changeset
|
1792 ;; case the user has used standard-display-european earlier in |
c85b00553f5e
Add a comment in set-display-table-and-terminal-coding-system
Eli Zaretskii <eliz@gnu.org>
parents:
51134
diff
changeset
|
1793 ;; this session. (The MS-DOS port doesn't use that setup, so it |
c85b00553f5e
Add a comment in set-display-table-and-terminal-coding-system
Eli Zaretskii <eliz@gnu.org>
parents:
51134
diff
changeset
|
1794 ;; doesn't need to undo it.) |
51815
81538ceba107
2003-07-08 Kim F. Storm <storm@cua.dk>
John Paul Wallington <jpw@pobox.com>
parents:
51800
diff
changeset
|
1795 (when standard-display-table |
81538ceba107
2003-07-08 Kim F. Storm <storm@cua.dk>
John Paul Wallington <jpw@pobox.com>
parents:
51800
diff
changeset
|
1796 (dotimes (i 128) |
51849
48ac694d29fa
(set-display-table-and-terminal-coding-system):
Richard M. Stallman <rms@gnu.org>
parents:
51815
diff
changeset
|
1797 (aset standard-display-table (+ i 128) nil)))) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1798 (or (eq window-system 'pc) |
83300
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
1799 (set-terminal-coding-system (or coding-system coding) display)))) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
1800 |
18066
eecd891e2b63
(set-language-environment): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
17991
diff
changeset
|
1801 (defun set-language-environment (language-name) |
18068
317f57f07b14
Doc fix for previous change.
Richard M. Stallman <rms@gnu.org>
parents:
18066
diff
changeset
|
1802 "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
|
1803 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
|
1804 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
|
1805 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
|
1806 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
|
1807 (interactive (list (read-language-name |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1808 nil |
65680
ed770a0a7846
2005-09-24 Emilio C. Lopes <eclig@gmx.net>
Romain Francoise <romain@orebokech.com>
parents:
65652
diff
changeset
|
1809 "Set language environment (default English): "))) |
19649
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
1810 (if language-name |
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
1811 (if (symbolp language-name) |
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
1812 (setq language-name (symbol-name language-name))) |
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
1813 (setq language-name "English")) |
55047
428f891f9e31
Use assoc-string, not assoc-ignore-case.
Richard M. Stallman <rms@gnu.org>
parents:
54507
diff
changeset
|
1814 (let ((slot (assoc-string language-name language-info-alist t))) |
51865
4510b8eaa84a
(set-language-environment): Set
Kenichi Handa <handa@m17n.org>
parents:
51849
diff
changeset
|
1815 (unless slot |
18634
8b309d07a95e
(set-language-environment): Do the real work here.
Richard M. Stallman <rms@gnu.org>
parents:
18633
diff
changeset
|
1816 (error "Language environment not defined: %S" language-name)) |
51865
4510b8eaa84a
(set-language-environment): Set
Kenichi Handa <handa@m17n.org>
parents:
51849
diff
changeset
|
1817 (setq language-name (car slot))) |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1818 (if current-language-environment |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1819 (let ((func (get-language-info current-language-environment |
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1820 'exit-function))) |
20231
7f0ea4977b32
(set-language-environment): Run
Kenichi Handa <handa@m17n.org>
parents:
20165
diff
changeset
|
1821 (run-hooks 'exit-language-environment-hook) |
41126
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
1822 (if (functionp func) (funcall func)))) |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1823 |
71606
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1824 (reset-language-environment) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1825 ;; The features might set up coding systems. |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1826 (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
|
1827 (while required-features |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1828 (require (car required-features)) |
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1829 (setq required-features (cdr required-features)))) |
53355
fea694690fc7
(reset-language-environment): Call
Kenichi Handa <handa@m17n.org>
parents:
53262
diff
changeset
|
1830 |
71606
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1831 (setq current-language-environment language-name) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1832 |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1833 (set-language-environment-coding-systems language-name) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1834 (set-language-environment-input-method language-name) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1835 (set-language-environment-nonascii-translation language-name) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1836 (set-language-environment-charset language-name) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1837 ;; Unibyte setups if necessary. |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1838 (unless default-enable-multibyte-characters |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1839 (set-language-environment-unibyte language-name)) |
53355
fea694690fc7
(reset-language-environment): Call
Kenichi Handa <handa@m17n.org>
parents:
53262
diff
changeset
|
1840 |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1841 (let ((func (get-language-info language-name 'setup-function))) |
41126
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
1842 (if (functionp func) |
22986
b5c383369b40
(language-info-alist): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
22948
diff
changeset
|
1843 (funcall func))) |
71606
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1844 |
94953
80d92e1da986
(set-language-environment): Set current-iso639-language
Kenichi Handa <handa@m17n.org>
parents:
94664
diff
changeset
|
1845 (setq current-iso639-language |
80d92e1da986
(set-language-environment): Set current-iso639-language
Kenichi Handa <handa@m17n.org>
parents:
94664
diff
changeset
|
1846 (get-language-info language-name 'iso639-language)) |
80d92e1da986
(set-language-environment): Set current-iso639-language
Kenichi Handa <handa@m17n.org>
parents:
94664
diff
changeset
|
1847 |
20165
2d0abf12009b
(set-default-coding-systems):
Kenichi Handa <handa@m17n.org>
parents:
20116
diff
changeset
|
1848 (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
|
1849 (force-mode-line-update t)) |
17052 | 1850 |
89105 | 1851 (define-widget 'charset 'symbol |
89232 | 1852 "An Emacs charset." |
1853 :tag "Charset" | |
89105 | 1854 :complete-function (lambda () |
1855 (interactive) | |
1856 (lisp-complete-symbol 'charsetp)) | |
1857 :completion-ignore-case t | |
1858 :value 'ascii | |
1859 :validate (lambda (widget) | |
1860 (unless (charsetp (widget-value widget)) | |
1861 (widget-put widget :error (format "Invalid charset: %S" | |
1862 (widget-value widget))) | |
1863 widget)) | |
1864 :prompt-history 'charset-history) | |
1865 | |
1866 (defcustom language-info-custom-alist nil | |
1867 "Customizations of language environment parameters. | |
1868 Value is an alist with elements like those of `language-info-alist'. | |
1869 These are used to set values in `language-info-alist' which replace | |
1870 the defaults. A typical use is replacing the default input method for | |
1871 the environment. Use \\[describe-language-environment] to find the environment's settings. | |
1872 | |
1873 This option is intended for use at startup. Removing items doesn't | |
1874 remove them from the language info until you next restart Emacs. | |
1875 | |
1876 Setting this variable directly does not take effect. See | |
1877 `set-language-info-alist' for use in programs." | |
1878 :group 'mule | |
90104
a01e7a9f1659
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-14
Miles Bader <miles@gnu.org>
parents:
90100
diff
changeset
|
1879 :version "23.1" |
89105 | 1880 :set (lambda (s v) |
1881 (custom-set-default s v) | |
1882 ;; Can't do this before language environments are set up. | |
1883 (when v | |
1884 ;; modify language-info-alist | |
1885 (dolist (elt v) | |
1886 (set-language-info-alist (car elt) (cdr elt))) | |
1887 ;; re-set the environment in case its parameters changed | |
1888 (set-language-environment current-language-environment))) | |
1889 :type `(alist | |
1890 :key-type (string :tag "Language environment" | |
1891 :completion-ignore-case t | |
1892 :complete-function widget-string-complete | |
1893 :completion-alist language-info-alist) | |
1894 :value-type | |
1895 (alist :key-type symbol | |
1896 :options ((documentation string) | |
1897 (charset (repeat charset)) | |
1898 (sample-text string) | |
1899 (setup-function function) | |
1900 (exit-function function) | |
1901 (coding-system (repeat coding-system)) | |
1902 (coding-priority (repeat coding-system)) | |
1903 (nonascii-translation charset) | |
1904 (input-method | |
1905 (string | |
1906 :completion-ignore-case t | |
1907 :complete-function widget-string-complete | |
1908 :completion-alist input-method-alist | |
1909 :prompt-history input-method-history)) | |
1910 (features (repeat symbol)) | |
1911 (unibyte-display coding-system))))) | |
1912 | |
95841
b4e36ff621b3
Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
95622
diff
changeset
|
1913 (declare-function x-server-vendor "xfns.c" (&optional terminal)) |
b4e36ff621b3
Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
95622
diff
changeset
|
1914 (declare-function x-server-version "xfns.c" (&optional terminal)) |
b4e36ff621b3
Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
95622
diff
changeset
|
1915 |
21856
68e39b75b862
(set-language-environment): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
21770
diff
changeset
|
1916 (defun standard-display-european-internal () |
68e39b75b862
(set-language-environment): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
21770
diff
changeset
|
1917 ;; 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
|
1918 (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
|
1919 ;; 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
|
1920 ;; 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
|
1921 ;; different there. |
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1922 (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
|
1923 (progn |
59743
baaed9bd0e12
(standard-display-european-internal): Don't fiddle with latin-1 non-break space
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58148
diff
changeset
|
1924 ;; Most X fonts used to do the wrong thing for latin-1 code 160. |
baaed9bd0e12
(standard-display-european-internal): Don't fiddle with latin-1 non-break space
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58148
diff
changeset
|
1925 (unless (and (eq window-system 'x) |
baaed9bd0e12
(standard-display-european-internal): Don't fiddle with latin-1 non-break space
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58148
diff
changeset
|
1926 ;; XFree86 4 has fixed the fonts. |
baaed9bd0e12
(standard-display-european-internal): Don't fiddle with latin-1 non-break space
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58148
diff
changeset
|
1927 (string= "The XFree86 Project, Inc" (x-server-vendor)) |
baaed9bd0e12
(standard-display-european-internal): Don't fiddle with latin-1 non-break space
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58148
diff
changeset
|
1928 (> (aref (number-to-string (nth 2 (x-server-version))) 0) |
baaed9bd0e12
(standard-display-european-internal): Don't fiddle with latin-1 non-break space
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58148
diff
changeset
|
1929 ?3)) |
baaed9bd0e12
(standard-display-european-internal): Don't fiddle with latin-1 non-break space
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58148
diff
changeset
|
1930 ;; Make non-line-break space display as a plain space. |
baaed9bd0e12
(standard-display-european-internal): Don't fiddle with latin-1 non-break space
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58148
diff
changeset
|
1931 (aset standard-display-table 160 [32])) |
35248
058fe91d9676
(standard-display-european-internal):
Dave Love <fx@gnu.org>
parents:
35168
diff
changeset
|
1932 ;; Most Windows programs send out apostrophes as \222. Most X fonts |
23916
ccc00be328a1
(set-language-environment): On MS-DOS
Eli Zaretskii <eliz@gnu.org>
parents:
23889
diff
changeset
|
1933 ;; don't contain a character at that position. Map it to the ASCII |
41126
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
1934 ;; apostrophe. [This is actually RIGHT SINGLE QUOTATION MARK, |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
1935 ;; U+2019, normally from the windows-1252 character set. XFree 4 |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
1936 ;; fonts probably have the appropriate glyph at this position, |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
1937 ;; so they could use standard-display-8bit. It's better to use a |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
1938 ;; proper windows-1252 coding system. --fx] |
59743
baaed9bd0e12
(standard-display-european-internal): Don't fiddle with latin-1 non-break space
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58148
diff
changeset
|
1939 (aset standard-display-table 146 [39])))) |
21856
68e39b75b862
(set-language-environment): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
21770
diff
changeset
|
1940 |
71606
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1941 (defun set-language-environment-coding-systems (language-name) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1942 "Do various coding system setups for language environment LANGUAGE-NAME." |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1943 (let* ((priority (get-language-info language-name 'coding-priority)) |
71606
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1944 (default-coding (car priority)) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1945 (eol-type (coding-system-eol-type default-buffer-file-coding-system))) |
88410
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1946 (when priority |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1947 (set-default-coding-systems |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1948 (if (memq eol-type '(0 1 2 unix dos mac)) |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1949 (coding-system-change-eol-conversion default-coding eol-type) |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1950 default-coding)) |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1951 (setq default-sendmail-coding-system default-coding) |
39de3b4b6fc7
Don't use coding category. Call
Kenichi Handa <handa@m17n.org>
parents:
43310
diff
changeset
|
1952 (apply 'set-coding-system-priority priority)))) |
20733
079907c59fb2
(set-language-info): Doc-string
Kenichi Handa <handa@m17n.org>
parents:
20485
diff
changeset
|
1953 |
71606
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1954 (defun set-language-environment-input-method (language-name) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1955 "Do various input method setups for language environment LANGUAGE-NAME." |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1956 (let ((input-method (get-language-info language-name 'input-method))) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1957 (when input-method |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1958 (setq default-input-method input-method) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1959 (if input-method-history |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1960 (setq input-method-history |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1961 (cons input-method |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1962 (delete input-method input-method-history))))))) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1963 |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1964 (defun set-language-environment-nonascii-translation (language-name) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1965 "Do unibyte/multibyte translation setup for language environment LANGUAGE-NAME." |
90521
b81a8a5635a8
(set-language-info): Fix synching
Kenichi Handa <handa@m17n.org>
parents:
90519
diff
changeset
|
1966 ;; Note: For DOS, we assumed that the charset cpXXX is already |
b81a8a5635a8
(set-language-info): Fix synching
Kenichi Handa <handa@m17n.org>
parents:
90519
diff
changeset
|
1967 ;; defined. |
b81a8a5635a8
(set-language-info): Fix synching
Kenichi Handa <handa@m17n.org>
parents:
90519
diff
changeset
|
1968 (let ((nonascii (get-language-info language-name 'nonascii-translation))) |
b81a8a5635a8
(set-language-info): Fix synching
Kenichi Handa <handa@m17n.org>
parents:
90519
diff
changeset
|
1969 (if (eq window-system 'pc) |
b81a8a5635a8
(set-language-info): Fix synching
Kenichi Handa <handa@m17n.org>
parents:
90519
diff
changeset
|
1970 (setq nonascii (intern "cp%d" dos-codepage))) |
b81a8a5635a8
(set-language-info): Fix synching
Kenichi Handa <handa@m17n.org>
parents:
90519
diff
changeset
|
1971 (or (and (charsetp nonascii) |
b81a8a5635a8
(set-language-info): Fix synching
Kenichi Handa <handa@m17n.org>
parents:
90519
diff
changeset
|
1972 (get-charset-property nonascii :ascii-compatible-p)) |
b81a8a5635a8
(set-language-info): Fix synching
Kenichi Handa <handa@m17n.org>
parents:
90519
diff
changeset
|
1973 (setq nonascii 'iso-8859-1)) |
92764
79b4e32b9b79
(reset-language-environment, set-language-environment-nonascii-translation):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91918
diff
changeset
|
1974 ;; Back in Emacs-20, it was necessary to provide some fallback implicit |
79b4e32b9b79
(reset-language-environment, set-language-environment-nonascii-translation):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91918
diff
changeset
|
1975 ;; conversion, because almost no packages handled coding-system issues. |
79b4e32b9b79
(reset-language-environment, set-language-environment-nonascii-translation):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91918
diff
changeset
|
1976 ;; Nowadays it'd just paper over bugs. |
79b4e32b9b79
(reset-language-environment, set-language-environment-nonascii-translation):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91918
diff
changeset
|
1977 ;; (set-unibyte-charset nonascii) |
79b4e32b9b79
(reset-language-environment, set-language-environment-nonascii-translation):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91918
diff
changeset
|
1978 )) |
71606
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1979 |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1980 (defun set-language-environment-charset (language-name) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1981 "Do various charset setups for language environment LANGUAGE-NAME." |
90521
b81a8a5635a8
(set-language-info): Fix synching
Kenichi Handa <handa@m17n.org>
parents:
90519
diff
changeset
|
1982 ;; Put higher priorities to such charsets that are supported by the |
b81a8a5635a8
(set-language-info): Fix synching
Kenichi Handa <handa@m17n.org>
parents:
90519
diff
changeset
|
1983 ;; coding systems of higher priorities in this environment. |
b81a8a5635a8
(set-language-info): Fix synching
Kenichi Handa <handa@m17n.org>
parents:
90519
diff
changeset
|
1984 (let ((charsets (get-language-info language-name 'charset))) |
b81a8a5635a8
(set-language-info): Fix synching
Kenichi Handa <handa@m17n.org>
parents:
90519
diff
changeset
|
1985 (dolist (coding (get-language-info language-name 'coding-priority)) |
b81a8a5635a8
(set-language-info): Fix synching
Kenichi Handa <handa@m17n.org>
parents:
90519
diff
changeset
|
1986 (setq charsets (append charsets (coding-system-charset-list coding)))) |
b81a8a5635a8
(set-language-info): Fix synching
Kenichi Handa <handa@m17n.org>
parents:
90519
diff
changeset
|
1987 (if charsets |
b81a8a5635a8
(set-language-info): Fix synching
Kenichi Handa <handa@m17n.org>
parents:
90519
diff
changeset
|
1988 (apply 'set-charset-priority charsets)))) |
71606
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1989 |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1990 (defun set-language-environment-unibyte (language-name) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1991 "Do various unibyte-mode setups for language environment LANGUAGE-NAME." |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1992 (set-display-table-and-terminal-coding-system language-name)) |
5aa535ebb24a
(set-language-info): If LANG-ENV is
Kenichi Handa <handa@m17n.org>
parents:
70882
diff
changeset
|
1993 |
17052 | 1994 (defsubst princ-list (&rest args) |
77918
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
1995 "Print all arguments with `princ', then print \"\\n\"." |
17052 | 1996 (while args (princ (car args)) (setq args (cdr args))) |
1997 (princ "\n")) | |
1998 | |
23419
c251dd6b289e
(setup-specified-language-environment): Add apropos-inhibit property.
Richard M. Stallman <rms@gnu.org>
parents:
23261
diff
changeset
|
1999 (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
|
2000 |
52856
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2001 ;; Print language-specific information such as input methods, |
17758
8c67c2e2cc29
(build-describe-language-support-function,
Kenichi Handa <handa@m17n.org>
parents:
17526
diff
changeset
|
2002 ;; 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
|
2003 ;; called from the menu: |
18152
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
2004 ;; [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
|
2005 ;; 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
|
2006 (defun describe-specified-language-support () |
19083
8fdb29b769ed
Doc fixes; fix error message text.
Richard M. Stallman <rms@gnu.org>
parents:
19036
diff
changeset
|
2007 "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
|
2008 (interactive) |
18152
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
2009 (let (language-name) |
17840
2517414676ed
(set-language-info): Change the special treatment
Kenichi Handa <handa@m17n.org>
parents:
17758
diff
changeset
|
2010 (if (not (and (symbolp last-command-event) |
28456 | 2011 (or (not (eq last-command-event 'Default)) |
2012 (setq last-command-event 'English)) | |
18152
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
2013 (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
|
2014 (error "Bogus calling sequence")) |
18152
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
2015 (describe-language-environment language-name))) |
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
2016 |
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
2017 (defun describe-language-environment (language-name) |
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
2018 "Describe how Emacs supports language environment LANGUAGE-NAME." |
19653
431753f747ea
(describe-input-method): Fix previous
Kenichi Handa <handa@m17n.org>
parents:
19649
diff
changeset
|
2019 (interactive |
431753f747ea
(describe-input-method): Fix previous
Kenichi Handa <handa@m17n.org>
parents:
19649
diff
changeset
|
2020 (list (read-language-name |
431753f747ea
(describe-input-method): Fix previous
Kenichi Handa <handa@m17n.org>
parents:
19649
diff
changeset
|
2021 'documentation |
65680
ed770a0a7846
2005-09-24 Emilio C. Lopes <eclig@gmx.net>
Romain Francoise <romain@orebokech.com>
parents:
65652
diff
changeset
|
2022 "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
|
2023 (if (null language-name) |
8b309d07a95e
(set-language-environment): Do the real work here.
Richard M. Stallman <rms@gnu.org>
parents:
18633
diff
changeset
|
2024 (setq language-name current-language-environment)) |
18152
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
2025 (if (or (null language-name) |
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
2026 (null (get-language-info language-name 'documentation))) |
e184e7061c9a
(describe-language-environment):
Richard M. Stallman <rms@gnu.org>
parents:
18068
diff
changeset
|
2027 (error "No documentation for the specified language")) |
19649
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
2028 (if (symbolp language-name) |
b2bf3c43c86a
(get-language-info): Accept a symbol
Kenichi Handa <handa@m17n.org>
parents:
19615
diff
changeset
|
2029 (setq language-name (symbol-name language-name))) |
50614
849192639a83
(describe-language-environment): At
Kenichi Handa <handa@m17n.org>
parents:
50537
diff
changeset
|
2030 (dolist (feature (get-language-info language-name 'features)) |
849192639a83
(describe-language-environment): At
Kenichi Handa <handa@m17n.org>
parents:
50537
diff
changeset
|
2031 (require feature)) |
59743
baaed9bd0e12
(standard-display-european-internal): Don't fiddle with latin-1 non-break space
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58148
diff
changeset
|
2032 (let ((doc (get-language-info language-name 'documentation))) |
40666
84cd0f5441e2
(describe-language-environment):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40592
diff
changeset
|
2033 (help-setup-xref (list #'describe-language-environment language-name) |
84cd0f5441e2
(describe-language-environment):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40592
diff
changeset
|
2034 (interactive-p)) |
84cd0f5441e2
(describe-language-environment):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40592
diff
changeset
|
2035 (with-output-to-temp-buffer (help-buffer) |
31245
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2036 (save-excursion |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2037 (set-buffer standard-output) |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2038 (insert language-name " language environment\n\n") |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2039 (if (stringp doc) |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2040 (insert doc "\n\n")) |
33226
d5f086989bfd
(describe-language-environment): Eval
Kenichi Handa <handa@m17n.org>
parents:
33047
diff
changeset
|
2041 (condition-case nil |
d5f086989bfd
(describe-language-environment): Eval
Kenichi Handa <handa@m17n.org>
parents:
33047
diff
changeset
|
2042 (let ((str (eval (get-language-info language-name 'sample-text)))) |
d5f086989bfd
(describe-language-environment): Eval
Kenichi Handa <handa@m17n.org>
parents:
33047
diff
changeset
|
2043 (if (stringp str) |
d5f086989bfd
(describe-language-environment): Eval
Kenichi Handa <handa@m17n.org>
parents:
33047
diff
changeset
|
2044 (insert "Sample text:\n " str "\n\n"))) |
d5f086989bfd
(describe-language-environment): Eval
Kenichi Handa <handa@m17n.org>
parents:
33047
diff
changeset
|
2045 (error nil)) |
31245
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2046 (let ((input-method (get-language-info language-name 'input-method)) |
90953
b56b261cff11
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
90947
diff
changeset
|
2047 (l (copy-sequence input-method-alist)) |
b56b261cff11
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
90947
diff
changeset
|
2048 (first t)) |
b56b261cff11
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
90947
diff
changeset
|
2049 (when (and input-method |
b56b261cff11
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
90947
diff
changeset
|
2050 (setq input-method (assoc input-method l))) |
b56b261cff11
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
90947
diff
changeset
|
2051 (insert "Input methods (default " (car input-method) ")\n") |
b56b261cff11
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
90947
diff
changeset
|
2052 (setq l (cons input-method (delete input-method l)) |
b56b261cff11
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
90947
diff
changeset
|
2053 first nil)) |
b56b261cff11
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
90947
diff
changeset
|
2054 (dolist (elt l) |
b56b261cff11
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
90947
diff
changeset
|
2055 (when (or (eq input-method elt) |
b56b261cff11
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
90947
diff
changeset
|
2056 (eq t (compare-strings language-name nil nil |
b56b261cff11
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
90947
diff
changeset
|
2057 (nth 1 elt) nil nil t))) |
b56b261cff11
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
90947
diff
changeset
|
2058 (when first |
b56b261cff11
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
90947
diff
changeset
|
2059 (insert "Input methods:\n") |
b56b261cff11
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
90947
diff
changeset
|
2060 (setq first nil)) |
b56b261cff11
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
90947
diff
changeset
|
2061 (insert " " (car elt)) |
b56b261cff11
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
90947
diff
changeset
|
2062 (search-backward (car elt)) |
b56b261cff11
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
90947
diff
changeset
|
2063 (help-xref-button 0 'help-input-method (car elt)) |
31245
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2064 (goto-char (point-max)) |
34317
0378b3d77144
(describe-language-environment): Fix
Kenichi Handa <handa@m17n.org>
parents:
33866
diff
changeset
|
2065 (insert " (\"" |
90953
b56b261cff11
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
90947
diff
changeset
|
2066 (if (stringp (nth 3 elt)) (nth 3 elt) (car (nth 3 elt))) |
b56b261cff11
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
90947
diff
changeset
|
2067 "\" in mode line)\n"))) |
b56b261cff11
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
90947
diff
changeset
|
2068 (or first |
b56b261cff11
(describe-language-environment):
Kenichi Handa <handa@m17n.org>
parents:
90947
diff
changeset
|
2069 (insert "\n"))) |
31245
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2070 (insert "Character sets:\n") |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2071 (let ((l (get-language-info language-name 'charset))) |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2072 (if (null l) |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2073 (insert " nothing specific to " language-name "\n") |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2074 (while l |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2075 (insert " " (symbol-name (car l))) |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2076 (search-backward (symbol-name (car l))) |
42186
e77f859d031b
(describe-language-environment): Fix calls to help-xref-button.
Richard M. Stallman <rms@gnu.org>
parents:
42050
diff
changeset
|
2077 (help-xref-button 0 'help-character-set (car l)) |
31245
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2078 (goto-char (point-max)) |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2079 (insert ": " (charset-description (car l)) "\n") |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2080 (setq l (cdr l))))) |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2081 (insert "\n") |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2082 (insert "Coding systems:\n") |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2083 (let ((l (get-language-info language-name 'coding-system))) |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2084 (if (null l) |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2085 (insert " nothing specific to " language-name "\n") |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2086 (while l |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2087 (insert " " (symbol-name (car l))) |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2088 (search-backward (symbol-name (car l))) |
42186
e77f859d031b
(describe-language-environment): Fix calls to help-xref-button.
Richard M. Stallman <rms@gnu.org>
parents:
42050
diff
changeset
|
2089 (help-xref-button 0 'help-coding-system (car l)) |
31245
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2090 (goto-char (point-max)) |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2091 (insert " (`" |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2092 (coding-system-mnemonic (car l)) |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2093 "' in mode line):\n\t" |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2094 (coding-system-doc-string (car l)) |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2095 "\n") |
88654
ce18173db20e
(describe-language-environment): Use
Dave Love <fx@gnu.org>
parents:
88649
diff
changeset
|
2096 (let ((aliases (coding-system-aliases (car l)))) |
31245
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2097 (when aliases |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2098 (insert "\t(alias:") |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2099 (while aliases |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2100 (insert " " (symbol-name (car aliases))) |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2101 (setq aliases (cdr aliases))) |
113d32f65989
(help-xref-mule-regexp-template): New variable.
Kenichi Handa <handa@m17n.org>
parents:
31138
diff
changeset
|
2102 (insert ")\n"))) |
40666
84cd0f5441e2
(describe-language-environment):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40592
diff
changeset
|
2103 (setq l (cdr l))))))))) |
17052 | 2104 |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2105 ;;; Locales. |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2106 |
28711 | 2107 (defvar locale-translation-file-name nil |
2108 "File name for the system's file of locale-name aliases, or nil if none.") | |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2109 |
41126
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2110 ;; The following definitions might as well be marked as constants and |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2111 ;; purecopied, since they're normally used on startup, and probably |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2112 ;; should reflect the facilities of the base Emacs. |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2113 (defconst locale-language-names |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2114 (purecopy |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2115 '( |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2116 ;; 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
|
2117 ;; 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
|
2118 ;; 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
|
2119 ;; with additions from ISO 639/RA Newsletter No.1/1989; |
41126
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2120 ;; see Internet RFC 2165 (1997-06) and |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2121 ;; http://www.evertype.com/standards/iso639/iso639-en.html |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2122 ;; TERRITORY is a country code taken from ISO 3166 |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2123 ;; http://www.din.de/gremien/nas/nabd/iso3166ma/codlstp1/en_listp1.html. |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2124 ;; CODESET and MODIFIER are implementation-dependent. |
41126
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2125 |
52926
e165768a25a7
(locale-charset-to-coding-system):
Dave Love <fx@gnu.org>
parents:
52856
diff
changeset
|
2126 ;; jasonr comments: MS Windows uses three letter codes for |
e165768a25a7
(locale-charset-to-coding-system):
Dave Love <fx@gnu.org>
parents:
52856
diff
changeset
|
2127 ;; languages instead of the two letter ISO codes that POSIX |
e165768a25a7
(locale-charset-to-coding-system):
Dave Love <fx@gnu.org>
parents:
52856
diff
changeset
|
2128 ;; uses. In most cases the first two letters are the same, so |
e165768a25a7
(locale-charset-to-coding-system):
Dave Love <fx@gnu.org>
parents:
52856
diff
changeset
|
2129 ;; most of the regexps in locale-language-names work. Japanese |
e165768a25a7
(locale-charset-to-coding-system):
Dave Love <fx@gnu.org>
parents:
52856
diff
changeset
|
2130 ;; and Chinese are exceptions, which are listed in the |
e165768a25a7
(locale-charset-to-coding-system):
Dave Love <fx@gnu.org>
parents:
52856
diff
changeset
|
2131 ;; non-standard section at the bottom of locale-language-names. |
e165768a25a7
(locale-charset-to-coding-system):
Dave Love <fx@gnu.org>
parents:
52856
diff
changeset
|
2132 |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2133 ("aa_DJ" . "Latin-1") ; Afar |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2134 ("aa" . "UTF-8") |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2135 ;; ab Abkhazian |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
2136 ("af" . "Latin-1") ; Afrikaans |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2137 ("am" "Ethiopic" utf-8) ; Amharic |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2138 ("an" . "Latin-9") ; Aragonese |
41126
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2139 ; ar Arabic glibc uses 8859-6 |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2140 ; as Assamese |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2141 ; ay Aymara |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2142 ("az" . "UTF-8") ; Azerbaijani |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2143 ; ba Bashkir |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2144 ("be" "Belarusian" cp1251) ; Belarusian [Byelorussian until early 1990s] |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2145 ("bg" "Bulgarian" cp1251) ; Bulgarian |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2146 ; bh Bihari |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2147 ; bi Bislama |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2148 ("bn" . "UTF-8") ; Bengali, Bangla |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2149 ("bo" . "Tibetan") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2150 ("br" . "Latin-1") ; Breton |
46674 | 2151 ("bs" . "Latin-2") ; Bosnian |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2152 ("byn" . "UTF-8") ; Bilin; Blin |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2153 ("ca" . "Latin-1") ; Catalan |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2154 ; co Corsican |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2155 ("cs" "Czech" iso-8859-2) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2156 ("cy" "Welsh" iso-8859-14) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2157 ("da" . "Latin-1") ; Danish |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2158 ("de" "German" iso-8859-1) |
69856
d6c2324400c7
(locale-language-names): Add a few MS Windows language codes.
Eli Zaretskii <eliz@gnu.org>
parents:
69854
diff
changeset
|
2159 ; dv Divehi |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2160 ; dz Bhutani |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2161 ("el" "Greek" iso-8859-7) |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
2162 ;; Users who specify "en" explicitly typically want Latin-1, not ASCII. |
48073 | 2163 ;; That's actually what the GNU locales define, modulo things like |
2164 ;; en_IN -- fx. | |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2165 ("en_IN" "English" utf-8) ; glibc uses utf-8 for English in India |
67320
08bc4f887f34
(set-language-info-internal): New
Kenichi Handa <handa@m17n.org>
parents:
67036
diff
changeset
|
2166 ("en" "English" iso-8859-1) ; English |
76003
8734f45b6613
(locale-language-names): Map "eo" to "Esperanto".
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
2167 ("eo" . "Esperanto") ; Esperanto |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2168 ("es" "Spanish" iso-8859-1) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2169 ("et" . "Latin-1") ; Estonian |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2170 ("eu" . "Latin-1") ; Basque |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2171 ("fa" . "UTF-8") ; Persian |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2172 ("fi" . "Latin-1") ; Finnish |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2173 ("fj" . "Latin-1") ; Fiji |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2174 ("fo" . "Latin-1") ; Faroese |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2175 ("fr" "French" iso-8859-1) ; French |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2176 ("fy" . "Latin-1") ; Frisian |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
2177 ("ga" . "Latin-1") ; Irish Gaelic (new orthography) |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2178 ("gd" . "Latin-9") ; Scots Gaelic |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2179 ("gez" "Ethiopic" utf-8) ; Geez |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2180 ("gl" . "Latin-1") ; Gallegan; Galician |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2181 ; gn Guarani |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2182 ("gu" . "UTF-8") ; Gujarati |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2183 ("gv" . "Latin-1") ; Manx Gaelic |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2184 ; ha Hausa |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2185 ("he" "Hebrew" iso-8859-8) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2186 ("hi" "Devanagari" utf-8) ; Hindi |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2187 ("hr" "Croatian" iso-8859-2) ; Croatian |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2188 ("hu" . "Latin-2") ; Hungarian |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2189 ; hy Armenian |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2190 ; ia Interlingua |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2191 ("id" . "Latin-1") ; Indonesian |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2192 ; ie Interlingue |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2193 ; ik Inupiak |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2194 ("is" . "Latin-1") ; Icelandic |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2195 ("it" "Italian" iso-8859-1) ; Italian |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2196 ; iu Inuktitut |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2197 ("iw" "Hebrew" iso-8859-8) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2198 ("ja" "Japanese" euc-jp) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2199 ; jw Javanese |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2200 ("ka" "Georgian" georgian-ps) ; Georgian |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2201 ; kk Kazakh |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
2202 ("kl" . "Latin-1") ; Greenlandic |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2203 ; km Cambodian |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2204 ("kn" "Kannada" utf-8) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2205 ("ko" "Korean" euc-kr) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2206 ; ks Kashmiri |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2207 ; ku Kurdish |
41126
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2208 ("kw" . "Latin-1") ; Cornish |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2209 ; ky Kirghiz |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2210 ("la" . "Latin-1") ; Latin |
41126
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2211 ("lb" . "Latin-1") ; Luxemburgish |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2212 ("lg" . "Laint-6") ; Ganda |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2213 ; ln Lingala |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2214 ("lo" "Lao" utf-8) ; Laothian |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2215 ("lt" "Lithuanian" iso-8859-13) |
42050
6c1b3df2bbd2
(locale-language-names): Add various
Dave Love <fx@gnu.org>
parents:
41227
diff
changeset
|
2216 ("lv" . "Latvian") ; Latvian, Lettish |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2217 ; mg Malagasy |
41126
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2218 ("mi" . "Latin-7") ; Maori |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2219 ("mk" "Cyrillic-ISO" iso-8859-5) ; Macedonian |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2220 ("ml" "Malayalam" utf-8) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2221 ("mn" . "UTF-8") ; Mongolian |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2222 ; mo Moldavian |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2223 ("mr" "Devanagari" utf-8) ; Marathi |
41126
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2224 ("ms" . "Latin-1") ; Malay |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2225 ("mt" . "Latin-3") ; Maltese |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2226 ; my Burmese |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2227 ; na Nauru |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2228 ("nb" . "Latin-1") ; Norwegian |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2229 ("ne" "Devanagari" utf-8) ; Nepali |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2230 ("nl" "Dutch" iso-8859-1) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2231 ("no" . "Latin-1") ; Norwegian |
41126
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2232 ("oc" . "Latin-1") ; Occitan |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2233 ("om_ET" . "UTF-8") ; (Afan) Oromo |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2234 ("om" . "Latin-1") ; (Afan) Oromo |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2235 ; or Oriya |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2236 ("pa" . "UTF-8") ; Punjabi |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2237 ("pl" . "Latin-2") ; Polish |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2238 ; ps Pashto, Pushto |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2239 ("pt" . "Latin-1") ; Portuguese |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2240 ; qu Quechua |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
2241 ("rm" . "Latin-1") ; Rhaeto-Romanic |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2242 ; rn Kirundi |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2243 ("ro" "Romanian" iso-8859-2) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2244 ("ru_RU" "Russian" iso-8859-5) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2245 ("ru_UA" "Russian" koi8-u) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2246 ; rw Kinyarwanda |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2247 ("sa" . "Devanagari") ; Sanskrit |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2248 ; sd Sindhi |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2249 ("se" . "UTF-8") ; Northern Sami |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2250 ; sg Sangho |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2251 ("sh" . "Latin-2") ; Serbo-Croatian |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2252 ; si Sinhalese |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2253 ("sid" . "UTF-8") ; Sidamo |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2254 ("sk" "Slovak" iso-8859-2) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2255 ("sl" "Slovenian" iso-8859-2) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2256 ; sm Samoan |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2257 ; sn Shona |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2258 ("so_ET" "UTF-8") ; Somali |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2259 ("so" "Latin-1") ; Somali |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
2260 ("sq" . "Latin-1") ; Albanian |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2261 ("sr" . "Latin-2") ; Serbian (Latin alphabet) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2262 ; ss Siswati |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2263 ("st" . "Latin-1") ; Sesotho |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2264 ; su Sundanese |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2265 ("sv" "Swedish" iso-8859-1) ; Swedish |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2266 ("sw" . "Latin-1") ; Swahili |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2267 ("ta" "Tamil" utf-8) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2268 ("te" . "UTF-8") ; Telugu |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2269 ("tg" "Tajik" koi8-t) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2270 ("th" "Thai" tis-620) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2271 ("ti" "Ethiopic" utf-8) ; Tigrinya |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2272 ("tig_ER" . "UTF-8") ; Tigre |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2273 ; tk Turkmen |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
2274 ("tl" . "Latin-1") ; Tagalog |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2275 ; tn Setswana |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2276 ; to Tonga |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2277 ("tr" "Turkish" iso-8859-9) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2278 ; ts Tsonga |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2279 ("tt" . "UTF-8") ; Tatar |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2280 ; tw Twi |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2281 ; ug Uighur |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2282 ("uk" "Ukrainian" koi8-u) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2283 ("ur" . "UTF-8") ; Urdu |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2284 ("uz_UZ@cyrillic" . "UTF-8"); Uzbek |
41126
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2285 ("uz" . "Latin-1") ; Uzbek |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2286 ("vi" "Vietnamese" utf-8) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2287 ; vo Volapuk |
46674 | 2288 ("wa" . "Latin-1") ; Walloon |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2289 ; wo Wolof |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2290 ("xh" . "Latin-1") ; Xhosa |
42050
6c1b3df2bbd2
(locale-language-names): Add various
Dave Love <fx@gnu.org>
parents:
41227
diff
changeset
|
2291 ("yi" . "Windows-1255") ; Yiddish |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2292 ; yo Yoruba |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2293 ; za Zhuang |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2294 ("zh_HK" . "Chinese-Big5") |
90252
e094675b3ca1
(locale-language-names): Add entries
Kenichi Handa <handa@m17n.org>
parents:
90233
diff
changeset
|
2295 ; zh_HK/BIG5-HKSCS \ |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2296 ("zh_TW" . "Chinese-Big5") |
90252
e094675b3ca1
(locale-language-names): Add entries
Kenichi Handa <handa@m17n.org>
parents:
90233
diff
changeset
|
2297 ("zh_CN.GB2312" "Chinese-GB") |
e094675b3ca1
(locale-language-names): Add entries
Kenichi Handa <handa@m17n.org>
parents:
90233
diff
changeset
|
2298 ("zh_CN.GBK" "Chinese-GBK") |
e094675b3ca1
(locale-language-names): Add entries
Kenichi Handa <handa@m17n.org>
parents:
90233
diff
changeset
|
2299 ("zh_CN.GB18030" "Chinese-GB18030") |
90688
4bcfe4827e45
(locale-language-names): Add an entry
Kenichi Handa <handa@m17n.org>
parents:
90668
diff
changeset
|
2300 ("zh_CN.UTF-8" . "Chinese-GBK") |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2301 ("zh_CN" . "Chinese-GB") |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2302 ("zh" . "Chinese-GB") |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2303 ("zu" . "Latin-1") ; Zulu |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2304 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2305 ;; ISO standard locales |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2306 ("c$" . "ASCII") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2307 ("posix$" . "ASCII") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2308 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2309 ;; The "IPA" Emacs language environment does not correspond |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2310 ;; 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
|
2311 ("ipa$" . "IPA") |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2312 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2313 ;; Nonstandard or obsolete language codes |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2314 ("cz" . "Czech") ; e.g. Solaris 2.6 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2315 ("ee" . "Latin-4") ; Estonian, e.g. X11R6.4 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2316 ("iw" . "Hebrew") ; e.g. X11R6.4 |
46308
b634913b5b45
(locale-language-names): Change "mk" (Macedoninan), "ru" (Russian),
Kenichi Handa <handa@m17n.org>
parents:
45631
diff
changeset
|
2317 ("sp" . "Cyrillic-ISO") ; Serbian (Cyrillic alphabet), e.g. X11R6.4 |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2318 ("su" . "Latin-1") ; Finnish, e.g. Solaris 2.6 |
33866
feb369d9ca07
(locale-language-names): Add jp as a non-standard alternative for Japanese.
Jason Rumney <jasonr@gnu.org>
parents:
33514
diff
changeset
|
2319 ("jp" . "Japanese") ; e.g. MS Windows |
90688
4bcfe4827e45
(locale-language-names): Add an entry
Kenichi Handa <handa@m17n.org>
parents:
90668
diff
changeset
|
2320 ("chs" . "Chinese-GBK") ; MS Windows Chinese Simplified |
40592
8149d14c23bf
(locale-language-names): Add chs and
Jason Rumney <jasonr@gnu.org>
parents:
38414
diff
changeset
|
2321 ("cht" . "Chinese-BIG5") ; MS Windows Chinese Traditional |
69856
d6c2324400c7
(locale-language-names): Add a few MS Windows language codes.
Eli Zaretskii <eliz@gnu.org>
parents:
69854
diff
changeset
|
2322 ("gbz" . "UTF-8") ; MS Windows Dari Persian |
d6c2324400c7
(locale-language-names): Add a few MS Windows language codes.
Eli Zaretskii <eliz@gnu.org>
parents:
69854
diff
changeset
|
2323 ("div" . "UTF-8") ; MS Windows Divehi (Maldives) |
d6c2324400c7
(locale-language-names): Add a few MS Windows language codes.
Eli Zaretskii <eliz@gnu.org>
parents:
69854
diff
changeset
|
2324 ("wee" . "Latin-2") ; MS Windows Lower Sorbian |
d6c2324400c7
(locale-language-names): Add a few MS Windows language codes.
Eli Zaretskii <eliz@gnu.org>
parents:
69854
diff
changeset
|
2325 ("wen" . "Latin-2") ; MS Windows Upper Sorbian |
41136
76fbe1b154a2
Fix paren-typo.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41126
diff
changeset
|
2326 )) |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2327 "Alist of locale regexps vs the corresponding languages and coding systems. |
77918
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
2328 Each element has this form: |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2329 \(LOCALE-REGEXP LANG-ENV CODING-SYSTEM) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2330 The first element whose LOCALE-REGEXP matches the start of a |
77918
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
2331 downcased locale specifies the LANG-ENV \(language environment) |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2332 and CODING-SYSTEM corresponding to that locale. If there is no |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2333 appropriate language environment, the element may have this form: |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2334 \(LOCALE-REGEXP . LANG-ENV) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2335 In this case, LANG-ENV is one of generic language environments for an |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2336 specific encoding such as \"Latin-1\" and \"UTF-8\".") |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2337 |
41126
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2338 (defconst locale-charset-language-names |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2339 (purecopy |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2340 '((".*8859[-_]?1\\>" . "Latin-1") |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2341 (".*8859[-_]?2\\>" . "Latin-2") |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2342 (".*8859[-_]?3\\>" . "Latin-3") |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2343 (".*8859[-_]?4\\>" . "Latin-4") |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2344 (".*8859[-_]?9\\>" . "Latin-5") |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2345 (".*8859[-_]?14\\>" . "Latin-8") |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2346 (".*8859[-_]?15\\>" . "Latin-9") |
52856
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2347 (".*utf\\(?:-?8\\)?\\>" . "UTF-8") |
46501
347694b9f9ff
(locale-language-names): Fix be, add
Dave Love <fx@gnu.org>
parents:
46308
diff
changeset
|
2348 ;; utf-8@euro exists, so put this last. (@euro really specifies |
347694b9f9ff
(locale-language-names): Fix be, add
Dave Love <fx@gnu.org>
parents:
46308
diff
changeset
|
2349 ;; the currency, rather than the charset.) |
347694b9f9ff
(locale-language-names): Fix be, add
Dave Love <fx@gnu.org>
parents:
46308
diff
changeset
|
2350 (".*@euro\\>" . "Latin-9"))) |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
2351 "List of pairs of locale regexps and charset language names. |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
2352 The first element whose locale regexp matches the start of a downcased locale |
52856
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2353 specifies the language name whose charset corresponds to that locale. |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2354 This language name is used if the locale is not listed in |
77918
80ba9b48c547
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
76003
diff
changeset
|
2355 `locale-language-names'.") |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
2356 |
41126
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2357 (defconst locale-preferred-coding-systems |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2358 (purecopy |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2359 '((".*8859[-_]?1\\>" . iso-8859-1) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2360 (".*8859[-_]?2\\>" . iso-8859-2) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2361 (".*8859[-_]?3\\>" . iso-8859-3) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2362 (".*8859[-_]?4\\>" . iso-8859-4) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2363 (".*8859[-_]?9\\>" . iso-8859-9) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2364 (".*8859[-_]?14\\>" . iso-8859-14) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2365 (".*8859[-_]?15\\>" . iso-8859-15) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2366 (".*utf\\(?:-?8\\)?" . utf-8) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2367 ;; utf-8@euro exists, so put this after utf-8. (@euro really |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2368 ;; specifies the currency, rather than the charset.) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2369 (".*@euro" . iso-8859-15) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2370 ("koi8-?r" . koi8-r) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2371 ("koi8-?u" . koi8-u) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2372 ("tcvn" . tcvn) |
90254
9b004e9ea127
(locale-preferred-coding-systems): Fix entries for Chinese
Kenichi Handa <handa@m17n.org>
parents:
90252
diff
changeset
|
2373 ("big5[-_]?hkscs" . big5-hkscs) |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2374 ("big5" . big5) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2375 ("euc-?tw" . euc-tw) |
90254
9b004e9ea127
(locale-preferred-coding-systems): Fix entries for Chinese
Kenichi Handa <handa@m17n.org>
parents:
90252
diff
changeset
|
2376 ("euc-?cn" .euc-cn) |
9b004e9ea127
(locale-preferred-coding-systems): Fix entries for Chinese
Kenichi Handa <handa@m17n.org>
parents:
90252
diff
changeset
|
2377 ("gb2312" . gb2312) |
9b004e9ea127
(locale-preferred-coding-systems): Fix entries for Chinese
Kenichi Handa <handa@m17n.org>
parents:
90252
diff
changeset
|
2378 ("gbk" . gbk) |
9b004e9ea127
(locale-preferred-coding-systems): Fix entries for Chinese
Kenichi Handa <handa@m17n.org>
parents:
90252
diff
changeset
|
2379 ("gb18030" . gb18030) |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2380 ("ja.*[._]euc" . japanese-iso-8bit) |
41126
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2381 ("ja.*[._]jis7" . iso-2022-jp) |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2382 ("ja.*[._]pck" . japanese-shift-jis) |
91e3a6470ffd
(describe-input-method): Setup xref.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40723
diff
changeset
|
2383 ("ja.*[._]sjis" . japanese-shift-jis) |
44643
10292933863d
(locale-preferred-coding-systems): Add "jpn".
Jason Rumney <jasonr@gnu.org>
parents:
44440
diff
changeset
|
2384 ("jpn" . japanese-shift-jis) ; MS-Windows uses this. |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2385 )) |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
2386 "List of pairs of locale regexps and preferred coding systems. |
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
2387 The first element whose locale regexp matches the start of a downcased locale |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2388 specifies the coding system to prefer when using that locale. |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2389 This coding system is used if the locale specifies a specific charset.") |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2390 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2391 (defun locale-name-match (key alist) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2392 "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
|
2393 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
|
2394 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
|
2395 (let (element) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2396 (while (and alist (not element)) |
41223
0ca8b0f41ebd
(locale-name-match): Use \` and \(?:.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41220
diff
changeset
|
2397 (if (string-match (concat "\\`\\(?:" (car (car alist)) "\\)") key) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2398 (setq element (car alist))) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2399 (setq alist (cdr alist))) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2400 (cdr element))) |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2401 |
52856
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2402 (defun locale-charset-match-p (charset1 charset2) |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2403 "Whether charset names (strings) CHARSET1 and CHARSET2 are equivalent. |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2404 Matching is done ignoring case and any hyphens and underscores in the |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2405 names. E.g. `ISO_8859-1' and `iso88591' both match `iso-8859-1'." |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2406 (setq charset1 (replace-regexp-in-string "[-_]" "" charset1)) |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2407 (setq charset2 (replace-regexp-in-string "[-_]" "" charset2)) |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2408 (eq t (compare-strings charset1 nil nil charset2 nil nil t))) |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2409 |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2410 (defvar locale-charset-alist nil |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2411 "Coding system alist keyed on locale-style charset name. |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2412 Used by `locale-charset-to-coding-system'.") |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2413 |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2414 (defun locale-charset-to-coding-system (charset) |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2415 "Find coding system corresponding to CHARSET. |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2416 CHARSET is any sort of non-Emacs charset name, such as might be used |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2417 in a locale codeset, or elsewhere. It is matched to a coding system |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2418 first by case-insensitive lookup in `locale-charset-alist'. Then |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2419 matches are looked for in the coding system list, treating case and |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2420 the characters `-' and `_' as insignificant. The coding system base |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2421 is returned. Thus, for instance, if charset \"ISO8859-2\", |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2422 `iso-latin-2' is returned." |
55047
428f891f9e31
Use assoc-string, not assoc-ignore-case.
Richard M. Stallman <rms@gnu.org>
parents:
54507
diff
changeset
|
2423 (or (car (assoc-string charset locale-charset-alist t)) |
52856
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2424 (let ((cs coding-system-alist) |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2425 c) |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2426 (while (and (not c) cs) |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2427 (if (locale-charset-match-p charset (caar cs)) |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2428 (setq c (intern (caar cs))) |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2429 (pop cs))) |
52926
e165768a25a7
(locale-charset-to-coding-system):
Dave Love <fx@gnu.org>
parents:
52856
diff
changeset
|
2430 (if c (coding-system-base c))))) |
52856
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2431 |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2432 ;; Fixme: This ought to deal with the territory part of the locale |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2433 ;; too, for setting things such as calendar holidays, ps-print paper |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2434 ;; size, spelling dictionary. |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2435 |
91681
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2436 (defun locale-translate (locale) |
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2437 "Expand LOCALE according to `locale-translation-file-name', if possible. |
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2438 For example, translate \"swedish\" into \"sv_SE.ISO8859-1\"." |
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2439 (if locale-translation-file-name |
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2440 (with-temp-buffer |
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2441 (set-buffer-multibyte nil) |
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2442 (insert-file-contents locale-translation-file-name) |
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2443 (if (re-search-forward |
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2444 (concat "^" (regexp-quote locale) ":?[ \t]+") nil t) |
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2445 (buffer-substring (point) (line-end-position)) |
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2446 locale)) |
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2447 locale)) |
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2448 |
83594
2716535391b7
Rudimentary fix for environment variable handling.
Miles Bader <miles@gnu.org>
parents:
83556
diff
changeset
|
2449 (defun set-locale-environment (&optional locale-name frame) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2450 "Set up multi-lingual environment for using LOCALE-NAME. |
40723
20229bfaf7ce
(set-locale-environment): Make it interactive; make arg optional.
Richard M. Stallman <rms@gnu.org>
parents:
40666
diff
changeset
|
2451 This sets the language environment, the coding system priority, |
20229bfaf7ce
(set-locale-environment): Make it interactive; make arg optional.
Richard M. Stallman <rms@gnu.org>
parents:
40666
diff
changeset
|
2452 the default input method and sometimes other things. |
20229bfaf7ce
(set-locale-environment): Make it interactive; make arg optional.
Richard M. Stallman <rms@gnu.org>
parents:
40666
diff
changeset
|
2453 |
52856
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2454 LOCALE-NAME should be a string which is the name of a locale supported |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2455 by the system. Often it is of the form xx_XX.CODE, where xx is a |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2456 language, XX is a country, and CODE specifies a character set and |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2457 coding system. For example, the locale name \"ja_JP.EUC\" might name |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2458 a locale for Japanese in Japan using the `japanese-iso-8bit' |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2459 coding-system. The name may also have a modifier suffix, e.g. `@euro' |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2460 or `@cyrillic'. |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2461 |
40723
20229bfaf7ce
(set-locale-environment): Make it interactive; make arg optional.
Richard M. Stallman <rms@gnu.org>
parents:
40666
diff
changeset
|
2462 If LOCALE-NAME is nil, its value is taken from the environment |
46674 | 2463 variables LC_ALL, LC_CTYPE and LANG (the first one that is set). |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2464 |
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2465 The locale names supported by your system can typically be found in a |
31569
8b6e9e1a553b
(set-locale-environment): Doc fix.
Dave Love <fx@gnu.org>
parents:
31423
diff
changeset
|
2466 directory named `/usr/share/locale' or `/usr/lib/locale'. LOCALE-NAME |
40723
20229bfaf7ce
(set-locale-environment): Make it interactive; make arg optional.
Richard M. Stallman <rms@gnu.org>
parents:
40666
diff
changeset
|
2467 will be translated according to the table specified by |
31569
8b6e9e1a553b
(set-locale-environment): Doc fix.
Dave Love <fx@gnu.org>
parents:
31423
diff
changeset
|
2468 `locale-translation-file-name'. |
8b6e9e1a553b
(set-locale-environment): Doc fix.
Dave Love <fx@gnu.org>
parents:
31423
diff
changeset
|
2469 |
83594
2716535391b7
Rudimentary fix for environment variable handling.
Miles Bader <miles@gnu.org>
parents:
83556
diff
changeset
|
2470 If FRAME is non-nil, only set the keyboard coding system and the |
2716535391b7
Rudimentary fix for environment variable handling.
Miles Bader <miles@gnu.org>
parents:
83556
diff
changeset
|
2471 terminal coding system for the terminal of that frame, and don't |
2716535391b7
Rudimentary fix for environment variable handling.
Miles Bader <miles@gnu.org>
parents:
83556
diff
changeset
|
2472 touch session-global parameters like the language environment. |
83300
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2473 |
31569
8b6e9e1a553b
(set-locale-environment): Doc fix.
Dave Love <fx@gnu.org>
parents:
31423
diff
changeset
|
2474 See also `locale-charset-language-names', `locale-language-names', |
8b6e9e1a553b
(set-locale-environment): Doc fix.
Dave Love <fx@gnu.org>
parents:
31423
diff
changeset
|
2475 `locale-preferred-coding-systems' and `locale-coding-system'." |
40723
20229bfaf7ce
(set-locale-environment): Make it interactive; make arg optional.
Richard M. Stallman <rms@gnu.org>
parents:
40666
diff
changeset
|
2476 (interactive "sSet environment for locale: ") |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49435
diff
changeset
|
2477 |
28711 | 2478 ;; Do this at runtime for the sake of binaries possibly transported |
2479 ;; to a system without X. | |
2480 (setq locale-translation-file-name | |
2481 (let ((files | |
68590
227c1c287c2f
(set-locale-environment): Add "/usr/share/X11/locale/locale.alias" to
Kenichi Handa <handa@m17n.org>
parents:
67358
diff
changeset
|
2482 '("/usr/share/X11/locale/locale.alias" ; e.g. X11R7 |
227c1c287c2f
(set-locale-environment): Add "/usr/share/X11/locale/locale.alias" to
Kenichi Handa <handa@m17n.org>
parents:
67358
diff
changeset
|
2483 "/usr/lib/X11/locale/locale.alias" ; e.g. X11R6.4 |
52856
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2484 "/usr/X11R6/lib/X11/locale/locale.alias" ; XFree86, e.g. RedHat 4.2 |
28711 | 2485 "/usr/openwin/lib/locale/locale.alias" ; e.g. Solaris 2.6 |
2486 ;; | |
2487 ;; The following name appears after the X-related names above, | |
2488 ;; since the X-related names are what X actually uses. | |
2489 "/usr/share/locale/locale.alias" ; GNU/Linux sans X | |
2490 ))) | |
2491 (while (and files (not (file-exists-p (car files)))) | |
2492 (setq files (cdr files))) | |
2493 (car files))) | |
2494 | |
36910
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2495 (let ((locale locale-name)) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2496 |
36910
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2497 (unless locale |
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2498 ;; Use the first of these three environment variables |
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2499 ;; that has a nonempty value. |
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2500 (let ((vars '("LC_ALL" "LC_CTYPE" "LANG"))) |
49042 | 2501 (while (and vars |
2502 (= 0 (length locale))) ; nil or empty string | |
83594
2716535391b7
Rudimentary fix for environment variable handling.
Miles Bader <miles@gnu.org>
parents:
83556
diff
changeset
|
2503 (setq locale (getenv (pop vars) frame))))) |
36910
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2504 |
65311
bea70b37d446
(set-locale-environment): Soothe compiler.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65204
diff
changeset
|
2505 (unless locale |
bea70b37d446
(set-locale-environment): Soothe compiler.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65204
diff
changeset
|
2506 ;; The two tests are kept separate so the byte-compiler sees |
bea70b37d446
(set-locale-environment): Soothe compiler.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65204
diff
changeset
|
2507 ;; that mac-get-preference is only called after checking its existence. |
bea70b37d446
(set-locale-environment): Soothe compiler.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65204
diff
changeset
|
2508 (when (fboundp 'mac-get-preference) |
bea70b37d446
(set-locale-environment): Soothe compiler.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65204
diff
changeset
|
2509 (setq locale (mac-get-preference "AppleLocale")) |
bea70b37d446
(set-locale-environment): Soothe compiler.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65204
diff
changeset
|
2510 (unless locale |
bea70b37d446
(set-locale-environment): Soothe compiler.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65204
diff
changeset
|
2511 (let ((languages (mac-get-preference "AppleLanguages"))) |
bea70b37d446
(set-locale-environment): Soothe compiler.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65204
diff
changeset
|
2512 (unless (= (length languages) 0) ; nil or empty vector |
bea70b37d446
(set-locale-environment): Soothe compiler.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65204
diff
changeset
|
2513 (setq locale (aref languages 0))))))) |
61557
44bd70f63148
(set-locale-environment): On Mac OS, use preferences AppleLocale and
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61064
diff
changeset
|
2514 (unless (or locale (not (boundp 'mac-system-locale))) |
44bd70f63148
(set-locale-environment): On Mac OS, use preferences AppleLocale and
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61064
diff
changeset
|
2515 (setq locale mac-system-locale)) |
44bd70f63148
(set-locale-environment): On Mac OS, use preferences AppleLocale and
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61064
diff
changeset
|
2516 |
36910
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2517 (when locale |
91681
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2518 (setq locale (locale-translate locale)) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2519 |
36910
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2520 ;; Leave the system locales alone if the caller did not specify |
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2521 ;; an explicit locale name, as their defaults are set from |
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2522 ;; LC_MESSAGES and LC_TIME, not LC_CTYPE, and the user might not |
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2523 ;; want to set them to the same value as LC_CTYPE. |
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2524 (when locale-name |
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2525 (setq system-messages-locale locale) |
91681
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2526 (setq system-time-locale locale))) |
36910
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2527 |
91681
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2528 (setq woman-locale |
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2529 (or system-messages-locale |
91918
0ae97cb23ed8
(set-locale-environment): Pass `frame' to getenv for LC_MESSAGES.
Glenn Morris <rgm@gnu.org>
parents:
91778
diff
changeset
|
2530 (let ((msglocale (getenv "LC_MESSAGES" frame))) |
91681
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2531 (if (zerop (length msglocale)) |
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2532 locale |
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2533 (locale-translate msglocale))))) |
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2534 |
88dc1f9f4da0
(locale-translate): New function, with old code extracted from
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
2535 (when locale |
36910
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2536 (setq locale (downcase locale)) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2537 |
36910
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2538 (let ((language-name |
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2539 (locale-name-match locale locale-language-names)) |
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2540 (charset-language-name |
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2541 (locale-name-match locale locale-charset-language-names)) |
69854
1b196049b994
(set-locale-environment): Make sure the coding-system preferred by the
Eli Zaretskii <eliz@gnu.org>
parents:
69638
diff
changeset
|
2542 (default-eol-type (coding-system-eol-type |
1b196049b994
(set-locale-environment): Make sure the coding-system preferred by the
Eli Zaretskii <eliz@gnu.org>
parents:
69638
diff
changeset
|
2543 default-buffer-file-coding-system)) |
36910
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2544 (coding-system |
52856
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2545 (or (locale-name-match locale locale-preferred-coding-systems) |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2546 (when locale |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2547 (if (string-match "\\.\\([^@]+\\)" locale) |
05c3a0a53ad9
(find-multibyte-characters): Doc fix.
Dave Love <fx@gnu.org>
parents:
52823
diff
changeset
|
2548 (locale-charset-to-coding-system |
61557
44bd70f63148
(set-locale-environment): On Mac OS, use preferences AppleLocale and
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61064
diff
changeset
|
2549 (match-string 1 locale)))) |
44bd70f63148
(set-locale-environment): On Mac OS, use preferences AppleLocale and
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61064
diff
changeset
|
2550 (and (eq system-type 'macos) mac-system-coding-system)))) |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
2551 |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2552 (if (consp language-name) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2553 ;; locale-language-names specify both lang-env and coding. |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2554 ;; But, what specified in locale-preferred-coding-systems |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2555 ;; has higher priority. |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2556 (setq coding-system (or coding-system |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2557 (nth 1 language-name)) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2558 language-name (car language-name)) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2559 ;; Otherwise, if locale is not listed in locale-language-names, |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2560 ;; use what listed in locale-charset-language-names. |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2561 (if (not language-name) |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2562 (setq language-name charset-language-name))) |
26139
ca31ffbed318
* (locale-language-names):
Paul Eggert <eggert@twinsun.com>
parents:
26085
diff
changeset
|
2563 |
69854
1b196049b994
(set-locale-environment): Make sure the coding-system preferred by the
Eli Zaretskii <eliz@gnu.org>
parents:
69638
diff
changeset
|
2564 ;; If a specific EOL conversion was specified in the default |
1b196049b994
(set-locale-environment): Make sure the coding-system preferred by the
Eli Zaretskii <eliz@gnu.org>
parents:
69638
diff
changeset
|
2565 ;; buffer-file-coding-system, preserve it in the coding system |
1b196049b994
(set-locale-environment): Make sure the coding-system preferred by the
Eli Zaretskii <eliz@gnu.org>
parents:
69638
diff
changeset
|
2566 ;; we will be using from now on. |
69918
96ba55a8591b
(set-locale-environment): Fix last change for when the locale's preferences
Eli Zaretskii <eliz@gnu.org>
parents:
69856
diff
changeset
|
2567 (if (and (memq default-eol-type '(0 1 2 unix dos mac)) |
96ba55a8591b
(set-locale-environment): Fix last change for when the locale's preferences
Eli Zaretskii <eliz@gnu.org>
parents:
69856
diff
changeset
|
2568 coding-system |
96ba55a8591b
(set-locale-environment): Fix last change for when the locale's preferences
Eli Zaretskii <eliz@gnu.org>
parents:
69856
diff
changeset
|
2569 (coding-system-p coding-system)) |
69854
1b196049b994
(set-locale-environment): Make sure the coding-system preferred by the
Eli Zaretskii <eliz@gnu.org>
parents:
69638
diff
changeset
|
2570 (setq coding-system (coding-system-change-eol-conversion |
1b196049b994
(set-locale-environment): Make sure the coding-system preferred by the
Eli Zaretskii <eliz@gnu.org>
parents:
69638
diff
changeset
|
2571 coding-system default-eol-type))) |
1b196049b994
(set-locale-environment): Make sure the coding-system preferred by the
Eli Zaretskii <eliz@gnu.org>
parents:
69638
diff
changeset
|
2572 |
36910
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2573 (when language-name |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2574 |
36910
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2575 ;; Set up for this character set. This is now the right way |
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2576 ;; to do it for both unibyte and multibyte modes. |
83594
2716535391b7
Rudimentary fix for environment variable handling.
Miles Bader <miles@gnu.org>
parents:
83556
diff
changeset
|
2577 (unless frame |
83300
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2578 (set-language-environment language-name)) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2579 |
36910
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2580 ;; If default-enable-multibyte-characters is nil, |
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2581 ;; we are using single-byte characters, |
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2582 ;; so the display table and terminal coding system are irrelevant. |
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2583 (when default-enable-multibyte-characters |
60934
439d4fa30f21
(set-locale-environment): For Mac OS X's Terminal.app, use utf-8.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60603
diff
changeset
|
2584 (set-display-table-and-terminal-coding-system |
83594
2716535391b7
Rudimentary fix for environment variable handling.
Miles Bader <miles@gnu.org>
parents:
83556
diff
changeset
|
2585 language-name coding-system frame)) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2586 |
48896
41a95e836e30
(standard-keyboard-coding-systems):
Dave Love <fx@gnu.org>
parents:
48879
diff
changeset
|
2587 ;; Set the `keyboard-coding-system' if appropriate (tty |
41a95e836e30
(standard-keyboard-coding-systems):
Dave Love <fx@gnu.org>
parents:
48879
diff
changeset
|
2588 ;; only). At least X and MS Windows can generate |
41a95e836e30
(standard-keyboard-coding-systems):
Dave Love <fx@gnu.org>
parents:
48879
diff
changeset
|
2589 ;; multilingual input. |
83298
ed09a89e2b25
Fix UTF-8 tty input when first frame is an X frame. Steps towards multiple tty locale support.
Karoly Lorentey <lorentey@elte.hu>
parents:
83295
diff
changeset
|
2590 ;; XXX This was disabled unless `window-system', but that |
96376
c3309dba6542
American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents:
96325
diff
changeset
|
2591 ;; leads to buggy behavior when a tty frame is opened |
83298
ed09a89e2b25
Fix UTF-8 tty input when first frame is an X frame. Steps towards multiple tty locale support.
Karoly Lorentey <lorentey@elte.hu>
parents:
83295
diff
changeset
|
2592 ;; later. Setting the keyboard coding system has no adverse |
ed09a89e2b25
Fix UTF-8 tty input when first frame is an X frame. Steps towards multiple tty locale support.
Karoly Lorentey <lorentey@elte.hu>
parents:
83295
diff
changeset
|
2593 ;; effect on X, so let's do it anyway. -- Lorentey |
ed09a89e2b25
Fix UTF-8 tty input when first frame is an X frame. Steps towards multiple tty locale support.
Karoly Lorentey <lorentey@elte.hu>
parents:
83295
diff
changeset
|
2594 (let ((kcs (or coding-system |
ed09a89e2b25
Fix UTF-8 tty input when first frame is an X frame. Steps towards multiple tty locale support.
Karoly Lorentey <lorentey@elte.hu>
parents:
83295
diff
changeset
|
2595 (car (get-language-info language-name |
ed09a89e2b25
Fix UTF-8 tty input when first frame is an X frame. Steps towards multiple tty locale support.
Karoly Lorentey <lorentey@elte.hu>
parents:
83295
diff
changeset
|
2596 'coding-system))))) |
83594
2716535391b7
Rudimentary fix for environment variable handling.
Miles Bader <miles@gnu.org>
parents:
83556
diff
changeset
|
2597 (if kcs (set-keyboard-coding-system kcs frame))) |
41223
0ca8b0f41ebd
(locale-name-match): Use \` and \(?:.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41220
diff
changeset
|
2598 |
83594
2716535391b7
Rudimentary fix for environment variable handling.
Miles Bader <miles@gnu.org>
parents:
83556
diff
changeset
|
2599 (unless frame |
83300
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2600 (setq locale-coding-system |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2601 (car (get-language-info language-name 'coding-priority))))) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2602 |
83594
2716535391b7
Rudimentary fix for environment variable handling.
Miles Bader <miles@gnu.org>
parents:
83556
diff
changeset
|
2603 (when (and (not frame) |
83300
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2604 coding-system |
60603
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2605 (not (coding-system-equal coding-system |
10307e6c7baa
(locale-language-names): Modify the
Kenichi Handa <handa@m17n.org>
parents:
60092
diff
changeset
|
2606 locale-coding-system))) |
36910
88d7b5c216a2
(set-locale-environment): Set
Gerd Moellmann <gerd@gnu.org>
parents:
36863
diff
changeset
|
2607 (prefer-coding-system coding-system) |
74607
2408d46ef69e
(set-locale-environment): Set
Kenichi Handa <handa@m17n.org>
parents:
74605
diff
changeset
|
2608 ;; Fixme: perhaps prefer-coding-system should set this too. |
2408d46ef69e
(set-locale-environment): Set
Kenichi Handa <handa@m17n.org>
parents:
74605
diff
changeset
|
2609 ;; But it's not the time to do such a fundamental change. |
2408d46ef69e
(set-locale-environment): Set
Kenichi Handa <handa@m17n.org>
parents:
74605
diff
changeset
|
2610 (setq default-sendmail-coding-system coding-system) |
93865
b9a2a750f172
(set-locale-environment): Don't warn if coding system doesn't agree with system
Juanma Barranquero <lekktu@gmail.com>
parents:
92764
diff
changeset
|
2611 (setq locale-coding-system coding-system)))) |
49796
9444af9dba75
(locale-language-names): Use Italian,
Dave Love <fx@gnu.org>
parents:
49779
diff
changeset
|
2612 |
60092
04686828d0da
2004-11-08 Benjamin Riefenstahl <Benjamin.Riefenstahl@epost.de>
Jason Rumney <jasonr@gnu.org>
parents:
59906
diff
changeset
|
2613 ;; On Windows, override locale-coding-system, |
79385
96dc85a06a3a
(set-locale-environment): Set default-file-name-coding-system
Jason Rumney <jasonr@gnu.org>
parents:
78484
diff
changeset
|
2614 ;; default-file-name-coding-system, keyboard-coding-system, |
96dc85a06a3a
(set-locale-environment): Set default-file-name-coding-system
Jason Rumney <jasonr@gnu.org>
parents:
78484
diff
changeset
|
2615 ;; terminal-coding-system with system codepage. |
55469 | 2616 (when (boundp 'w32-ansi-code-page) |
55465
9629ef26c137
(set-locale-environment): On MS-Windows use ansi code-page for default
Jason Rumney <jasonr@gnu.org>
parents:
55047
diff
changeset
|
2617 (let ((code-page-coding (intern (format "cp%d" w32-ansi-code-page)))) |
9629ef26c137
(set-locale-environment): On MS-Windows use ansi code-page for default
Jason Rumney <jasonr@gnu.org>
parents:
55047
diff
changeset
|
2618 (when (coding-system-p code-page-coding) |
83594
2716535391b7
Rudimentary fix for environment variable handling.
Miles Bader <miles@gnu.org>
parents:
83556
diff
changeset
|
2619 (unless frame (setq locale-coding-system code-page-coding)) |
2716535391b7
Rudimentary fix for environment variable handling.
Miles Bader <miles@gnu.org>
parents:
83556
diff
changeset
|
2620 (set-keyboard-coding-system code-page-coding frame) |
86275 | 2621 (set-terminal-coding-system code-page-coding frame) |
79441
371591e2f734
(set-locale-environment): Set default-file-name-coding-system _after_
Eli Zaretskii <eliz@gnu.org>
parents:
79385
diff
changeset
|
2622 ;; Set default-file-name-coding-system last, so that Emacs |
371591e2f734
(set-locale-environment): Set default-file-name-coding-system _after_
Eli Zaretskii <eliz@gnu.org>
parents:
79385
diff
changeset
|
2623 ;; doesn't try to use cpNNNN when it defines keyboard and |
371591e2f734
(set-locale-environment): Set default-file-name-coding-system _after_
Eli Zaretskii <eliz@gnu.org>
parents:
79385
diff
changeset
|
2624 ;; terminal encoding. That's because the above two lines |
371591e2f734
(set-locale-environment): Set default-file-name-coding-system _after_
Eli Zaretskii <eliz@gnu.org>
parents:
79385
diff
changeset
|
2625 ;; will want to load code-pages.el, where cpNNNN are |
371591e2f734
(set-locale-environment): Set default-file-name-coding-system _after_
Eli Zaretskii <eliz@gnu.org>
parents:
79385
diff
changeset
|
2626 ;; defined; if default-file-name-coding-system were set to |
371591e2f734
(set-locale-environment): Set default-file-name-coding-system _after_
Eli Zaretskii <eliz@gnu.org>
parents:
79385
diff
changeset
|
2627 ;; cpNNNN while these two lines run, Emacs will want to use |
371591e2f734
(set-locale-environment): Set default-file-name-coding-system _after_
Eli Zaretskii <eliz@gnu.org>
parents:
79385
diff
changeset
|
2628 ;; it for encoding the file name it wants to load. And that |
371591e2f734
(set-locale-environment): Set default-file-name-coding-system _after_
Eli Zaretskii <eliz@gnu.org>
parents:
79385
diff
changeset
|
2629 ;; will fail, since cpNNNN is not yet usable until |
371591e2f734
(set-locale-environment): Set default-file-name-coding-system _after_
Eli Zaretskii <eliz@gnu.org>
parents:
79385
diff
changeset
|
2630 ;; code-pages.el finishes loading. |
371591e2f734
(set-locale-environment): Set default-file-name-coding-system _after_
Eli Zaretskii <eliz@gnu.org>
parents:
79385
diff
changeset
|
2631 (setq default-file-name-coding-system code-page-coding)))) |
55465
9629ef26c137
(set-locale-environment): On MS-Windows use ansi code-page for default
Jason Rumney <jasonr@gnu.org>
parents:
55047
diff
changeset
|
2632 |
59906
9c28fead9bf2
(set-locale-environment): Set file-name coding system to utf-8 on Darwin.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
59743
diff
changeset
|
2633 (when (eq system-type 'darwin) |
60934
439d4fa30f21
(set-locale-environment): For Mac OS X's Terminal.app, use utf-8.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60603
diff
changeset
|
2634 ;; On Darwin, file names are always encoded in utf-8, no matter |
439d4fa30f21
(set-locale-environment): For Mac OS X's Terminal.app, use utf-8.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60603
diff
changeset
|
2635 ;; the locale. |
439d4fa30f21
(set-locale-environment): For Mac OS X's Terminal.app, use utf-8.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60603
diff
changeset
|
2636 (setq default-file-name-coding-system 'utf-8) |
439d4fa30f21
(set-locale-environment): For Mac OS X's Terminal.app, use utf-8.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60603
diff
changeset
|
2637 ;; Mac OS X's Terminal.app by default uses utf-8 regardless of |
439d4fa30f21
(set-locale-environment): For Mac OS X's Terminal.app, use utf-8.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60603
diff
changeset
|
2638 ;; the locale. |
439d4fa30f21
(set-locale-environment): For Mac OS X's Terminal.app, use utf-8.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60603
diff
changeset
|
2639 (when (and (null window-system) |
83594
2716535391b7
Rudimentary fix for environment variable handling.
Miles Bader <miles@gnu.org>
parents:
83556
diff
changeset
|
2640 (equal (getenv "TERM_PROGRAM" frame) "Apple_Terminal")) |
60934
439d4fa30f21
(set-locale-environment): For Mac OS X's Terminal.app, use utf-8.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60603
diff
changeset
|
2641 (set-terminal-coding-system 'utf-8) |
439d4fa30f21
(set-locale-environment): For Mac OS X's Terminal.app, use utf-8.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60603
diff
changeset
|
2642 (set-keyboard-coding-system 'utf-8))) |
59906
9c28fead9bf2
(set-locale-environment): Set file-name coding system to utf-8 on Darwin.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
59743
diff
changeset
|
2643 |
49796
9444af9dba75
(locale-language-names): Use Italian,
Dave Love <fx@gnu.org>
parents:
49779
diff
changeset
|
2644 ;; Default to A4 paper if we're not in a C, POSIX or US locale. |
51979
c10df4bc9f06
(set-locale-environment): langinfo renamed to locale-info.
Richard M. Stallman <rms@gnu.org>
parents:
51865
diff
changeset
|
2645 ;; (See comments in Flocale_info.) |
83594
2716535391b7
Rudimentary fix for environment variable handling.
Miles Bader <miles@gnu.org>
parents:
83556
diff
changeset
|
2646 (unless frame |
83300
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2647 (let ((locale locale) |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2648 (paper (locale-info 'paper))) |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2649 (if paper |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2650 ;; This will always be null at the time of writing. |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2651 (cond |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2652 ((equal paper '(216 279)) |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2653 (setq ps-paper-type 'letter)) |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2654 ((equal paper '(210 297)) |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2655 (setq ps-paper-type 'a4))) |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2656 (let ((vars '("LC_ALL" "LC_PAPER" "LANG"))) |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2657 (while (and vars (= 0 (length locale))) |
83594
2716535391b7
Rudimentary fix for environment variable handling.
Miles Bader <miles@gnu.org>
parents:
83556
diff
changeset
|
2658 (setq locale (getenv (pop vars) frame)))) |
83300
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2659 (when locale |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2660 ;; As of glibc 2.2.5, these are the only US Letter locales, |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2661 ;; and the rest are A4. |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2662 (setq ps-paper-type |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2663 (or (locale-name-match locale '(("c$" . letter) |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2664 ("posix$" . letter) |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2665 (".._us" . letter) |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2666 (".._pr" . letter) |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2667 (".._ca" . letter) |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2668 ("enu$" . letter) ; Windows |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2669 ("esu$" . letter) |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2670 ("enc$" . letter) |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2671 ("frc$" . letter))) |
6deb860255f3
Support for ttys with different character locale settings.
Karoly Lorentey <lorentey@elte.hu>
parents:
83298
diff
changeset
|
2672 'a4))))))) |
49796
9444af9dba75
(locale-language-names): Use Italian,
Dave Love <fx@gnu.org>
parents:
49779
diff
changeset
|
2673 nil) |
26085
2473e4ca59b3
* international/mule-cmds.el (global-map):
Paul Eggert <eggert@twinsun.com>
parents:
26010
diff
changeset
|
2674 |
90090
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2675 ;;; Character property |
17052 | 2676 |
90090
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2677 ;; Each element has the form (PROP . TABLE). |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2678 ;; PROP is a symbol representing a character property. |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2679 ;; TABLE is a char-table containing the property value for each character. |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2680 ;; TABLE may be a name of file to load to build a char-table. |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2681 ;; Don't modify this variable directly but use `define-char-code-property'. |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2682 |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2683 (defvar char-code-property-alist nil |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2684 "Alist of character property name vs char-table containing property values. |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2685 Internal use only.") |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2686 |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2687 (put 'char-code-property-table 'char-table-extra-slots 5) |
17052 | 2688 |
90090
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2689 (defun define-char-code-property (name table &optional docstring) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2690 "Define NAME as a character code property given by TABLE. |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2691 TABLE is a char-table of purpose `char-code-property-table' with |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2692 these extra slots: |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2693 1st: NAME. |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2694 2nd: Function to call to get a property value of a character. |
90861
4f7df84e666c
(toggle-enable-multibyte-characters, sort-coding-systems,
Juanma Barranquero <lekktu@gmail.com>
parents:
90776
diff
changeset
|
2695 It is called with three arguments CHAR, VAL, and TABLE, where |
90090
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2696 CHAR is a character, VAL is the value of (aref TABLE CHAR). |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2697 3rd: Function to call to put a property value of a character. |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2698 It is called with the same arguments as above. |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2699 4th: Function to call to get a description string of a property value. |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2700 It is called with one argument VALUE, a property value. |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2701 5th: Data used by the above functions. |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2702 |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2703 TABLE may be a name of file to load to build a char-table. The |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2704 file should contain a call of `define-char-code-property' with a |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2705 char-table of the above format as the argument TABLE. |
17052 | 2706 |
90090
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2707 TABLE may also be nil, in which case no property value is pre-assigned. |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2708 |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2709 Optional 3rd argment DOCSTRING is a documentation string of the property. |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2710 |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2711 See also the documentation of `get-char-code-property' and |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2712 `put-char-code-property'." |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2713 (or (symbolp name) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2714 (error "Not a symbol: %s" name)) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2715 (if (char-table-p table) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2716 (or (and (eq (char-table-subtype table) 'char-code-property-table) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2717 (eq (char-table-extra-slot table 0) name)) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2718 (error "Invalid char-table: %s" table)) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2719 (or (stringp table) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2720 (error "Not a char-table nor a file name: %s" table))) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2721 (let ((slot (assq name char-code-property-alist))) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2722 (if slot |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2723 (setcdr slot table) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2724 (setq char-code-property-alist |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2725 (cons (cons name table) char-code-property-alist)))) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2726 (put name 'char-code-property-documentation docstring)) |
17052 | 2727 |
2728 (defvar char-code-property-table | |
2729 (make-char-table 'char-code-property-table) | |
2730 "Char-table containing a property list of each character code. | |
90090
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2731 This table is used for properties not listed in `char-code-property-alist'. |
17052 | 2732 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
|
2733 `put-char-code-property'.") |
17052 | 2734 |
2735 (defun get-char-code-property (char propname) | |
90090
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2736 "Return the value of CHAR's PROPNAME property." |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2737 (let ((slot (assq propname char-code-property-alist))) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2738 (if slot |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2739 (let (table value func) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2740 (if (stringp (cdr slot)) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2741 (load (cdr slot))) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2742 (setq table (cdr slot) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2743 value (aref table char) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2744 func (char-table-extra-slot table 1)) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2745 (if (functionp func) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2746 (setq value (funcall func char value table))) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2747 value) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2748 (plist-get (aref char-code-property-table char) propname)))) |
17052 | 2749 |
2750 (defun put-char-code-property (char propname value) | |
90090
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2751 "Store CHAR's PROPNAME property with VALUE. |
17052 | 2752 It can be retrieved with `(get-char-code-property CHAR PROPNAME)'." |
90090
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2753 (let ((slot (assq propname char-code-property-alist))) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2754 (if slot |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2755 (let (table func) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2756 (if (stringp (cdr slot)) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2757 (load (cdr slot))) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2758 (setq table (cdr slot) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2759 func (char-table-extra-slot table 2)) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2760 (if (functionp func) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2761 (funcall func char value table) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2762 (aset table char value))) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2763 (let* ((plist (aref char-code-property-table char)) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2764 (x (plist-put plist propname value))) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2765 (or (eq x plist) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2766 (aset char-code-property-table char x)))) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2767 value)) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2768 |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2769 (defun char-code-property-description (prop value) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2770 "Return a description string of character property PROP's value VALUE. |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2771 If there's no description string for VALUE, return nil." |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2772 (let ((slot (assq prop char-code-property-alist))) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2773 (if slot |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2774 (let (table func) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2775 (if (stringp (cdr slot)) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2776 (load (cdr slot))) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2777 (setq table (cdr slot) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2778 func (char-table-extra-slot table 3)) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2779 (if (functionp func) |
ac848d0fb1d2
(set-language-environment): Check :ascii-compatible-p property of
Kenichi Handa <handa@m17n.org>
parents:
90085
diff
changeset
|
2780 (funcall func value)))))) |
17052 | 2781 |
24399
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2782 |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2783 ;; Pretty description of encoded string |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2784 |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2785 ;; 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
|
2786 (defvar iso-2022-control-alist |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2787 '((?\x1b . "ESC") |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2788 (?\x0e . "SO") |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2789 (?\x0f . "SI") |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2790 (?\x8e . "SS2") |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2791 (?\x8f . "SS3") |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2792 (?\x9b . "CSI"))) |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2793 |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2794 (defun encoded-string-description (str coding-system) |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2795 "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
|
2796 (setq str (string-as-unibyte str)) |
28475
5eb1da819180
(encoded-string-description):
Kenichi Handa <handa@m17n.org>
parents:
28456
diff
changeset
|
2797 (mapconcat |
88796
d740bbf6ca68
(sort-coding-systems): Comment out
Dave Love <fx@gnu.org>
parents:
88769
diff
changeset
|
2798 (if (and coding-system (eq (coding-system-type coding-system) 'iso-2022)) |
28475
5eb1da819180
(encoded-string-description):
Kenichi Handa <handa@m17n.org>
parents:
28456
diff
changeset
|
2799 ;; Try to get a pretty description for ISO 2022 escape sequences. |
5eb1da819180
(encoded-string-description):
Kenichi Handa <handa@m17n.org>
parents:
28456
diff
changeset
|
2800 (function (lambda (x) (or (cdr (assq x iso-2022-control-alist)) |
67036
d7b4fada70f0
(encoded-string-description): Use Lisp-readable syntax for hex.
Juri Linkov <juri@jurta.org>
parents:
67025
diff
changeset
|
2801 (format "#x%02X" x)))) |
d7b4fada70f0
(encoded-string-description): Use Lisp-readable syntax for hex.
Juri Linkov <juri@jurta.org>
parents:
67025
diff
changeset
|
2802 (function (lambda (x) (format "#x%02X" x)))) |
28475
5eb1da819180
(encoded-string-description):
Kenichi Handa <handa@m17n.org>
parents:
28456
diff
changeset
|
2803 str " ")) |
24399
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2804 |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2805 (defun encode-coding-char (char coding-system) |
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2806 "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
|
2807 If CODING-SYSTEM can't safely encode CHAR, return nil." |
96325
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2808 (let* ((str1 (string-as-multibyte (string char))) |
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2809 (str2 (string-as-multibyte (string char char))) |
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2810 (found (find-coding-systems-string str1)) |
24399
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2811 enc1 enc2 i1 i2) |
96325
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2812 (if (and (consp found) |
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2813 (eq (car found) 'undecided)) |
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2814 str1 |
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2815 (when (memq (coding-system-base coding-system) found) |
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2816 ;; We must find the encoded string of CHAR. But, just encoding |
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2817 ;; CHAR will put extra control sequences (usually to designate |
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2818 ;; ASCII charset) at the tail if type of CODING is ISO 2022. |
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2819 ;; To exclude such tailing bytes, we at first encode one-char |
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2820 ;; string and two-char string, then check how many bytes at the |
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2821 ;; tail of both encoded strings are the same. |
24399
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2822 |
96325
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2823 (setq enc1 (encode-coding-string str1 coding-system) |
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2824 i1 (length enc1) |
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2825 enc2 (encode-coding-string str2 coding-system) |
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2826 i2 (length enc2)) |
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2827 (while (and (> i1 0) (= (aref enc1 (1- i1)) (aref enc2 (1- i2)))) |
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2828 (setq i1 (1- i1) i2 (1- i2))) |
24399
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2829 |
96325
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2830 ;; Now (substring enc1 i1) and (substring enc2 i2) are the same, |
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2831 ;; and they are the extra control sequences at the tail to |
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2832 ;; exclude. |
7069b5203540
(encode-coding-char): Fix for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
2833 (substring enc2 0 i2))))) |
24399
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2834 |
88702 | 2835 ;; Backwards compatibility. These might be better with :init-value t, |
2836 ;; but that breaks loadup. | |
2837 (define-minor-mode unify-8859-on-encoding-mode | |
2838 "Obsolete." | |
2839 :group 'mule | |
2840 :global t) | |
2841 (define-minor-mode unify-8859-on-decoding-mode | |
2842 "Obsolete." | |
2843 :group 'mule | |
2844 :global t) | |
24399
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2845 |
88981
28fee7bb4dab
(reset-language-environment): Don't
Kenichi Handa <handa@m17n.org>
parents:
88837
diff
changeset
|
2846 (defvar nonascii-insert-offset 0 "This variable is obsolete.") |
28fee7bb4dab
(reset-language-environment): Don't
Kenichi Handa <handa@m17n.org>
parents:
88837
diff
changeset
|
2847 (defvar nonascii-translation-table nil "This variable is obsolete.") |
28fee7bb4dab
(reset-language-environment): Don't
Kenichi Handa <handa@m17n.org>
parents:
88837
diff
changeset
|
2848 |
90658
9aecc02933e3
(ucs-insert): Re-implement.
Kenichi Handa <handa@m17n.org>
parents:
90614
diff
changeset
|
2849 (defun ucs-insert (arg) |
9aecc02933e3
(ucs-insert): Re-implement.
Kenichi Handa <handa@m17n.org>
parents:
90614
diff
changeset
|
2850 "Insert a character of the given Unicode code point. |
9aecc02933e3
(ucs-insert): Re-implement.
Kenichi Handa <handa@m17n.org>
parents:
90614
diff
changeset
|
2851 Interactively, prompts for a hex string giving the code." |
9aecc02933e3
(ucs-insert): Re-implement.
Kenichi Handa <handa@m17n.org>
parents:
90614
diff
changeset
|
2852 (interactive "sUnicode (hex): ") |
9aecc02933e3
(ucs-insert): Re-implement.
Kenichi Handa <handa@m17n.org>
parents:
90614
diff
changeset
|
2853 (or (integerp arg) |
9aecc02933e3
(ucs-insert): Re-implement.
Kenichi Handa <handa@m17n.org>
parents:
90614
diff
changeset
|
2854 (setq arg (string-to-number arg 16))) |
9aecc02933e3
(ucs-insert): Re-implement.
Kenichi Handa <handa@m17n.org>
parents:
90614
diff
changeset
|
2855 (if (or (< arg 0) (> arg #x10FFFF)) |
9aecc02933e3
(ucs-insert): Re-implement.
Kenichi Handa <handa@m17n.org>
parents:
90614
diff
changeset
|
2856 (error "Not a Unicode character code: 0x%X" arg)) |
91778
e875ea8ab4d2
(ucs-insert): Inherit surrounding properties like self-insert-command.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91681
diff
changeset
|
2857 (insert-and-inherit arg)) |
90658
9aecc02933e3
(ucs-insert): Re-implement.
Kenichi Handa <handa@m17n.org>
parents:
90614
diff
changeset
|
2858 |
24399
eb23f0e62cd5
(iso-2022-control-alist): New variable.
Kenichi Handa <handa@m17n.org>
parents:
24300
diff
changeset
|
2859 |
58055
005c3ebdd545
(select-safe-coding-system-interactively):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57932
diff
changeset
|
2860 ;; arch-tag: b382c432-4b36-460e-bf4c-05efd0bb18dc |
17052 | 2861 ;;; mule-cmds.el ends here |