Mercurial > emacs
annotate lisp/international/mule-diag.el @ 79408:a29ca195b71e
(c-crosses-statement-barrier-p): Fix typo in docstring.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Thu, 15 Nov 2007 18:27:06 +0000 |
parents | 2daf9c28b3a4 |
children | b6fdfff4ae81 90defdcad2cb f55f9811f5d7 |
rev | line source |
---|---|
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36989
diff
changeset
|
1 ;;; mule-diag.el --- show diagnosis of multilingual environment (Mule) |
17052 | 2 |
74544 | 3 ;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, |
75347 | 4 ;; 2005, 2006, 2007 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, |
75347 | 6 ;; 2005, 2006, 2007 |
62274 | 7 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
8 ;; Registration Number H14PRO021 | |
17052 | 9 |
27953 | 10 ;; Keywords: multilingual, charset, coding system, fontset, diagnosis, i18n |
17052 | 11 |
12 ;; This file is part of GNU Emacs. | |
13 | |
14 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
15 ;; it under the terms of the GNU General Public License as published by | |
78310
2daf9c28b3a4
Restore comma mistakenly removed in last change.
Glenn Morris <rgm@gnu.org>
parents:
78301
diff
changeset
|
16 ;; the Free Software Foundation; either version 3, or (at your option) |
17052 | 17 ;; any later version. |
18 | |
19 ;; GNU Emacs is distributed in the hope that it will be useful, | |
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
22 ;; GNU General Public License for more details. | |
23 | |
24 ;; You should have received a copy of the GNU General Public License | |
17071 | 25 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 26 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
27 ;; Boston, MA 02110-1301, USA. | |
17052 | 28 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36989
diff
changeset
|
29 ;;; Commentary: |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36989
diff
changeset
|
30 |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36989
diff
changeset
|
31 ;;; Code: |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36989
diff
changeset
|
32 |
40722
1b9616706fd5
(help-funs): Require help-funs.
Richard M. Stallman <rms@gnu.org>
parents:
40664
diff
changeset
|
33 ;; Make sure the help-xref button type is defined. |
41586
f41a14872734
Require help-fns instead of help-funs.
Eli Zaretskii <eliz@gnu.org>
parents:
40722
diff
changeset
|
34 (require 'help-fns) |
40722
1b9616706fd5
(help-funs): Require help-funs.
Richard M. Stallman <rms@gnu.org>
parents:
40664
diff
changeset
|
35 |
17052 | 36 ;;; General utility function |
37 | |
38 ;; Print all arguments with single space separator in one line. | |
39 (defun print-list (&rest args) | |
40 (while (cdr args) | |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
41 (when (car args) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
42 (princ (car args)) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
43 (princ " ")) |
17052 | 44 (setq args (cdr args))) |
45 (princ (car args)) | |
46 (princ "\n")) | |
47 | |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
48 ;; Re-order the elements of charset-list. |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
49 (defun sort-charset-list () |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
50 (setq charset-list |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
51 (sort charset-list |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
52 (lambda (x y) (< (charset-id x) (charset-id y)))))) |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
53 |
17052 | 54 ;;; CHARSET |
55 | |
40639 | 56 (define-button-type 'sort-listed-character-sets |
57 'help-echo (purecopy "mouse-2, RET: sort on this column") | |
58 'face 'bold | |
59 'action #'(lambda (button) | |
60 (sort-listed-character-sets (button-get button 'sort-key)))) | |
61 | |
62 (define-button-type 'list-charset-chars | |
63 :supertype 'help-xref | |
64 'help-function #'list-charset-chars | |
65 'help-echo "mouse-2, RET: show table of characters for this character set") | |
66 | |
52126
69fcfc4c947a
(non-iso-charset-alist): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents:
50496
diff
changeset
|
67 ;;;###autoload |
63270
a7abe3ce0bc5
(describe-coding-system): Fix spellings in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
62274
diff
changeset
|
68 (defvar non-iso-charset-alist |
52440
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
69 `((mac-roman |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
70 (ascii latin-iso8859-1 mule-unicode-2500-33ff |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
71 mule-unicode-0100-24ff mule-unicode-e000-ffff) |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
72 mac-roman-decoder |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
73 ((0 255))) |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
74 (viscii |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
75 (ascii vietnamese-viscii-lower vietnamese-viscii-upper) |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
76 viet-viscii-nonascii-translation-table |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
77 ((0 255))) |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
78 (vietnamese-tcvn |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
79 (ascii vietnamese-viscii-lower vietnamese-viscii-upper) |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
80 viet-tcvn-nonascii-translation-table |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
81 ((0 255))) |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
82 (koi8-r |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
83 (ascii cyrillic-iso8859-5) |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
84 cyrillic-koi8-r-nonascii-translation-table |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
85 ((32 255))) |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
86 (alternativnyj |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
87 (ascii cyrillic-iso8859-5) |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
88 cyrillic-alternativnyj-nonascii-translation-table |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
89 ((32 255))) |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
90 (koi8-u |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
91 (ascii cyrillic-iso8859-5 mule-unicode-0100-24ff) |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
92 cyrillic-koi8-u-nonascii-translation-table |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
93 ((32 255))) |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
94 (big5 |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
95 (ascii chinese-big5-1 chinese-big5-2) |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
96 decode-big5-char |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
97 ((32 127) |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
98 ((?\xA1 ?\xFE) . (?\x40 ?\x7E ?\xA1 ?\xFE)))) |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
99 (sjis |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
100 (ascii katakana-jisx0201 japanese-jisx0208) |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
101 decode-sjis-char |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
102 ((32 127 ?\xA1 ?\xDF) |
7d80b248f20e
(non-iso-charset-alist): Revert to defining in defvar -- OK with the
Dave Love <fx@gnu.org>
parents:
52433
diff
changeset
|
103 ((?\x81 ?\x9F ?\xE0 ?\xEF) . (?\x40 ?\x7E ?\x80 ?\xFC))))) |
48050 | 104 "Alist of charset names vs the corresponding information. |
105 This is mis-named for historical reasons. The charsets are actually | |
106 non-built-in ones. They correspond to Emacs coding systems, not Emacs | |
107 charsets, i.e. what Emacs can read (or write) by mapping to (or | |
108 from) Emacs internal charsets that typically correspond to a limited | |
109 set of ISO charsets. | |
110 | |
111 Each element has the following format: | |
112 (CHARSET CHARSET-LIST TRANSLATION-METHOD [ CODE-RANGE ]) | |
113 | |
114 CHARSET is the name (symbol) of the charset. | |
115 | |
116 CHARSET-LIST is a list of Emacs charsets into which characters of | |
117 CHARSET are mapped. | |
118 | |
119 TRANSLATION-METHOD is a translation table (symbol) to translate a | |
120 character code of CHARSET to the corresponding Emacs character | |
121 code. It can also be a function to call with one argument, a | |
122 character code in CHARSET. | |
123 | |
124 CODE-RANGE specifies the valid code ranges of CHARSET. | |
125 It is a list of RANGEs, where each RANGE is of the form: | |
126 (FROM1 TO1 FROM2 TO2 ...) | |
127 or | |
128 ((FROM1-1 TO1-1 FROM1-2 TO1-2 ...) . (FROM2-1 TO2-1 FROM2-2 TO2-2 ...)) | |
129 In the first form, valid codes are between FROM1 and TO1, or FROM2 and | |
130 TO2, or... | |
131 The second form is used for 2-byte codes. The car part is the ranges | |
132 of the first byte, and the cdr part is the ranges of the second byte.") | |
40639 | 133 |
17052 | 134 ;;;###autoload |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
135 (defun list-character-sets (arg) |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
136 "Display a list of all character sets. |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
137 |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
138 The ID-NUM column contains a charset identification number for |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
139 internal Emacs use. |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
140 |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
141 The MULTIBYTE-FORM column contains the format of the buffer and string |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
142 multibyte sequence of characters in the charset using one to four |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
143 hexadecimal digits. |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
144 `xx' stands for any byte in the range 0..127. |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
145 `XX' stands for any byte in the range 160..255. |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
146 |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
147 The D column contains the dimension of this character set. The CH |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
148 column contains the number of characters in a block of this character |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
149 set. The FINAL-CHAR column contains an ISO-2022 <final-char> to use |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
150 for designating this character set in ISO-2022-based coding systems. |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
151 |
22306 | 152 With prefix arg, the output format gets more cryptic, |
153 but still shows the full information." | |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
154 (interactive "P") |
40664
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
155 (help-setup-xref (list #'list-character-sets arg) (interactive-p)) |
47603
28c9630ee23e
(list-character-sets): Use the buffer
Kenichi Handa <handa@m17n.org>
parents:
47548
diff
changeset
|
156 (with-output-to-temp-buffer "*Character Set List*" |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
157 (with-current-buffer standard-output |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
158 (if arg |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
159 (list-character-sets-2) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
160 ;; Insert header. |
47605
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
161 (insert "Indirectly supported character sets are shown below.\n") |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
162 (insert |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
163 (substitute-command-keys |
27973
cf535f97695d
(list-character-sets): Make help-echo
Kenichi Handa <handa@m17n.org>
parents:
27953
diff
changeset
|
164 (concat "Use " |
cf535f97695d
(list-character-sets): Make help-echo
Kenichi Handa <handa@m17n.org>
parents:
27953
diff
changeset
|
165 (if (display-mouse-p) "\\[help-follow-mouse] or ") |
cf535f97695d
(list-character-sets): Make help-echo
Kenichi Handa <handa@m17n.org>
parents:
27953
diff
changeset
|
166 "\\[help-follow]:\n"))) |
cf535f97695d
(list-character-sets): Make help-echo
Kenichi Handa <handa@m17n.org>
parents:
27953
diff
changeset
|
167 (insert " on a column title to sort by that title,") |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
168 (indent-to 56) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
169 (insert "+----DIMENSION\n") |
27973
cf535f97695d
(list-character-sets): Make help-echo
Kenichi Handa <handa@m17n.org>
parents:
27953
diff
changeset
|
170 (insert " on a charset name to list characters.") |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
171 (indent-to 56) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
172 (insert "| +--CHARS\n") |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
173 (let ((columns '(("ID-NUM" . id) "\t" |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
174 ("CHARSET-NAME" . name) "\t\t\t" |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
175 ("MULTIBYTE-FORM" . id) "\t" |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
176 ("D CH FINAL-CHAR" . iso-spec))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
177 pos) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
178 (while columns |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
179 (if (stringp (car columns)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
180 (insert (car columns)) |
40639 | 181 (insert-text-button (car (car columns)) |
182 :type 'sort-listed-character-sets | |
183 'sort-key (cdr (car columns))) | |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
184 (goto-char (point-max))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
185 (setq columns (cdr columns))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
186 (insert "\n")) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
187 (insert "------\t------------\t\t\t--------------\t- -- ----------\n") |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
188 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
189 ;; Insert body sorted by charset IDs. |
47605
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
190 (list-character-sets-1 'id) |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
191 |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
192 ;; Insert non-directly-supported charsets. |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
193 (insert-char ?- 72) |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
194 (insert "\n\nINDIRECTLY SUPPORTED CHARSETS SETS:\n\n" |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
195 (propertize "CHARSET NAME\tMAPPED TO" 'face 'bold) |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
196 "\n------------\t---------\n") |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
197 (dolist (elt non-iso-charset-alist) |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
198 (insert-text-button (symbol-name (car elt)) |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
199 :type 'list-charset-chars |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
200 'help-args (list (car elt))) |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
201 (indent-to 16) |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
202 (dolist (e (nth 1 elt)) |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
203 (when (>= (+ (current-column) 1 (string-width (symbol-name e))) |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
204 ;; This is an approximate value. We don't know |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
205 ;; the correct window width of this buffer yet. |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
206 78) |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
207 (insert "\n") |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
208 (indent-to 16)) |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
209 |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
210 (insert (format "%s " e))) |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
211 (insert "\n")))))) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
212 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
213 (defun sort-listed-character-sets (sort-key) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
214 (if sort-key |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
215 (save-excursion |
40664
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
216 (help-setup-xref (list #'list-character-sets nil) t) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
217 (let ((buffer-read-only nil)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
218 (goto-char (point-min)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
219 (re-search-forward "[0-9][0-9][0-9]") |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
220 (beginning-of-line) |
47605
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
221 (let ((pos (point))) |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
222 (search-forward "----------") |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
223 (beginning-of-line) |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
224 (save-restriction |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
225 (narrow-to-region pos (point)) |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
226 (delete-region (point-min) (point-max)) |
22df356e38df
(list-character-sets): List also indirectly supported character sets.
Kenichi Handa <handa@m17n.org>
parents:
47603
diff
changeset
|
227 (list-character-sets-1 sort-key))))))) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
228 |
31246
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
229 (defun charset-multibyte-form-string (charset) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
230 (let ((info (charset-info charset))) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
231 (cond ((eq charset 'ascii) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
232 "xx") |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
233 ((eq charset 'eight-bit-control) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
234 (format "%2X Xx" (aref info 6))) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
235 ((eq charset 'eight-bit-graphic) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
236 "XX") |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
237 (t |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
238 (let ((str (format "%2X" (aref info 6)))) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
239 (if (> (aref info 7) 0) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
240 (setq str (format "%s %2X" |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
241 str (aref info 7)))) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
242 (setq str (concat str " XX")) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
243 (if (> (aref info 2) 1) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
244 (setq str (concat str " XX"))) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
245 str))))) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
246 |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
247 ;; Insert a list of character sets sorted by SORT-KEY. SORT-KEY |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
248 ;; should be one of `id', `name', and `iso-spec'. If SORT-KEY is nil, |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
249 ;; it defaults to `id'. |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
250 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
251 (defun list-character-sets-1 (sort-key) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
252 (or sort-key |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
253 (setq sort-key 'id)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
254 (let ((tail (charset-list)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
255 charset-info-list elt charset info sort-func) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
256 (while tail |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
257 (setq charset (car tail) tail (cdr tail) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
258 info (charset-info charset)) |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
259 |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
260 ;; Generate a list that contains all information to display. |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
261 (setq charset-info-list |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
262 (cons (list (charset-id charset) ; ID-NUM |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
263 charset ; CHARSET-NAME |
31246
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
264 (charset-multibyte-form-string charset); MULTIBYTE-FORM |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
265 (aref info 2) ; DIMENSION |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
266 (aref info 3) ; CHARS |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
267 (aref info 8) ; FINAL-CHAR |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
268 ) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
269 charset-info-list))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
270 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
271 ;; Determine a predicate for `sort' by SORT-KEY. |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
272 (setq sort-func |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
273 (cond ((eq sort-key 'id) |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
274 (lambda (x y) (< (car x) (car y)))) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
275 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
276 ((eq sort-key 'name) |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
277 (lambda (x y) (string< (nth 1 x) (nth 1 y)))) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
278 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
279 ((eq sort-key 'iso-spec) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
280 ;; Sort by DIMENSION CHARS FINAL-CHAR |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
281 (lambda (x y) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
282 (or (< (nth 3 x) (nth 3 y)) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
283 (and (= (nth 3 x) (nth 3 y)) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
284 (or (< (nth 4 x) (nth 4 y)) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
285 (and (= (nth 4 x) (nth 4 y)) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
286 (< (nth 5 x) (nth 5 y)))))))) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
287 (t |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
288 (error "Invalid charset sort key: %s" sort-key)))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
289 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
290 (setq charset-info-list (sort charset-info-list sort-func)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
291 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
292 ;; Insert information of character sets. |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
293 (while charset-info-list |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
294 (setq elt (car charset-info-list) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
295 charset-info-list (cdr charset-info-list)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
296 (insert (format "%03d(%02X)" (car elt) (car elt))) ; ID-NUM |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
297 (indent-to 8) |
40639 | 298 (insert-text-button (symbol-name (nth 1 elt)) |
299 :type 'list-charset-chars | |
300 'help-args (list (nth 1 elt))) | |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
301 (goto-char (point-max)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
302 (insert "\t") |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
303 (indent-to 40) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
304 (insert (nth 2 elt)) ; MULTIBYTE-FORM |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
305 (indent-to 56) |
29026
3666bafb45c7
(list-character-sets-1): Handle
Kenichi Handa <handa@m17n.org>
parents:
28964
diff
changeset
|
306 (insert (format "%d %2d " (nth 3 elt) (nth 4 elt)) ; DIMENSION and CHARS |
3666bafb45c7
(list-character-sets-1): Handle
Kenichi Handa <handa@m17n.org>
parents:
28964
diff
changeset
|
307 (if (< (nth 5 elt) 0) "none" (nth 5 elt))) ; FINAL-CHAR |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
308 (insert "\n")))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
309 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
310 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
311 ;; List all character sets in a form that a program can easily parse. |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
312 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
313 (defun list-character-sets-2 () |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
314 (insert "######################### |
17052 | 315 ## LIST OF CHARSETS |
316 ## Each line corresponds to one charset. | |
317 ## The following attributes are listed in this order | |
318 ## separated by a colon `:' in one line. | |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
319 ## CHARSET-ID, |
17052 | 320 ## CHARSET-SYMBOL-NAME, |
321 ## DIMENSION (1 or 2) | |
322 ## CHARS (94 or 96) | |
323 ## BYTES (of multibyte form: 1, 2, 3, or 4), | |
324 ## WIDTH (occupied column numbers: 1 or 2), | |
325 ## DIRECTION (0:left-to-right, 1:right-to-left), | |
326 ## ISO-FINAL-CHAR (character code of ISO-2022's final character) | |
327 ## ISO-GRAPHIC-PLANE (ISO-2022's graphic plane, 0:GL, 1:GR) | |
328 ## DESCRIPTION (describing string of the charset) | |
329 ") | |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
330 (let ((l charset-list) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
331 charset) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
332 (while l |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
333 (setq charset (car l) l (cdr l)) |
30765
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
334 (princ (format "%03d:%s:%d:%d:%d:%d:%d:%d:%d:%s\n" |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
335 (charset-id charset) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
336 charset |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
337 (charset-dimension charset) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
338 (charset-chars charset) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
339 (charset-bytes charset) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
340 (charset-width charset) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
341 (charset-direction charset) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
342 (charset-iso-final-char charset) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
343 (charset-iso-graphic-plane charset) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
344 (charset-description charset)))))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
345 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
346 (defun decode-codepage-char (codepage code) |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
347 "Decode a character that has code CODE in CODEPAGE. |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
348 Return a decoded character string. Each CODEPAGE corresponds to a |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
349 coding system cpCODEPAGE." |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
350 (let ((coding-system (intern (format "cp%d" codepage)))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
351 (or (coding-system-p coding-system) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
352 (codepage-setup codepage)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
353 (string-to-char |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
354 (decode-coding-string (char-to-string code) coding-system)))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
355 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
356 ;; A variable to hold charset input history. |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
357 (defvar charset-history nil) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
358 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
359 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
360 ;;;###autoload |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
361 (defun read-charset (prompt &optional default-value initial-input) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
362 "Read a character set from the minibuffer, prompting with string PROMPT. |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
363 It must be an Emacs character set listed in the variable `charset-list' |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
364 or a non-ISO character set listed in the variable |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
365 `non-iso-charset-alist'. |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
366 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
367 Optional arguments are DEFAULT-VALUE and INITIAL-INPUT. |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
368 DEFAULT-VALUE, if non-nil, is the default value. |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
369 INITIAL-INPUT, if non-nil, is a string inserted in the minibuffer initially. |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
370 See the documentation of the function `completing-read' for the |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
371 detailed meanings of these arguments." |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
372 (let* ((table (append (mapcar (lambda (x) (list (symbol-name x))) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
373 charset-list) |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
374 (mapcar (lambda (x) (list (symbol-name (car x)))) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
375 non-iso-charset-alist))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
376 (charset (completing-read prompt table |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
377 nil t initial-input 'charset-history |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
378 default-value))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
379 (if (> (length charset) 0) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
380 (intern charset)))) |
30765
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
381 |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
382 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
383 ;; List characters of the range MIN and MAX of CHARSET. If dimension |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
384 ;; of CHARSET is two (i.e. 2-byte charset), ROW is the first byte |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
385 ;; (block index) of the characters, and MIN and MAX are the second |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
386 ;; bytes of the characters. If the dimension is one, ROW should be 0. |
29454
f0dee30140f0
(non-iso-charset-alist): Specify
Kenichi Handa <handa@m17n.org>
parents:
29228
diff
changeset
|
387 ;; For a non-ISO charset, CHARSET is a translation table (symbol) or a |
f0dee30140f0
(non-iso-charset-alist): Specify
Kenichi Handa <handa@m17n.org>
parents:
29228
diff
changeset
|
388 ;; function to get Emacs' character codes that corresponds to the |
f0dee30140f0
(non-iso-charset-alist): Specify
Kenichi Handa <handa@m17n.org>
parents:
29228
diff
changeset
|
389 ;; characters to list. |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
390 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
391 (defun list-block-of-chars (charset row min max) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
392 (let (i ch) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
393 (insert-char ?- (+ 4 (* 3 16))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
394 (insert "\n ") |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
395 (setq i 0) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
396 (while (< i 16) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
397 (insert (format "%3X" i)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
398 (setq i (1+ i))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
399 (setq i (* (/ min 16) 16)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
400 (while (<= i max) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
401 (if (= (% i 16) 0) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
402 (insert (format "\n%3Xx" (/ (+ (* row 256) i) 16)))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
403 (setq ch (cond ((< i min) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
404 32) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
405 ((charsetp charset) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
406 (if (= row 0) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
407 (make-char charset i) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
408 (make-char charset row i))) |
29454
f0dee30140f0
(non-iso-charset-alist): Specify
Kenichi Handa <handa@m17n.org>
parents:
29228
diff
changeset
|
409 ((and (symbolp charset) (get charset 'translation-table)) |
f0dee30140f0
(non-iso-charset-alist): Specify
Kenichi Handa <handa@m17n.org>
parents:
29228
diff
changeset
|
410 (aref (get charset 'translation-table) i)) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
411 (t (funcall charset (+ (* row 256) i))))) |
29026
3666bafb45c7
(list-character-sets-1): Handle
Kenichi Handa <handa@m17n.org>
parents:
28964
diff
changeset
|
412 (if (and (char-table-p charset) |
3666bafb45c7
(list-character-sets-1): Handle
Kenichi Handa <handa@m17n.org>
parents:
28964
diff
changeset
|
413 (or (< ch 32) (and (>= ch 127) (<= ch 255)))) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
414 ;; Don't insert a control code. |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
415 (setq ch 32)) |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
416 (unless ch (setq ch 32)) |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
417 (if (eq ch ?\t) |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
418 ;; Make it visible. |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
419 (setq ch (propertize "\t" 'display "^I"))) |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
420 ;; This doesn't DTRT. Maybe it's better to insert "^J" and not |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
421 ;; worry about the buffer contents not being correct. |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
422 ;;; (if (eq ch ?\n) |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
423 ;;; (setq ch (propertize "\n" 'display "^J"))) |
29026
3666bafb45c7
(list-character-sets-1): Handle
Kenichi Handa <handa@m17n.org>
parents:
28964
diff
changeset
|
424 (indent-to (+ (* (% i 16) 3) 6)) |
3666bafb45c7
(list-character-sets-1): Handle
Kenichi Handa <handa@m17n.org>
parents:
28964
diff
changeset
|
425 (insert ch) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
426 (setq i (1+ i)))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
427 (insert "\n")) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
428 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
429 (defun list-iso-charset-chars (charset) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
430 (let ((dim (charset-dimension charset)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
431 (chars (charset-chars charset)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
432 (plane (charset-iso-graphic-plane charset)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
433 min max) |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
434 (insert (format "Characters in the coded character set %s.\n" charset)) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
435 |
29026
3666bafb45c7
(list-character-sets-1): Handle
Kenichi Handa <handa@m17n.org>
parents:
28964
diff
changeset
|
436 (cond ((eq charset 'eight-bit-control) |
3666bafb45c7
(list-character-sets-1): Handle
Kenichi Handa <handa@m17n.org>
parents:
28964
diff
changeset
|
437 (setq min 128 max 159)) |
3666bafb45c7
(list-character-sets-1): Handle
Kenichi Handa <handa@m17n.org>
parents:
28964
diff
changeset
|
438 ((eq charset 'eight-bit-graphic) |
3666bafb45c7
(list-character-sets-1): Handle
Kenichi Handa <handa@m17n.org>
parents:
28964
diff
changeset
|
439 (setq min 160 max 255)) |
3666bafb45c7
(list-character-sets-1): Handle
Kenichi Handa <handa@m17n.org>
parents:
28964
diff
changeset
|
440 (t |
3666bafb45c7
(list-character-sets-1): Handle
Kenichi Handa <handa@m17n.org>
parents:
28964
diff
changeset
|
441 (if (= chars 94) |
3666bafb45c7
(list-character-sets-1): Handle
Kenichi Handa <handa@m17n.org>
parents:
28964
diff
changeset
|
442 (setq min 33 max 126) |
3666bafb45c7
(list-character-sets-1): Handle
Kenichi Handa <handa@m17n.org>
parents:
28964
diff
changeset
|
443 (setq min 32 max 127)) |
3666bafb45c7
(list-character-sets-1): Handle
Kenichi Handa <handa@m17n.org>
parents:
28964
diff
changeset
|
444 (or (= plane 0) |
3666bafb45c7
(list-character-sets-1): Handle
Kenichi Handa <handa@m17n.org>
parents:
28964
diff
changeset
|
445 (setq min (+ min 128) max (+ max 128))))) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
446 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
447 (if (= dim 1) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
448 (list-block-of-chars charset 0 min max) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
449 (let ((i min)) |
33837
ee31f4f9b014
(list-iso-charset-chars): For two-byte charset, fix the `while' condition.
Kenichi Handa <handa@m17n.org>
parents:
31246
diff
changeset
|
450 (while (<= i max) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
451 (list-block-of-chars charset i min max) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
452 (setq i (1+ i))))))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
453 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
454 (defun list-non-iso-charset-chars (charset) |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
455 "List all characters in non-built-in coded character set CHARSET." |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
456 (let* ((slot (assq charset non-iso-charset-alist)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
457 (charsets (nth 1 slot)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
458 (translate-method (nth 2 slot)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
459 (ranges (nth 3 slot)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
460 range) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
461 (or slot |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
462 (error "Unknown character set: %s" charset)) |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
463 (insert (format "Characters in the coded character set %s.\n" charset)) |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
464 (if charsets |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
465 (insert "They are mapped to: " |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
466 (mapconcat #'symbol-name charsets ", ") |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
467 "\n")) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
468 (while ranges |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
469 (setq range (pop ranges)) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
470 (if (integerp (car range)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
471 ;; The form of RANGES is (FROM1 TO1 FROM2 TO2 ...). |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
472 (if (and (not (functionp translate-method)) |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
473 (< (car (last range)) 256)) |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
474 ;; Do it all in one block to avoid the listing being |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
475 ;; broken up at gaps in the range. Don't do that for |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
476 ;; function translate-method, since not all codes in |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
477 ;; that range may be valid. |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
478 (list-block-of-chars translate-method |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
479 0 (car range) (car (last range))) |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
480 (while range |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
481 (list-block-of-chars translate-method |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
482 0 (car range) (nth 1 range)) |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
483 (setq range (nthcdr 2 range)))) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
484 ;; The form of RANGES is ((FROM1-1 TO1-1 ...) . (FROM2-1 TO2-1 ...)). |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
485 (let ((row-range (car range)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
486 row row-max |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
487 col-range col col-max) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
488 (while row-range |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
489 (setq row (car row-range) row-max (nth 1 row-range) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
490 row-range (nthcdr 2 row-range)) |
33837
ee31f4f9b014
(list-iso-charset-chars): For two-byte charset, fix the `while' condition.
Kenichi Handa <handa@m17n.org>
parents:
31246
diff
changeset
|
491 (while (<= row row-max) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
492 (setq col-range (cdr range)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
493 (while col-range |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
494 (setq col (car col-range) col-max (nth 1 col-range) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
495 col-range (nthcdr 2 col-range)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
496 (list-block-of-chars translate-method row col col-max)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
497 (setq row (1+ row))))))))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
498 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
499 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
500 ;;;###autoload |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
501 (defun list-charset-chars (charset) |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
502 "Display a list of characters in the specified character set. |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
503 This can list both Emacs `official' (ISO standard) charsets and the |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
504 characters encoded by various Emacs coding systems which correspond to |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
505 PC `codepages' and other coded character sets. See `non-iso-charset-alist'." |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
506 (interactive (list (read-charset "Character set: "))) |
47603
28c9630ee23e
(list-character-sets): Use the buffer
Kenichi Handa <handa@m17n.org>
parents:
47548
diff
changeset
|
507 (with-output-to-temp-buffer "*Character List*" |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
508 (with-current-buffer standard-output |
47603
28c9630ee23e
(list-character-sets): Use the buffer
Kenichi Handa <handa@m17n.org>
parents:
47548
diff
changeset
|
509 (setq mode-line-format (copy-sequence mode-line-format)) |
28c9630ee23e
(list-character-sets): Use the buffer
Kenichi Handa <handa@m17n.org>
parents:
47548
diff
changeset
|
510 (let ((slot (memq 'mode-line-buffer-identification mode-line-format))) |
28c9630ee23e
(list-character-sets): Use the buffer
Kenichi Handa <handa@m17n.org>
parents:
47548
diff
changeset
|
511 (if slot |
28c9630ee23e
(list-character-sets): Use the buffer
Kenichi Handa <handa@m17n.org>
parents:
47548
diff
changeset
|
512 (setcdr slot |
28c9630ee23e
(list-character-sets): Use the buffer
Kenichi Handa <handa@m17n.org>
parents:
47548
diff
changeset
|
513 (cons (format " (%s)" charset) |
28c9630ee23e
(list-character-sets): Use the buffer
Kenichi Handa <handa@m17n.org>
parents:
47548
diff
changeset
|
514 (cdr slot))))) |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
515 (setq indent-tabs-mode nil) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
516 (set-buffer-multibyte t) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
517 (cond ((charsetp charset) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
518 (list-iso-charset-chars charset)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
519 ((assq charset non-iso-charset-alist) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
520 (list-non-iso-charset-chars charset)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
521 (t |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
522 (error "Invalid character set %s" charset)))))) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
523 |
28899
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
524 |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
525 ;;;###autoload |
31246
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
526 (defun describe-character-set (charset) |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
527 "Display information about built-in character set CHARSET." |
31246
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
528 (interactive (list (let ((non-iso-charset-alist nil)) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
529 (read-charset "Charset: ")))) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
530 (or (charsetp charset) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
531 (error "Invalid charset: %S" charset)) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
532 (let ((info (charset-info charset))) |
40664
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
533 (help-setup-xref (list #'describe-character-set charset) (interactive-p)) |
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
534 (with-output-to-temp-buffer (help-buffer) |
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
535 (with-current-buffer standard-output |
31246
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
536 (insert "Character set: " (symbol-name charset) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
537 (format " (ID:%d)\n\n" (aref info 0))) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
538 (insert (aref info 13) "\n\n") ; description |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
539 (insert "Number of contained characters: " |
31246
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
540 (if (= (aref info 2) 1) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
541 (format "%d\n" (aref info 3)) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
542 (format "%dx%d\n" (aref info 3) (aref info 3)))) |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
543 (insert "Final char of ISO2022 designation sequence: ") |
35747
e154e666c9ed
(describe-character-set): Pay attention to charsets that don't have
Kenichi Handa <handa@m17n.org>
parents:
35585
diff
changeset
|
544 (if (>= (aref info 8) 0) |
31246
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
545 (insert (format "`%c'\n" (aref info 8))) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
546 (insert "not assigned\n")) |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
547 (insert (format "Width (how many columns on screen): %d\n" |
31246
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
548 (aref info 4))) |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
549 (insert (format "Internal multibyte sequence: %s\n" |
31246
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
550 (charset-multibyte-form-string charset))) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
551 (let ((coding (plist-get (aref info 14) 'preferred-coding-system))) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
552 (when coding |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
553 (insert (format "Preferred coding system: %s\n" coding)) |
31246
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
554 (search-backward (symbol-name coding)) |
42163
126eaf6fdbcf
(describe-character-set): Fix the arg to help-xref-button.
Richard M. Stallman <rms@gnu.org>
parents:
41586
diff
changeset
|
555 (help-xref-button 0 'help-coding-system coding))))))) |
17052 | 556 |
557 ;;; CODING-SYSTEM | |
558 | |
559 ;; Print information of designation of each graphic register in FLAGS | |
560 ;; in human readable format. See the documentation of | |
561 ;; `make-coding-system' for the meaning of FLAGS. | |
562 (defun print-designation (flags) | |
563 (let ((graphic-register 0) | |
564 charset) | |
565 (while (< graphic-register 4) | |
566 (setq charset (aref flags graphic-register)) | |
567 (princ (format | |
568 " G%d -- %s\n" | |
569 graphic-register | |
570 (cond ((null charset) | |
571 "never used") | |
572 ((eq charset t) | |
573 "no initial designation, and used by any charsets") | |
574 ((symbolp charset) | |
575 (format "%s:%s" | |
576 charset (charset-description charset))) | |
577 ((listp charset) | |
578 (if (charsetp (car charset)) | |
52433
875975e6fae5
(non-iso-charset-alist): Define as
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
579 (format "%s:%s, and also used by the following:" |
17052 | 580 (car charset) |
581 (charset-description (car charset))) | |
52433
875975e6fae5
(non-iso-charset-alist): Define as
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
582 "no initial designation, and used by the following:")) |
17052 | 583 (t |
584 "invalid designation information")))) | |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
585 (when (listp charset) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
586 (setq charset (cdr charset)) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
587 (while charset |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
588 (cond ((eq (car charset) t) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
589 (princ "\tany other charsets\n")) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
590 ((charsetp (car charset)) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
591 (princ (format "\t%s:%s\n" |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
592 (car charset) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
593 (charset-description (car charset))))) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
594 (t |
30765
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
595 "invalid designation information")) |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
596 (setq charset (cdr charset)))) |
17052 | 597 (setq graphic-register (1+ graphic-register))))) |
598 | |
599 ;;;###autoload | |
600 (defun describe-coding-system (coding-system) | |
22306 | 601 "Display information about CODING-SYSTEM." |
65680
ed770a0a7846
2005-09-24 Emilio C. Lopes <eclig@gmx.net>
Romain Francoise <romain@orebokech.com>
parents:
64085
diff
changeset
|
602 (interactive "zDescribe coding system (default current choices): ") |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
603 (if (null coding-system) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
604 (describe-current-coding-system) |
40664
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
605 (help-setup-xref (list #'describe-coding-system coding-system) |
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
606 (interactive-p)) |
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
607 (with-output-to-temp-buffer (help-buffer) |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
608 (print-coding-system-briefly coding-system 'doc-string) |
42209
2c4fb0cccd48
(describe-coding-system, print-coding-system-briefly): Make printed output have a similar
Werner LEMBERG <wl@gnu.org>
parents:
42163
diff
changeset
|
609 (princ "\n") |
47709
1fcba19c7ae3
(describe-coding-system): Describe `dependency' property..
Kenichi Handa <handa@m17n.org>
parents:
47605
diff
changeset
|
610 (let ((vars (coding-system-get coding-system 'dependency))) |
1fcba19c7ae3
(describe-coding-system): Describe `dependency' property..
Kenichi Handa <handa@m17n.org>
parents:
47605
diff
changeset
|
611 (when vars |
1fcba19c7ae3
(describe-coding-system): Describe `dependency' property..
Kenichi Handa <handa@m17n.org>
parents:
47605
diff
changeset
|
612 (princ "See also the documentation of these customizable variables |
63270
a7abe3ce0bc5
(describe-coding-system): Fix spellings in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
62274
diff
changeset
|
613 which alter the behavior of this coding system.\n") |
47709
1fcba19c7ae3
(describe-coding-system): Describe `dependency' property..
Kenichi Handa <handa@m17n.org>
parents:
47605
diff
changeset
|
614 (dolist (v vars) |
1fcba19c7ae3
(describe-coding-system): Describe `dependency' property..
Kenichi Handa <handa@m17n.org>
parents:
47605
diff
changeset
|
615 (princ " `") |
1fcba19c7ae3
(describe-coding-system): Describe `dependency' property..
Kenichi Handa <handa@m17n.org>
parents:
47605
diff
changeset
|
616 (princ v) |
1fcba19c7ae3
(describe-coding-system): Describe `dependency' property..
Kenichi Handa <handa@m17n.org>
parents:
47605
diff
changeset
|
617 (princ "'\n")) |
1fcba19c7ae3
(describe-coding-system): Describe `dependency' property..
Kenichi Handa <handa@m17n.org>
parents:
47605
diff
changeset
|
618 (princ "\n"))) |
1fcba19c7ae3
(describe-coding-system): Describe `dependency' property..
Kenichi Handa <handa@m17n.org>
parents:
47605
diff
changeset
|
619 |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
620 (princ "Type: ") |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
621 (let ((type (coding-system-type coding-system)) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
622 (flags (coding-system-flags coding-system))) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
623 (princ type) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
624 (cond ((eq type nil) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
625 (princ " (do no conversion)")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
626 ((eq type t) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
627 (princ " (do automatic conversion)")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
628 ((eq type 0) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
629 (princ " (Emacs internal multibyte form)")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
630 ((eq type 1) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
631 (princ " (Shift-JIS, MS-KANJI)")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
632 ((eq type 2) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
633 (princ " (variant of ISO-2022)\n") |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
634 (princ "Initial designations:\n") |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
635 (print-designation flags) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
636 (princ "Other Form: \n ") |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
637 (princ (if (aref flags 4) "short-form" "long-form")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
638 (if (aref flags 5) (princ ", ASCII@EOL")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
639 (if (aref flags 6) (princ ", ASCII@CNTL")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
640 (princ (if (aref flags 7) ", 7-bit" ", 8-bit")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
641 (if (aref flags 8) (princ ", use-locking-shift")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
642 (if (aref flags 9) (princ ", use-single-shift")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
643 (if (aref flags 10) (princ ", use-roman")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
644 (if (aref flags 11) (princ ", use-old-jis")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
645 (if (aref flags 12) (princ ", no-ISO6429")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
646 (if (aref flags 13) (princ ", init-bol")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
647 (if (aref flags 14) (princ ", designation-bol")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
648 (if (aref flags 15) (princ ", convert-unsafe")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
649 (if (aref flags 16) (princ ", accept-latin-extra-code")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
650 (princ ".")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
651 ((eq type 3) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
652 (princ " (Big5)")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
653 ((eq type 4) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
654 (princ " (do conversion by CCL program)")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
655 ((eq type 5) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
656 (princ " (text with random binary characters)")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
657 (t (princ ": invalid coding-system.")))) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
658 (princ "\nEOL type: ") |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
659 (let ((eol-type (coding-system-eol-type coding-system))) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
660 (cond ((vectorp eol-type) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
661 (princ "Automatic selection from:\n\t") |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
662 (princ eol-type) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
663 (princ "\n")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
664 ((or (null eol-type) (eq eol-type 0)) (princ "LF\n")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
665 ((eq eol-type 1) (princ "CRLF\n")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
666 ((eq eol-type 2) (princ "CR\n")) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
667 (t (princ "invalid\n")))) |
20114
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
668 (let ((postread (coding-system-get coding-system 'post-read-conversion))) |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
669 (when postread |
35585 | 670 (princ "After decoding text normally,") |
671 (princ " perform post-conversion using the function: ") | |
20114
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
672 (princ "\n ") |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
673 (princ postread) |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
674 (princ "\n"))) |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
675 (let ((prewrite (coding-system-get coding-system 'pre-write-conversion))) |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
676 (when prewrite |
35585 | 677 (princ "Before encoding text normally,") |
678 (princ " perform pre-conversion using the function: ") | |
20114
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
679 (princ "\n ") |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
680 (princ prewrite) |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
681 (princ "\n"))) |
40664
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
682 (with-current-buffer standard-output |
31246
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
683 (let ((charsets (coding-system-get coding-system 'safe-charsets))) |
36989
ce090eb0edda
(describe-coding-system): For raw-text and emacs-mule, don't add
Kenichi Handa <handa@m17n.org>
parents:
35747
diff
changeset
|
684 (when (and (not (memq (coding-system-base coding-system) |
ce090eb0edda
(describe-coding-system): For raw-text and emacs-mule, don't add
Kenichi Handa <handa@m17n.org>
parents:
35747
diff
changeset
|
685 '(raw-text emacs-mule))) |
ce090eb0edda
(describe-coding-system): For raw-text and emacs-mule, don't add
Kenichi Handa <handa@m17n.org>
parents:
35747
diff
changeset
|
686 charsets) |
31246
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
687 (if (eq charsets t) |
36989
ce090eb0edda
(describe-coding-system): For raw-text and emacs-mule, don't add
Kenichi Handa <handa@m17n.org>
parents:
35747
diff
changeset
|
688 (insert "This coding system can encode all charsets except for |
ce090eb0edda
(describe-coding-system): For raw-text and emacs-mule, don't add
Kenichi Handa <handa@m17n.org>
parents:
35747
diff
changeset
|
689 eight-bit-control and eight-bit-graphic.\n") |
35585 | 690 (insert "This coding system encodes the following charsets:\n ") |
31246
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
691 (while charsets |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
692 (insert " " (symbol-name (car charsets))) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
693 (search-backward (symbol-name (car charsets))) |
40639 | 694 (help-xref-button 0 'help-character-set (car charsets)) |
31246
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
695 (goto-char (point-max)) |
40664
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
696 (setq charsets (cdr charsets)))))))))) |
31246
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
697 |
17052 | 698 |
699 ;;;###autoload | |
700 (defun describe-current-coding-system-briefly () | |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
701 "Display coding systems currently used in a brief format in echo area. |
17052 | 702 |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
703 The format is \"F[..],K[..],T[..],P>[..],P<[..], default F[..],P<[..],P<[..]\", |
17052 | 704 where mnemonics of the following coding systems come in this order |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
705 in place of `..': |
30765
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
706 `buffer-file-coding-system' (of the current buffer) |
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
707 eol-type of `buffer-file-coding-system' (of the current buffer) |
22306 | 708 Value returned by `keyboard-coding-system' |
30765
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
709 eol-type of `keyboard-coding-system' |
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
710 Value returned by `terminal-coding-system'. |
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
711 eol-type of `terminal-coding-system' |
22306 | 712 `process-coding-system' for read (of the current buffer, if any) |
30765
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
713 eol-type of `process-coding-system' for read (of the current buffer, if any) |
22306 | 714 `process-coding-system' for write (of the current buffer, if any) |
30765
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
715 eol-type of `process-coding-system' for write (of the current buffer, if any) |
22306 | 716 `default-buffer-file-coding-system' |
30765
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
717 eol-type of `default-buffer-file-coding-system' |
22306 | 718 `default-process-coding-system' for read |
30765
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
719 eol-type of `default-process-coding-system' for read |
22306 | 720 `default-process-coding-system' for write |
30765
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
721 eol-type of `default-process-coding-system'" |
17052 | 722 (interactive) |
723 (let* ((proc (get-buffer-process (current-buffer))) | |
724 (process-coding-systems (if proc (process-coding-system proc)))) | |
725 (message | |
24865
a4b8bb7bed21
(describe-current-coding-system-briefly): Fix format string.
Kenichi Handa <handa@m17n.org>
parents:
24724
diff
changeset
|
726 "F[%c%s],K[%c%s],T[%c%s],P>[%c%s],P<[%c%s], default F[%c%s],P>[%c%s],P<[%c%s]" |
17052 | 727 (coding-system-mnemonic buffer-file-coding-system) |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
728 (coding-system-eol-type-mnemonic buffer-file-coding-system) |
17052 | 729 (coding-system-mnemonic (keyboard-coding-system)) |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
730 (coding-system-eol-type-mnemonic (keyboard-coding-system)) |
17052 | 731 (coding-system-mnemonic (terminal-coding-system)) |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
732 (coding-system-eol-type-mnemonic (terminal-coding-system)) |
17052 | 733 (coding-system-mnemonic (car process-coding-systems)) |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
734 (coding-system-eol-type-mnemonic (car process-coding-systems)) |
17052 | 735 (coding-system-mnemonic (cdr process-coding-systems)) |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
736 (coding-system-eol-type-mnemonic (cdr process-coding-systems)) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
737 (coding-system-mnemonic default-buffer-file-coding-system) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
738 (coding-system-eol-type-mnemonic default-buffer-file-coding-system) |
17052 | 739 (coding-system-mnemonic (car default-process-coding-system)) |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
740 (coding-system-eol-type-mnemonic (car default-process-coding-system)) |
17052 | 741 (coding-system-mnemonic (cdr default-process-coding-system)) |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
742 (coding-system-eol-type-mnemonic (cdr default-process-coding-system)) |
17052 | 743 ))) |
744 | |
22306 | 745 ;; Print symbol name and mnemonic letter of CODING-SYSTEM with `princ'. |
50496
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
746 ;; If DOC-STRING is non-nil, print also the docstring of CODING-SYSTEM. |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
747 ;; If DOC-STRING is `tightly', don't print an empty line before the |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
748 ;; docstring, and print only the first line of the docstring. |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
749 |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
750 (defun print-coding-system-briefly (coding-system &optional doc-string) |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
751 (if (not coding-system) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
752 (princ "nil\n") |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
753 (princ (format "%c -- %s" |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
754 (coding-system-mnemonic coding-system) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
755 coding-system)) |
20114
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
756 (let ((aliases (coding-system-get coding-system 'alias-coding-systems))) |
46490
e541dfaa4964
(print-coding-system-briefly): Fix the handling of an alias of which
Kenichi Handa <handa@m17n.org>
parents:
45909
diff
changeset
|
757 (cond ((eq coding-system (car aliases)) |
e541dfaa4964
(print-coding-system-briefly): Fix the handling of an alias of which
Kenichi Handa <handa@m17n.org>
parents:
45909
diff
changeset
|
758 (if (cdr aliases) |
e541dfaa4964
(print-coding-system-briefly): Fix the handling of an alias of which
Kenichi Handa <handa@m17n.org>
parents:
45909
diff
changeset
|
759 (princ (format " %S" (cons 'alias: (cdr aliases)))))) |
e541dfaa4964
(print-coding-system-briefly): Fix the handling of an alias of which
Kenichi Handa <handa@m17n.org>
parents:
45909
diff
changeset
|
760 ((memq coding-system aliases) |
e541dfaa4964
(print-coding-system-briefly): Fix the handling of an alias of which
Kenichi Handa <handa@m17n.org>
parents:
45909
diff
changeset
|
761 (princ (format " (alias of %s)" (car aliases)))) |
e541dfaa4964
(print-coding-system-briefly): Fix the handling of an alias of which
Kenichi Handa <handa@m17n.org>
parents:
45909
diff
changeset
|
762 (t |
e541dfaa4964
(print-coding-system-briefly): Fix the handling of an alias of which
Kenichi Handa <handa@m17n.org>
parents:
45909
diff
changeset
|
763 (let ((eol-type (coding-system-eol-type coding-system)) |
e541dfaa4964
(print-coding-system-briefly): Fix the handling of an alias of which
Kenichi Handa <handa@m17n.org>
parents:
45909
diff
changeset
|
764 (base-eol-type (coding-system-eol-type (car aliases)))) |
e541dfaa4964
(print-coding-system-briefly): Fix the handling of an alias of which
Kenichi Handa <handa@m17n.org>
parents:
45909
diff
changeset
|
765 (if (and (integerp eol-type) |
e541dfaa4964
(print-coding-system-briefly): Fix the handling of an alias of which
Kenichi Handa <handa@m17n.org>
parents:
45909
diff
changeset
|
766 (vectorp base-eol-type) |
e541dfaa4964
(print-coding-system-briefly): Fix the handling of an alias of which
Kenichi Handa <handa@m17n.org>
parents:
45909
diff
changeset
|
767 (not (eq coding-system (aref base-eol-type eol-type)))) |
e541dfaa4964
(print-coding-system-briefly): Fix the handling of an alias of which
Kenichi Handa <handa@m17n.org>
parents:
45909
diff
changeset
|
768 (princ (format " (alias of %s)" |
e541dfaa4964
(print-coding-system-briefly): Fix the handling of an alias of which
Kenichi Handa <handa@m17n.org>
parents:
45909
diff
changeset
|
769 (aref base-eol-type eol-type)))))))) |
50496
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
770 (princ "\n") |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
771 (or (eq doc-string 'tightly) |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
772 (princ "\n")) |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
773 (if doc-string |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
774 (let ((doc (or (coding-system-doc-string coding-system) ""))) |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
775 (when (eq doc-string 'tightly) |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
776 (if (string-match "\n" doc) |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
777 (setq doc (substring doc 0 (match-beginning 0)))) |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
778 (setq doc (concat " " doc))) |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
779 (princ (format "%s\n" doc)))))) |
17052 | 780 |
781 ;;;###autoload | |
782 (defun describe-current-coding-system () | |
22306 | 783 "Display coding systems currently used, in detail." |
17052 | 784 (interactive) |
785 (with-output-to-temp-buffer "*Help*" | |
786 (let* ((proc (get-buffer-process (current-buffer))) | |
787 (process-coding-systems (if proc (process-coding-system proc)))) | |
19081
f33df9d64fe8
(describe-current-coding-system): Clean up output format.
Richard M. Stallman <rms@gnu.org>
parents:
18799
diff
changeset
|
788 (princ "Coding system for saving this buffer:\n ") |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
789 (if (local-variable-p 'buffer-file-coding-system) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
790 (print-coding-system-briefly buffer-file-coding-system) |
19081
f33df9d64fe8
(describe-current-coding-system): Clean up output format.
Richard M. Stallman <rms@gnu.org>
parents:
18799
diff
changeset
|
791 (princ "Not set locally, use the default.\n")) |
f33df9d64fe8
(describe-current-coding-system): Clean up output format.
Richard M. Stallman <rms@gnu.org>
parents:
18799
diff
changeset
|
792 (princ "Default coding system (for new files):\n ") |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
793 (print-coding-system-briefly default-buffer-file-coding-system) |
19081
f33df9d64fe8
(describe-current-coding-system): Clean up output format.
Richard M. Stallman <rms@gnu.org>
parents:
18799
diff
changeset
|
794 (princ "Coding system for keyboard input:\n ") |
17052 | 795 (print-coding-system-briefly (keyboard-coding-system)) |
19081
f33df9d64fe8
(describe-current-coding-system): Clean up output format.
Richard M. Stallman <rms@gnu.org>
parents:
18799
diff
changeset
|
796 (princ "Coding system for terminal output:\n ") |
17052 | 797 (print-coding-system-briefly (terminal-coding-system)) |
19081
f33df9d64fe8
(describe-current-coding-system): Clean up output format.
Richard M. Stallman <rms@gnu.org>
parents:
18799
diff
changeset
|
798 (when (get-buffer-process (current-buffer)) |
f33df9d64fe8
(describe-current-coding-system): Clean up output format.
Richard M. Stallman <rms@gnu.org>
parents:
18799
diff
changeset
|
799 (princ "Coding systems for process I/O:\n") |
f33df9d64fe8
(describe-current-coding-system): Clean up output format.
Richard M. Stallman <rms@gnu.org>
parents:
18799
diff
changeset
|
800 (princ " encoding input to the process: ") |
f33df9d64fe8
(describe-current-coding-system): Clean up output format.
Richard M. Stallman <rms@gnu.org>
parents:
18799
diff
changeset
|
801 (print-coding-system-briefly (cdr process-coding-systems)) |
f33df9d64fe8
(describe-current-coding-system): Clean up output format.
Richard M. Stallman <rms@gnu.org>
parents:
18799
diff
changeset
|
802 (princ " decoding output from the process: ") |
f33df9d64fe8
(describe-current-coding-system): Clean up output format.
Richard M. Stallman <rms@gnu.org>
parents:
18799
diff
changeset
|
803 (print-coding-system-briefly (car process-coding-systems))) |
19657
940d50684d68
(describe-current-coding-system): Add missing newline in output.
Richard M. Stallman <rms@gnu.org>
parents:
19557
diff
changeset
|
804 (princ "Defaults for subprocess I/O:\n") |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
805 (princ " decoding: ") |
17052 | 806 (print-coding-system-briefly (car default-process-coding-system)) |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
807 (princ " encoding: ") |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
808 (print-coding-system-briefly (cdr default-process-coding-system))) |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
809 |
40664
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
810 (with-current-buffer standard-output |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
811 |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
812 (princ " |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
813 Priority order for recognizing coding systems when reading files:\n") |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
814 (let ((l coding-category-list) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
815 (i 1) |
19265
6b31dac7f72b
(print-fontset): Don't hang even if a
Kenichi Handa <handa@m17n.org>
parents:
19081
diff
changeset
|
816 (coding-list nil) |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
817 coding aliases) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
818 (while l |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
819 (setq coding (symbol-value (car l))) |
20114
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
820 ;; Do not list up the same coding system twice. |
22885
5effd15f2a18
(describe-current-coding-system):
Kenichi Handa <handa@m17n.org>
parents:
22339
diff
changeset
|
821 (when (and coding (not (memq coding coding-list))) |
19265
6b31dac7f72b
(print-fontset): Don't hang even if a
Kenichi Handa <handa@m17n.org>
parents:
19081
diff
changeset
|
822 (setq coding-list (cons coding coding-list)) |
20114
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
823 (princ (format " %d. %s " i coding)) |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
824 (setq aliases (coding-system-get coding 'alias-coding-systems)) |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
825 (if (eq coding (car aliases)) |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
826 (if (cdr aliases) |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
827 (princ (cons 'alias: (cdr aliases)))) |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
828 (if (memq coding aliases) |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
829 (princ (list 'alias 'of (car aliases))))) |
19265
6b31dac7f72b
(print-fontset): Don't hang even if a
Kenichi Handa <handa@m17n.org>
parents:
19081
diff
changeset
|
830 (terpri) |
6b31dac7f72b
(print-fontset): Don't hang even if a
Kenichi Handa <handa@m17n.org>
parents:
19081
diff
changeset
|
831 (setq i (1+ i))) |
6b31dac7f72b
(print-fontset): Don't hang even if a
Kenichi Handa <handa@m17n.org>
parents:
19081
diff
changeset
|
832 (setq l (cdr l)))) |
20114
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
833 |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
834 (princ "\n Other coding systems cannot be distinguished automatically |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
835 from these, and therefore cannot be recognized automatically |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
836 with the present coding system priorities.\n\n") |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
837 |
18799
6c0d648d2cf8
(describe-current-coding-system): Use coding-category-iso-7-else
Kenichi Handa <handa@m17n.org>
parents:
18696
diff
changeset
|
838 (let ((categories '(coding-category-iso-7 coding-category-iso-7-else)) |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
839 coding-system codings) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
840 (while categories |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
841 (setq coding-system (symbol-value (car categories))) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
842 (mapcar |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
843 (lambda (x) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
844 (if (and (not (eq x coding-system)) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
845 (coding-system-get x 'no-initial-designation) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
846 (let ((flags (coding-system-flags x))) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
847 (not (or (aref flags 10) (aref flags 11))))) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
848 (setq codings (cons x codings)))) |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
849 (get (car categories) 'coding-systems)) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
850 (if codings |
54519
2d359989a04e
(describe-current-coding-system): Use window-width instead of frame-width.
Juri Linkov <juri@jurta.org>
parents:
52797
diff
changeset
|
851 (let ((max-col (window-width)) |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
852 pos) |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
853 (princ (format "\ |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
854 The following are decoded correctly but recognized as %s:\n " |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
855 coding-system)) |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
856 (while codings |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
857 (setq pos (point)) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
858 (insert (format " %s" (car codings))) |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
859 (when (> (current-column) max-col) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
860 (goto-char pos) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
861 (insert "\n ") |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
862 (goto-char (point-max))) |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
863 (setq codings (cdr codings))) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
864 (insert "\n\n"))) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
865 (setq categories (cdr categories)))) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
866 |
19081
f33df9d64fe8
(describe-current-coding-system): Clean up output format.
Richard M. Stallman <rms@gnu.org>
parents:
18799
diff
changeset
|
867 (princ "Particular coding systems specified for certain file names:\n") |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
868 (terpri) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
869 (princ " OPERATION\tTARGET PATTERN\t\tCODING SYSTEM(s)\n") |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
870 (princ " ---------\t--------------\t\t----------------\n") |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
871 (let ((func (lambda (operation alist) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
872 (princ " ") |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
873 (princ operation) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
874 (if (not alist) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
875 (princ "\tnothing specified\n") |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
876 (while alist |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
877 (indent-to 16) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
878 (prin1 (car (car alist))) |
20114
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
879 (if (>= (current-column) 40) |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
880 (newline)) |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
881 (indent-to 40) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
882 (princ (cdr (car alist))) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
883 (princ "\n") |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
884 (setq alist (cdr alist))))))) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
885 (funcall func "File I/O" file-coding-system-alist) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
886 (funcall func "Process I/O" process-coding-system-alist) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
887 (funcall func "Network I/O" network-coding-system-alist)) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
888 (help-mode)))) |
17052 | 889 |
890 ;; Print detailed information on CODING-SYSTEM. | |
20114
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
891 (defun print-coding-system (coding-system) |
17052 | 892 (let ((type (coding-system-type coding-system)) |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
893 (eol-type (coding-system-eol-type coding-system)) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
894 (flags (coding-system-flags coding-system)) |
20114
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
895 (aliases (coding-system-get coding-system 'alias-coding-systems))) |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
896 (if (not (eq (car aliases) coding-system)) |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
897 (princ (format "%s (alias of %s)\n" coding-system (car aliases))) |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
898 (princ coding-system) |
20114
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
899 (setq aliases (cdr aliases)) |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
900 (while aliases |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
901 (princ ",") |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
902 (princ (car aliases)) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
903 (setq aliases (cdr aliases))) |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
904 (princ (format ":%s:%c:%d:" |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
905 type |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
906 (coding-system-mnemonic coding-system) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
907 (if (integerp eol-type) eol-type 3))) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
908 (cond ((eq type 2) ; ISO-2022 |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
909 (let ((idx 0) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
910 charset) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
911 (while (< idx 4) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
912 (setq charset (aref flags idx)) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
913 (cond ((null charset) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
914 (princ -1)) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
915 ((eq charset t) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
916 (princ -2)) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
917 ((charsetp charset) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
918 (princ charset)) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
919 ((listp charset) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
920 (princ "(") |
17052 | 921 (princ (car charset)) |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
922 (setq charset (cdr charset)) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
923 (while charset |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
924 (princ ",") |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
925 (princ (car charset)) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
926 (setq charset (cdr charset))) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
927 (princ ")"))) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
928 (princ ",") |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
929 (setq idx (1+ idx))) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
930 (while (< idx 12) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
931 (princ (if (aref flags idx) 1 0)) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
932 (princ ",") |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
933 (setq idx (1+ idx))) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
934 (princ (if (aref flags idx) 1 0)))) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
935 ((eq type 4) ; CCL |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
936 (let (i len) |
21967 | 937 (if (symbolp (car flags)) |
938 (princ (format " %s" (car flags))) | |
939 (setq i 0 len (length (car flags))) | |
940 (while (< i len) | |
941 (princ (format " %x" (aref (car flags) i))) | |
942 (setq i (1+ i)))) | |
17052 | 943 (princ ",") |
21967 | 944 (if (symbolp (cdr flags)) |
945 (princ (format "%s" (cdr flags))) | |
946 (setq i 0 len (length (cdr flags))) | |
947 (while (< i len) | |
948 (princ (format " %x" (aref (cdr flags) i))) | |
949 (setq i (1+ i)))))) | |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
950 (t (princ 0))) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
951 (princ ":") |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
952 (princ (coding-system-doc-string coding-system)) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
953 (princ "\n")))) |
17052 | 954 |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
955 ;;;###autoload |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
956 (defun list-coding-systems (&optional arg) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
957 "Display a list of all coding systems. |
22306 | 958 This shows the mnemonic letter, name, and description of each coding system. |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
959 |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
960 With prefix arg, the output format gets more cryptic, |
22306 | 961 but still contains full information about each coding system." |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
962 (interactive "P") |
17052 | 963 (with-output-to-temp-buffer "*Help*" |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
964 (list-coding-systems-1 arg))) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
965 |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
966 (defun list-coding-systems-1 (arg) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
967 (if (null arg) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
968 (princ "\ |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
969 ############################################### |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
970 # List of coding systems in the following format: |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
971 # MNEMONIC-LETTER -- CODING-SYSTEM-NAME |
50496
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
972 # DOC-STRING |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
973 ") |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
974 (princ "\ |
17052 | 975 ######################### |
976 ## LIST OF CODING SYSTEMS | |
977 ## Each line corresponds to one coding system | |
978 ## Format of a line is: | |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
979 ## NAME[,ALIAS...]:TYPE:MNEMONIC:EOL:FLAGS:POST-READ-CONVERSION |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
980 ## :PRE-WRITE-CONVERSION:DOC-STRING, |
17052 | 981 ## where |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
982 ## NAME = coding system name |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
983 ## ALIAS = alias of the coding system |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
984 ## TYPE = nil (no conversion), t (undecided or automatic detection), |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
985 ## 0 (EMACS-MULE), 1 (SJIS), 2 (ISO2022), 3 (BIG5), or 4 (CCL) |
17052 | 986 ## EOL = 0 (LF), 1 (CRLF), 2 (CR), or 3 (Automatic detection) |
987 ## FLAGS = | |
988 ## if TYPE = 2 then | |
52433
875975e6fae5
(non-iso-charset-alist): Define as
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
989 ## comma (`,') separated data of the following: |
17052 | 990 ## G0, G1, G2, G3, SHORT-FORM, ASCII-EOL, ASCII-CNTL, SEVEN, |
991 ## LOCKING-SHIFT, SINGLE-SHIFT, USE-ROMAN, USE-OLDJIS, NO-ISO6429 | |
992 ## else if TYPE = 4 then | |
993 ## comma (`,') separated CCL programs for read and write | |
994 ## else | |
995 ## 0 | |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
996 ## POST-READ-CONVERSION, PRE-WRITE-CONVERSION = function name to be called |
17052 | 997 ## |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
998 ")) |
50496
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
999 (dolist (coding-system (sort-coding-systems (coding-system-list 'base-only))) |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
1000 (if (null arg) |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
1001 (print-coding-system-briefly coding-system 'tightly) |
52797
2abeaf2b1068
(list-coding-systems-1): List coding
Kenichi Handa <handa@m17n.org>
parents:
52440
diff
changeset
|
1002 (print-coding-system coding-system))) |
2abeaf2b1068
(list-coding-systems-1): List coding
Kenichi Handa <handa@m17n.org>
parents:
52440
diff
changeset
|
1003 (let ((first t)) |
2abeaf2b1068
(list-coding-systems-1): List coding
Kenichi Handa <handa@m17n.org>
parents:
52440
diff
changeset
|
1004 (dolist (elt coding-system-alist) |
2abeaf2b1068
(list-coding-systems-1): List coding
Kenichi Handa <handa@m17n.org>
parents:
52440
diff
changeset
|
1005 (unless (memq (intern (car elt)) coding-system-list) |
2abeaf2b1068
(list-coding-systems-1): List coding
Kenichi Handa <handa@m17n.org>
parents:
52440
diff
changeset
|
1006 (when first |
2abeaf2b1068
(list-coding-systems-1): List coding
Kenichi Handa <handa@m17n.org>
parents:
52440
diff
changeset
|
1007 (princ "\ |
2abeaf2b1068
(list-coding-systems-1): List coding
Kenichi Handa <handa@m17n.org>
parents:
52440
diff
changeset
|
1008 #################################################### |
2abeaf2b1068
(list-coding-systems-1): List coding
Kenichi Handa <handa@m17n.org>
parents:
52440
diff
changeset
|
1009 # The following coding systems are not yet loaded. # |
2abeaf2b1068
(list-coding-systems-1): List coding
Kenichi Handa <handa@m17n.org>
parents:
52440
diff
changeset
|
1010 #################################################### |
2abeaf2b1068
(list-coding-systems-1): List coding
Kenichi Handa <handa@m17n.org>
parents:
52440
diff
changeset
|
1011 ") |
2abeaf2b1068
(list-coding-systems-1): List coding
Kenichi Handa <handa@m17n.org>
parents:
52440
diff
changeset
|
1012 (setq first nil)) |
2abeaf2b1068
(list-coding-systems-1): List coding
Kenichi Handa <handa@m17n.org>
parents:
52440
diff
changeset
|
1013 (princ-list (car elt)))))) |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1014 |
26688
1830bc1903fb
(list-coding-categories): Fix typo;
Gerd Moellmann <gerd@gnu.org>
parents:
26189
diff
changeset
|
1015 ;;;###autoload |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1016 (defun list-coding-categories () |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1017 "Display a list of all coding categories." |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1018 (with-output-to-temp-buffer "*Help*" |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1019 (princ "\ |
17052 | 1020 ############################ |
1021 ## LIST OF CODING CATEGORIES (ordered by priority) | |
1022 ## CATEGORY:CODING-SYSTEM | |
1023 ## | |
1024 ") | |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1025 (let ((l coding-category-list)) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1026 (while l |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1027 (princ (format "%s:%s\n" (car l) (symbol-value (car l)))) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1028 (setq l (cdr l)))))) |
17052 | 1029 |
1030 ;;; FONT | |
1031 | |
1032 ;; Print information of a font in FONTINFO. | |
1033 (defun describe-font-internal (font-info &optional verbose) | |
1034 (print-list "name (opened by):" (aref font-info 0)) | |
1035 (print-list " full name:" (aref font-info 1)) | |
28899
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1036 (print-list " size:" (format "%2d" (aref font-info 2))) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1037 (print-list " height:" (format "%2d" (aref font-info 3))) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1038 (print-list " baseline-offset:" (format "%2d" (aref font-info 4))) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1039 (print-list "relative-compose:" (format "%2d" (aref font-info 5)))) |
17052 | 1040 |
1041 ;;;###autoload | |
1042 (defun describe-font (fontname) | |
72263
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1043 "Display information about a font whose name is FONTNAME. |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1044 The font must be already used by Emacs." |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1045 (interactive "sFont name (default current choice for ASCII chars): ") |
28216
cad26a9da36b
(describe-font): Don't refer to
Kenichi Handa <handa@m17n.org>
parents:
27973
diff
changeset
|
1046 (or (and window-system (fboundp 'fontset-list)) |
72263
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1047 (error "No fonts being used")) |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1048 (let (fontset font-info) |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1049 (when (or (not fontname) (= (length fontname) 0)) |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1050 (setq fontname (frame-parameter nil 'font)) |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1051 ;; Check if FONTNAME is a fontset. |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1052 (if (query-fontset fontname) |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1053 (setq fontset fontname |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1054 fontname (nth 1 (assq 'ascii |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1055 (aref (fontset-info fontname) 2)))))) |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1056 (setq font-info (font-info fontname)) |
17052 | 1057 (if (null font-info) |
72263
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1058 (if fontset |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1059 ;; The font should be surely used. So, there's some |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1060 ;; problem about getting information about it. It is |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1061 ;; better to print the fontname to show which font has |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1062 ;; this problem. |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1063 (message "No information about \"%s\"" fontname) |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
1064 (message "No matching font being used")) |
17052 | 1065 (with-output-to-temp-buffer "*Help*" |
1066 (describe-font-internal font-info 'verbose))))) | |
1067 | |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1068 (defun print-fontset (fontset &optional print-fonts) |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
1069 "Print information about FONTSET. |
49875
40b0b48205b3
(print-fontset): If FONTSET is nil,
Kenichi Handa <handa@m17n.org>
parents:
49049
diff
changeset
|
1070 If FONTSET is nil, print information about the default fontset. |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
1071 If optional arg PRINT-FONTS is non-nil, also print names of all opened |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
1072 fonts for FONTSET. This function actually inserts the information in |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
1073 the current buffer." |
49875
40b0b48205b3
(print-fontset): If FONTSET is nil,
Kenichi Handa <handa@m17n.org>
parents:
49049
diff
changeset
|
1074 (or fontset |
40b0b48205b3
(print-fontset): If FONTSET is nil,
Kenichi Handa <handa@m17n.org>
parents:
49049
diff
changeset
|
1075 (setq fontset (query-fontset "fontset-default"))) |
30126
f5fd9fcdaeb2
(describe-font): Adjusted for the chnage of fontset-info.
Kenichi Handa <handa@m17n.org>
parents:
29454
diff
changeset
|
1076 (let ((tail (aref (fontset-info fontset) 2)) |
28899
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1077 elt chars font-spec opened prev-charset charset from to) |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1078 (beginning-of-line) |
28899
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1079 (insert "Fontset: " fontset "\n") |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1080 (insert "CHARSET or CHAR RANGE") |
34931
debb78d4e934
(print-fontset): Indent font name by 24 columns, not 25.
Kenichi Handa <handa@m17n.org>
parents:
34764
diff
changeset
|
1081 (indent-to 24) |
28899
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1082 (insert "FONT NAME\n") |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1083 (insert "---------------------") |
34931
debb78d4e934
(print-fontset): Indent font name by 24 columns, not 25.
Kenichi Handa <handa@m17n.org>
parents:
34764
diff
changeset
|
1084 (indent-to 24) |
28899
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1085 (insert "---------") |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1086 (insert "\n") |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1087 (while tail |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1088 (setq elt (car tail) tail (cdr tail)) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1089 (setq chars (car elt) font-spec (car (cdr elt)) opened (cdr (cdr elt))) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1090 (if (symbolp chars) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1091 (setq charset chars from nil to nil) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1092 (if (integerp chars) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1093 (setq charset (char-charset chars) from chars to chars) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1094 (setq charset (char-charset (car chars)) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1095 from (car chars) to (cdr chars)))) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1096 (unless (eq charset prev-charset) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1097 (insert (symbol-name charset)) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1098 (if from |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1099 (insert "\n"))) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1100 (when from |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1101 (let ((split (split-char from))) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1102 (if (and (= (charset-dimension charset) 2) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1103 (= (nth 2 split) 0)) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1104 (setq from |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1105 (make-char charset (nth 1 split) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1106 (if (= (charset-chars charset) 94) 33 32)))) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1107 (insert " " from)) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1108 (when (/= from to) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1109 (insert "-") |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1110 (let ((split (split-char to))) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1111 (if (and (= (charset-dimension charset) 2) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1112 (= (nth 2 split) 0)) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1113 (setq to |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1114 (make-char charset (nth 1 split) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1115 (if (= (charset-chars charset) 94) 126 127)))) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1116 (insert to)))) |
34931
debb78d4e934
(print-fontset): Indent font name by 24 columns, not 25.
Kenichi Handa <handa@m17n.org>
parents:
34764
diff
changeset
|
1117 (indent-to 24) |
28899
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1118 (if (stringp font-spec) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1119 (insert font-spec) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1120 (if (car font-spec) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1121 (if (string-match "-" (car font-spec)) |
29228
0b31a133aa22
(print-fontset): Combine family part
Kenichi Handa <handa@m17n.org>
parents:
29187
diff
changeset
|
1122 (insert "-" (car font-spec) "-*-") |
0b31a133aa22
(print-fontset): Combine family part
Kenichi Handa <handa@m17n.org>
parents:
29187
diff
changeset
|
1123 (insert "-*-" (car font-spec) "-*-")) |
28899
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1124 (insert "-*-")) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1125 (if (cdr font-spec) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1126 (if (string-match "-" (cdr font-spec)) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1127 (insert (cdr font-spec)) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1128 (insert (cdr font-spec) "-*")) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1129 (insert "*"))) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1130 (insert "\n") |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1131 (when print-fonts |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1132 (while opened |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1133 (indent-to 5) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1134 (insert "[" (car opened) "]\n") |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1135 (setq opened (cdr opened)))) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1136 (setq prev-charset charset) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1137 ))) |
17052 | 1138 |
1139 ;;;###autoload | |
1140 (defun describe-fontset (fontset) | |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
1141 "Display information about FONTSET. |
28899
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1142 This shows which font is used for which character(s)." |
17052 | 1143 (interactive |
28216
cad26a9da36b
(describe-font): Don't refer to
Kenichi Handa <handa@m17n.org>
parents:
27973
diff
changeset
|
1144 (if (not (and window-system (fboundp 'fontset-list))) |
21469
ea652c41eec6
(list-input-methods): Fix doc string.
Karl Heuer <kwzh@gnu.org>
parents:
20731
diff
changeset
|
1145 (error "No fontsets being used") |
35585 | 1146 (let ((fontset-list (nconc |
45909
9f98a97f5469
(describe-fontset): Don't cons uselessly.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45871
diff
changeset
|
1147 (fontset-list) |
9f98a97f5469
(describe-fontset): Don't cons uselessly.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45871
diff
changeset
|
1148 (mapcar 'cdr fontset-alias-alist))) |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1149 (completion-ignore-case t)) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1150 (list (completing-read |
65680
ed770a0a7846
2005-09-24 Emilio C. Lopes <eclig@gmx.net>
Romain Francoise <romain@orebokech.com>
parents:
64085
diff
changeset
|
1151 "Fontset (default used by the current frame): " |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1152 fontset-list nil t))))) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1153 (if (= (length fontset) 0) |
49875
40b0b48205b3
(print-fontset): If FONTSET is nil,
Kenichi Handa <handa@m17n.org>
parents:
49049
diff
changeset
|
1154 (setq fontset (frame-parameter nil 'font))) |
40b0b48205b3
(print-fontset): If FONTSET is nil,
Kenichi Handa <handa@m17n.org>
parents:
49049
diff
changeset
|
1155 (setq fontset (query-fontset fontset)) |
40664
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
1156 (help-setup-xref (list #'describe-fontset fontset) (interactive-p)) |
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
1157 (with-output-to-temp-buffer (help-buffer) |
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
1158 (with-current-buffer standard-output |
28899
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1159 (print-fontset fontset t)))) |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1160 |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1161 ;;;###autoload |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1162 (defun list-fontsets (arg) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1163 "Display a list of all fontsets. |
22306 | 1164 This shows the name, size, and style of each fontset. |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
1165 With prefix arg, also list the fonts contained in each fontset; |
22306 | 1166 see the function `describe-fontset' for the format of the list." |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1167 (interactive "P") |
28216
cad26a9da36b
(describe-font): Don't refer to
Kenichi Handa <handa@m17n.org>
parents:
27973
diff
changeset
|
1168 (if (not (and window-system (fboundp 'fontset-list))) |
21469
ea652c41eec6
(list-input-methods): Fix doc string.
Karl Heuer <kwzh@gnu.org>
parents:
20731
diff
changeset
|
1169 (error "No fontsets being used") |
40664
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
1170 (help-setup-xref (list #'list-fontsets arg) (interactive-p)) |
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
1171 (with-output-to-temp-buffer (help-buffer) |
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
1172 (with-current-buffer standard-output |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1173 ;; This code is duplicated near the end of mule-diag. |
24161
782215de9b98
(list-fontsets): Sort fontsets by plain names.
Kenichi Handa <handa@m17n.org>
parents:
23582
diff
changeset
|
1174 (let ((fontsets |
782215de9b98
(list-fontsets): Sort fontsets by plain names.
Kenichi Handa <handa@m17n.org>
parents:
23582
diff
changeset
|
1175 (sort (fontset-list) |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
1176 (lambda (x y) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
1177 (string< (fontset-plain-name x) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
1178 (fontset-plain-name y)))))) |
21469
ea652c41eec6
(list-input-methods): Fix doc string.
Karl Heuer <kwzh@gnu.org>
parents:
20731
diff
changeset
|
1179 (while fontsets |
28899
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1180 (if arg |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1181 (print-fontset (car fontsets) nil) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1182 (insert "Fontset: " (car fontsets) "\n")) |
21469
ea652c41eec6
(list-input-methods): Fix doc string.
Karl Heuer <kwzh@gnu.org>
parents:
20731
diff
changeset
|
1183 (setq fontsets (cdr fontsets)))))))) |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
1184 |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
1185 ;;;###autoload |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
1186 (defun list-input-methods () |
22306 | 1187 "Display information about all input methods." |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
1188 (interactive) |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
1189 (help-setup-xref '(list-input-methods) (interactive-p)) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
1190 (with-output-to-temp-buffer (help-buffer) |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
1191 (list-input-methods-1) |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
1192 (with-current-buffer standard-output |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
1193 (save-excursion |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
1194 (goto-char (point-min)) |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
1195 (while (re-search-forward |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
1196 "^ \\([^ ]+\\) (`.*' in mode line)$" nil t) |
54970
4234b07e2bdb
(list-input-methods): Fix args to help-xref-button.
Juri Linkov <juri@jurta.org>
parents:
54519
diff
changeset
|
1197 (help-xref-button 1 'help-input-method (match-string 1))))))) |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1198 |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1199 (defun list-input-methods-1 () |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1200 (if (not input-method-alist) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1201 (progn |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1202 (princ " |
44746
8f2bf8b392fe
(list-input-methods-1): Doc fix
Pavel Janík <Pavel@Janik.cz>
parents:
43977
diff
changeset
|
1203 No input method is available, perhaps because you have not |
8f2bf8b392fe
(list-input-methods-1): Doc fix
Pavel Janík <Pavel@Janik.cz>
parents:
43977
diff
changeset
|
1204 installed LEIM (Libraries of Emacs Input Methods).")) |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1205 (princ "LANGUAGE\n NAME (`TITLE' in mode line)\n") |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1206 (princ " SHORT-DESCRIPTION\n------------------------------\n") |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1207 (setq input-method-alist |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1208 (sort input-method-alist |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
1209 (lambda (x y) (string< (nth 1 x) (nth 1 y))))) |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1210 (let ((l input-method-alist) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1211 language elt) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1212 (while l |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1213 (setq elt (car l) l (cdr l)) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1214 (when (not (equal language (nth 1 elt))) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1215 (setq language (nth 1 elt)) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1216 (princ language) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1217 (terpri)) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1218 (princ (format " %s (`%s' in mode line)\n %s\n" |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1219 (car elt) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1220 (let ((title (nth 3 elt))) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1221 (if (and (consp title) (stringp (car title))) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1222 (car title) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1223 title)) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1224 (let ((description (nth 4 elt))) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1225 (string-match ".*" description) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1226 (match-string 0 description)))))))) |
17052 | 1227 |
1228 ;;; DIAGNOSIS | |
1229 | |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1230 ;; Insert a header of a section with SECTION-NUMBER and TITLE. |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1231 (defun insert-section (section-number title) |
17052 | 1232 (insert "########################################\n" |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1233 "# Section " (format "%d" section-number) ". " title "\n" |
17052 | 1234 "########################################\n\n")) |
1235 | |
1236 ;;;###autoload | |
1237 (defun mule-diag () | |
24724
df2a95fa1429
(mule-diag): Change MULE to Mule in docstring.
Kenichi Handa <handa@m17n.org>
parents:
24691
diff
changeset
|
1238 "Display diagnosis of the multilingual environment (Mule). |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1239 |
22306 | 1240 This shows various information related to the current multilingual |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1241 environment, including lists of input methods, coding systems, |
22306 | 1242 character sets, and fontsets (if Emacs is running under a window |
21469
ea652c41eec6
(list-input-methods): Fix doc string.
Karl Heuer <kwzh@gnu.org>
parents:
20731
diff
changeset
|
1243 system which uses fontsets)." |
17052 | 1244 (interactive) |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1245 (with-output-to-temp-buffer "*Mule-Diagnosis*" |
40664
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
1246 (with-current-buffer standard-output |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1247 (insert "###############################################\n" |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1248 "### Current Status of Multilingual Features ###\n" |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1249 "###############################################\n\n" |
17052 | 1250 "CONTENTS: Section 1. General Information\n" |
1251 " Section 2. Display\n" | |
1252 " Section 3. Input methods\n" | |
1253 " Section 4. Coding systems\n" | |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1254 " Section 5. Character sets\n") |
28216
cad26a9da36b
(describe-font): Don't refer to
Kenichi Handa <handa@m17n.org>
parents:
27973
diff
changeset
|
1255 (if (and window-system (fboundp 'fontset-list)) |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1256 (insert " Section 6. Fontsets\n")) |
17052 | 1257 (insert "\n") |
1258 | |
1259 (insert-section 1 "General Information") | |
19425
572165bfff3e
(mule-diag): Don't print primary-language.
Richard M. Stallman <rms@gnu.org>
parents:
19265
diff
changeset
|
1260 (insert "Version of this emacs:\n " (emacs-version) "\n\n") |
34631
aeb6db8df2b9
(mule-diag): Insert information about
Kenichi Handa <handa@m17n.org>
parents:
34078
diff
changeset
|
1261 (insert "Configuration options:\n " system-configuration-options "\n\n") |
aeb6db8df2b9
(mule-diag): Insert information about
Kenichi Handa <handa@m17n.org>
parents:
34078
diff
changeset
|
1262 (insert "Multibyte characters awareness:\n" |
aeb6db8df2b9
(mule-diag): Insert information about
Kenichi Handa <handa@m17n.org>
parents:
34078
diff
changeset
|
1263 (format " default: %S\n" default-enable-multibyte-characters) |
aeb6db8df2b9
(mule-diag): Insert information about
Kenichi Handa <handa@m17n.org>
parents:
34078
diff
changeset
|
1264 (format " current-buffer: %S\n\n" enable-multibyte-characters)) |
aeb6db8df2b9
(mule-diag): Insert information about
Kenichi Handa <handa@m17n.org>
parents:
34078
diff
changeset
|
1265 (insert "Current language environment: " current-language-environment |
aeb6db8df2b9
(mule-diag): Insert information about
Kenichi Handa <handa@m17n.org>
parents:
34078
diff
changeset
|
1266 "\n\n") |
17052 | 1267 |
1268 (insert-section 2 "Display") | |
1269 (if window-system | |
1270 (insert "Window-system: " | |
1271 (symbol-name window-system) | |
1272 (format "%s" window-system-version)) | |
1273 (insert "Terminal: " (getenv "TERM"))) | |
1274 (insert "\n\n") | |
1275 | |
1276 (if (eq window-system 'x) | |
1277 (let ((font (cdr (assq 'font (frame-parameters))))) | |
1278 (insert "The selected frame is using the " | |
1279 (if (query-fontset font) "fontset" "font") | |
1280 ":\n\t" font)) | |
1281 (insert "Coding system of the terminal: " | |
1282 (symbol-name (terminal-coding-system)))) | |
1283 (insert "\n\n") | |
1284 | |
1285 (insert-section 3 "Input methods") | |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1286 (list-input-methods-1) |
17052 | 1287 (insert "\n") |
1288 (if default-input-method | |
26189
88faf40281cd
(mule-diag): Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
24865
diff
changeset
|
1289 (insert (format "Default input method: %s\n" default-input-method)) |
19657
940d50684d68
(describe-current-coding-system): Add missing newline in output.
Richard M. Stallman <rms@gnu.org>
parents:
19557
diff
changeset
|
1290 (insert "No default input method is specified\n")) |
17052 | 1291 |
1292 (insert-section 4 "Coding systems") | |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1293 (list-coding-systems-1 t) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1294 (princ "\ |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1295 ############################ |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1296 ## LIST OF CODING CATEGORIES (ordered by priority) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1297 ## CATEGORY:CODING-SYSTEM |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1298 ## |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1299 ") |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1300 (let ((l coding-category-list)) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1301 (while l |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1302 (princ (format "%s:%s\n" (car l) (symbol-value (car l)))) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1303 (setq l (cdr l)))) |
17052 | 1304 (insert "\n") |
1305 | |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1306 (insert-section 5 "Character sets") |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
1307 (list-character-sets-2) |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1308 (insert "\n") |
17052 | 1309 |
28216
cad26a9da36b
(describe-font): Don't refer to
Kenichi Handa <handa@m17n.org>
parents:
27973
diff
changeset
|
1310 (when (and window-system (fboundp 'fontset-list)) |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1311 ;; This code duplicates most of list-fontsets. |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1312 (insert-section 6 "Fontsets") |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1313 (insert "Fontset-Name\t\t\t\t\t\t WDxHT Style\n") |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1314 (insert "------------\t\t\t\t\t\t ----- -----\n") |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1315 (let ((fontsets (fontset-list))) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1316 (while fontsets |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1317 (print-fontset (car fontsets) t) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1318 (setq fontsets (cdr fontsets))))) |
22290
31291d62195e
(mule-diag): Don't call help-mode.
Karl Heuer <kwzh@gnu.org>
parents:
21979
diff
changeset
|
1319 (print-help-return-message)))) |
17052 | 1320 |
48050 | 1321 (provide 'mule-diag) |
1322 | |
52401 | 1323 ;;; arch-tag: cd3b607c-2893-45a0-a4fa-a6535754dbee |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
1324 ;;; mule-diag.el ends here |