Mercurial > emacs
annotate lisp/international/mule-diag.el @ 108116:8cf84fb217cc
merge trunk
author | Kenichi Handa <handa@etlken> |
---|---|
date | Mon, 26 Apr 2010 10:22:02 +0900 |
parents | 1d1d5d9bd884 |
children | 7019133063c8 |
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 |
95622
b4f1005a6470
Remove unnecessary eval-when-compiles.
Glenn Morris <rgm@gnu.org>
parents:
95405
diff
changeset
|
3 ;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2005, 2006, |
106815 | 4 ;; 2007, 2008, 2009, 2010 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, |
106815 | 6 ;; 2005, 2006, 2007, 2008, 2009, 2010 |
62274 | 7 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
8 ;; Registration Number H14PRO021 | |
89483 | 9 ;; Copyright (C) 2003 |
88412
524f9b5b2ac5
(print-designation): Arguments changed.
Kenichi Handa <handa@m17n.org>
parents:
43292
diff
changeset
|
10 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
524f9b5b2ac5
(print-designation): Arguments changed.
Kenichi Handa <handa@m17n.org>
parents:
43292
diff
changeset
|
11 ;; Registration Number H13PRO009 |
17052 | 12 |
27953 | 13 ;; Keywords: multilingual, charset, coding system, fontset, diagnosis, i18n |
17052 | 14 |
15 ;; This file is part of GNU Emacs. | |
16 | |
94664
889bc336b89b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94154
diff
changeset
|
17 ;; GNU Emacs is free software: you can redistribute it and/or modify |
17052 | 18 ;; it under the terms of the GNU General Public License as published by |
94664
889bc336b89b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94154
diff
changeset
|
19 ;; the Free Software Foundation, either version 3 of the License, or |
889bc336b89b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94154
diff
changeset
|
20 ;; (at your option) any later version. |
17052 | 21 |
22 ;; GNU Emacs is distributed in the hope that it will be useful, | |
23 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
24 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
25 ;; GNU General Public License for more details. | |
26 | |
27 ;; You should have received a copy of the GNU General Public License | |
94664
889bc336b89b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94154
diff
changeset
|
28 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
17052 | 29 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36989
diff
changeset
|
30 ;;; Commentary: |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36989
diff
changeset
|
31 |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36989
diff
changeset
|
32 ;;; Code: |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36989
diff
changeset
|
33 |
40722
1b9616706fd5
(help-funs): Require help-funs.
Richard M. Stallman <rms@gnu.org>
parents:
40664
diff
changeset
|
34 ;; Make sure the help-xref button type is defined. |
106496
6e0007ff5e13
Require help-mode instead of help-fns.
Kenichi Handa <handa@m17n.org>
parents:
105818
diff
changeset
|
35 (require 'help-mode) |
40722
1b9616706fd5
(help-funs): Require help-funs.
Richard M. Stallman <rms@gnu.org>
parents:
40664
diff
changeset
|
36 |
17052 | 37 ;;; General utility function |
38 | |
39 (defun print-list (&rest args) | |
88534 | 40 "Print all arguments with single space separator in one line." |
101170
6df4439cd595
* international/mule-diag.el (print-list): Fix 2008-12-03 change.
Juanma Barranquero <lekktu@gmail.com>
parents:
100908
diff
changeset
|
41 (princ (mapconcat (lambda (arg) (prin1-to-string arg t)) args " ")) |
17052 | 42 (princ "\n")) |
43 | |
44 ;;; CHARSET | |
45 | |
40639 | 46 (define-button-type 'sort-listed-character-sets |
47 'help-echo (purecopy "mouse-2, RET: sort on this column") | |
48 'face 'bold | |
49 'action #'(lambda (button) | |
50 (sort-listed-character-sets (button-get button 'sort-key)))) | |
51 | |
52 (define-button-type 'list-charset-chars | |
53 :supertype 'help-xref | |
54 'help-function #'list-charset-chars | |
55 'help-echo "mouse-2, RET: show table of characters for this character set") | |
56 | |
52126
69fcfc4c947a
(non-iso-charset-alist): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents:
50496
diff
changeset
|
57 ;;;###autoload |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
58 (defun list-character-sets (arg) |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
59 "Display a list of all character sets. |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
60 |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
61 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
|
62 column contains the number of characters in a block of this character |
103451
16c3fe546430
(list-character-sets): Change
Kenichi Handa <handa@m17n.org>
parents:
103178
diff
changeset
|
63 set. The FINAL-BYTE column contains an ISO-2022 <final-byte> to use |
16c3fe546430
(list-character-sets): Change
Kenichi Handa <handa@m17n.org>
parents:
103178
diff
changeset
|
64 in the designation escape sequence for this character set in |
16c3fe546430
(list-character-sets): Change
Kenichi Handa <handa@m17n.org>
parents:
103178
diff
changeset
|
65 ISO-2022-based coding systems. |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
66 |
100212
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
67 With prefix ARG, the output format gets more cryptic, |
22306 | 68 but still shows the full information." |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
69 (interactive "P") |
105372
bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents:
104823
diff
changeset
|
70 (help-setup-xref (list #'list-character-sets arg) |
bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents:
104823
diff
changeset
|
71 (called-interactively-p 'interactive)) |
47603
28c9630ee23e
(list-character-sets): Use the buffer
Kenichi Handa <handa@m17n.org>
parents:
47548
diff
changeset
|
72 (with-output-to-temp-buffer "*Character Set List*" |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
73 (with-current-buffer standard-output |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
74 (if arg |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
75 (list-character-sets-2) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
76 ;; Insert header. |
89799
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
77 (insert "Supplementary character sets are shown below.\n") |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
78 (insert |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
79 (substitute-command-keys |
27973
cf535f97695d
(list-character-sets): Make help-echo
Kenichi Handa <handa@m17n.org>
parents:
27953
diff
changeset
|
80 (concat "Use " |
cf535f97695d
(list-character-sets): Make help-echo
Kenichi Handa <handa@m17n.org>
parents:
27953
diff
changeset
|
81 (if (display-mouse-p) "\\[help-follow-mouse] or ") |
cf535f97695d
(list-character-sets): Make help-echo
Kenichi Handa <handa@m17n.org>
parents:
27953
diff
changeset
|
82 "\\[help-follow]:\n"))) |
cf535f97695d
(list-character-sets): Make help-echo
Kenichi Handa <handa@m17n.org>
parents:
27953
diff
changeset
|
83 (insert " on a column title to sort by that title,") |
88534 | 84 (indent-to 48) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
85 (insert "+----DIMENSION\n") |
27973
cf535f97695d
(list-character-sets): Make help-echo
Kenichi Handa <handa@m17n.org>
parents:
27953
diff
changeset
|
86 (insert " on a charset name to list characters.") |
88534 | 87 (indent-to 48) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
88 (insert "| +--CHARS\n") |
88534 | 89 (let ((columns '(("CHARSET-NAME" . name) "\t\t\t\t\t" |
103451
16c3fe546430
(list-character-sets): Change
Kenichi Handa <handa@m17n.org>
parents:
103178
diff
changeset
|
90 ("D CH FINAL-BYTE" . iso-spec))) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
91 pos) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
92 (while columns |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
93 (if (stringp (car columns)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
94 (insert (car columns)) |
40639 | 95 (insert-text-button (car (car columns)) |
96 :type 'sort-listed-character-sets | |
97 'sort-key (cdr (car columns))) | |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
98 (goto-char (point-max))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
99 (setq columns (cdr columns))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
100 (insert "\n")) |
88534 | 101 (insert "------------\t\t\t\t\t- --- ----------\n") |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
102 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
103 ;; Insert body sorted by charset IDs. |
88534 | 104 (list-character-sets-1 'name))))) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
105 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
106 (defun sort-listed-character-sets (sort-key) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
107 (if sort-key |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
108 (save-excursion |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
109 (let ((buffer-read-only nil)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
110 (goto-char (point-min)) |
89799
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
111 (search-forward "\n-") |
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
112 (forward-line 1) |
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
113 (delete-region (point) (point-max)) |
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
114 (list-character-sets-1 sort-key))))) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
115 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
116 (defun list-character-sets-1 (sort-key) |
88534 | 117 "Insert a list of character sets sorted by SORT-KEY. |
118 SORT-KEY should be `name' or `iso-spec' (default `name')." | |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
119 (or sort-key |
88534 | 120 (setq sort-key 'name)) |
121 (let ((tail charset-list) | |
89799
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
122 charset-info-list supplementary-list charset sort-func) |
88534 | 123 (dolist (charset charset-list) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
124 ;; Generate a list that contains all information to display. |
89799
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
125 (let ((elt (list charset |
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
126 (charset-dimension charset) |
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
127 (charset-chars charset) |
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
128 (charset-iso-final-char charset)))) |
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
129 (if (plist-get (charset-plist charset) :supplementary-p) |
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
130 (push elt supplementary-list) |
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
131 (push elt charset-info-list)))) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
132 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
133 ;; Determine a predicate for `sort' by SORT-KEY. |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
134 (setq sort-func |
88534 | 135 (cond ((eq sort-key 'name) |
136 (lambda (x y) (string< (car x) (car y)))) | |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
137 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
138 ((eq sort-key 'iso-spec) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
139 ;; Sort by DIMENSION CHARS FINAL-CHAR |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
140 (function |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
141 (lambda (x y) |
88534 | 142 (or (< (nth 1 x) (nth 1 y)) |
143 (and (= (nth 1 x) (nth 1 y)) | |
144 (or (< (nth 2 x) (nth 2 y)) | |
145 (and (= (nth 2 x) (nth 2 y)) | |
146 (< (nth 3 x) (nth 3 y))))))))) | |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
147 (t |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
148 (error "Invalid charset sort key: %s" sort-key)))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
149 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
150 (setq charset-info-list (sort charset-info-list sort-func)) |
89799
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
151 (setq supplementary-list (sort supplementary-list sort-func)) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
152 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
153 ;; Insert information of character sets. |
89799
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
154 (dolist (elt (append charset-info-list (list t) supplementary-list)) |
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
155 (if (eq elt t) |
103451
16c3fe546430
(list-character-sets): Change
Kenichi Handa <handa@m17n.org>
parents:
103178
diff
changeset
|
156 (progn |
16c3fe546430
(list-character-sets): Change
Kenichi Handa <handa@m17n.org>
parents:
103178
diff
changeset
|
157 (insert "\n-------------- ") |
16c3fe546430
(list-character-sets): Change
Kenichi Handa <handa@m17n.org>
parents:
103178
diff
changeset
|
158 (insert-text-button "Supplementary Character Sets" |
16c3fe546430
(list-character-sets): Change
Kenichi Handa <handa@m17n.org>
parents:
103178
diff
changeset
|
159 'type 'help-info |
16c3fe546430
(list-character-sets): Change
Kenichi Handa <handa@m17n.org>
parents:
103178
diff
changeset
|
160 'help-args '("(emacs)Charsets")) |
16c3fe546430
(list-character-sets): Change
Kenichi Handa <handa@m17n.org>
parents:
103178
diff
changeset
|
161 (insert " -------------- |
105818
6251a7f3c0a4
* international/mule-diag.el (list-character-sets-1): Minor
Chong Yidong <cyd@stupidchicken.com>
parents:
105372
diff
changeset
|
162 Character sets for defining other charsets, or for backward compatibility |
103451
16c3fe546430
(list-character-sets): Change
Kenichi Handa <handa@m17n.org>
parents:
103178
diff
changeset
|
163 ")) |
89799
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
164 (insert-text-button (symbol-name (car elt)) ; NAME |
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
165 :type 'list-charset-chars |
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
166 'help-args (list (car elt))) |
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
167 (goto-char (point-max)) |
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
168 (insert "\t") |
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
169 (indent-to 48) |
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
170 (insert (format "%d %3d " |
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
171 (nth 1 elt) (nth 2 elt)) ; DIMENSION and CHARS |
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
172 (if (< (nth 3 elt) 0) |
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
173 "none" |
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
174 (nth 3 elt)))) ; FINAL-CHAR |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
175 (insert "\n")))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
176 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
177 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
178 ;; 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
|
179 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
180 (defun list-character-sets-2 () |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
181 (insert "######################### |
17052 | 182 ## LIST OF CHARSETS |
183 ## Each line corresponds to one charset. | |
184 ## The following attributes are listed in this order | |
185 ## separated by a colon `:' in one line. | |
186 ## CHARSET-SYMBOL-NAME, | |
100212
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
187 ## DIMENSION (1-4) |
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
188 ## CHARS (number of characters in first dimension of charset) |
17052 | 189 ## ISO-FINAL-CHAR (character code of ISO-2022's final character) |
90742
d12279146267
(list-character-sets-2): Don't print
Kenichi Handa <handa@m17n.org>
parents:
90737
diff
changeset
|
190 ## -1 means that no final character is assigned. |
17052 | 191 ## DESCRIPTION (describing string of the charset) |
192 ") | |
100212
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
193 (dolist (charset charset-list) |
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
194 (princ (format "%s:%d:%d:%d:%s\n" |
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
195 charset |
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
196 (charset-dimension charset) |
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
197 (charset-chars charset) |
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
198 ;;; (char-width (make-char charset)) |
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
199 ;;; (charset-direction charset) |
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
200 (charset-iso-final-char charset) |
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
201 ;;; (charset-iso-graphic-plane charset) |
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
202 (charset-description charset))))) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
203 |
88534 | 204 (defvar non-iso-charset-alist nil |
205 "Obsolete.") | |
94154
2b060bb498d6
(non-iso-charset-alist): Fix typo in obsolescence declaration.
Juanma Barranquero <lekktu@gmail.com>
parents:
93975
diff
changeset
|
206 (make-obsolete-variable 'non-iso-charset-alist "no longer relevant." "23.1") |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
207 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
208 (defun decode-codepage-char (codepage code) |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
209 "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
|
210 Return a decoded character string. Each CODEPAGE corresponds to a |
94154
2b060bb498d6
(non-iso-charset-alist): Fix typo in obsolescence declaration.
Juanma Barranquero <lekktu@gmail.com>
parents:
93975
diff
changeset
|
211 coding system cpCODEPAGE." |
88534 | 212 (decode-char (intern (format "cp%d" codepage)) code)) |
90104
a01e7a9f1659
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-14
Miles Bader <miles@gnu.org>
parents:
89943
diff
changeset
|
213 (make-obsolete 'decode-codepage-char 'decode-char "23.1") |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
214 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
215 ;; A variable to hold charset input history. |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
216 (defvar charset-history nil) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
217 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
218 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
219 ;;;###autoload |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
220 (defun read-charset (prompt &optional default-value initial-input) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
221 "Read a character set from the minibuffer, prompting with string PROMPT. |
88534 | 222 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
|
223 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
224 Optional arguments are DEFAULT-VALUE and INITIAL-INPUT. |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
225 DEFAULT-VALUE, if non-nil, is the default value. |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
226 INITIAL-INPUT, if non-nil, is a string inserted in the minibuffer initially. |
100194
f76e0ce31e62
* international/mule-diag.el (unicodedata-file, unicode-data): Remove.
Juanma Barranquero <lekktu@gmail.com>
parents:
97914
diff
changeset
|
227 See the documentation of the function `completing-read' for the detailed |
f76e0ce31e62
* international/mule-diag.el (unicodedata-file, unicode-data): Remove.
Juanma Barranquero <lekktu@gmail.com>
parents:
97914
diff
changeset
|
228 meanings of these arguments." |
88534 | 229 (let* ((table (mapcar (lambda (x) (list (symbol-name x))) charset-list)) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
230 (charset (completing-read prompt table |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
231 nil t initial-input 'charset-history |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
232 default-value))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
233 (if (> (length charset) 0) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
234 (intern charset)))) |
30765
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
235 |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
236 ;; 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
|
237 ;; 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
|
238 ;; (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
|
239 ;; bytes of the characters. If the dimension is one, ROW should be 0. |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
240 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
241 (defun list-block-of-chars (charset row min max) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
242 (let (i ch) |
89713
dd442ee53657
(stretches-for-character-list): Delete it.
Kenichi Handa <handa@m17n.org>
parents:
89498
diff
changeset
|
243 (insert-char ?- (+ 7 (* 4 16))) |
dd442ee53657
(stretches-for-character-list): Delete it.
Kenichi Handa <handa@m17n.org>
parents:
89498
diff
changeset
|
244 (insert "\n ") |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
245 (setq i 0) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
246 (while (< i 16) |
89483 | 247 (insert (format "%4X" i)) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
248 (setq i (1+ i))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
249 (setq i (* (/ min 16) 16)) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
250 (while (<= i max) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
251 (if (= (% i 16) 0) |
89713
dd442ee53657
(stretches-for-character-list): Delete it.
Kenichi Handa <handa@m17n.org>
parents:
89498
diff
changeset
|
252 (insert (format "\n%6Xx" (/ (+ (* row 256) i) 16)))) |
89483 | 253 (setq ch (if (< i min) |
254 32 | |
255 (or (decode-char charset (+ (* row 256) i)) | |
256 32))) ; gap in mapping | |
91067
4edb36b0e1cf
(list-block-of-chars): Don't insert non-Unicode characters.
Kenichi Handa <handa@m17n.org>
parents:
91041
diff
changeset
|
257 ;; Don't insert control codes, non-Unicode characters. |
89483 | 258 (if (or (< ch 32) (= ch 127)) |
259 (setq ch (single-key-description ch)) | |
260 (if (and (>= ch 128) (< ch 160)) | |
91067
4edb36b0e1cf
(list-block-of-chars): Don't insert non-Unicode characters.
Kenichi Handa <handa@m17n.org>
parents:
91041
diff
changeset
|
261 (setq ch (format "%02Xh" ch)) |
4edb36b0e1cf
(list-block-of-chars): Don't insert non-Unicode characters.
Kenichi Handa <handa@m17n.org>
parents:
91041
diff
changeset
|
262 (if (> ch #x10FFFF) |
4edb36b0e1cf
(list-block-of-chars): Don't insert non-Unicode characters.
Kenichi Handa <handa@m17n.org>
parents:
91041
diff
changeset
|
263 (setq ch 32)))) |
89713
dd442ee53657
(stretches-for-character-list): Delete it.
Kenichi Handa <handa@m17n.org>
parents:
89498
diff
changeset
|
264 (insert "\t" ch) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
265 (setq i (1+ i)))) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
266 (insert "\n")) |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
267 |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
268 ;;;###autoload |
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
269 (defun list-charset-chars (charset) |
88540 | 270 "Display a list of characters in character set CHARSET." |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
271 (interactive (list (read-charset "Character set: "))) |
89799
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
272 (or (charsetp charset) |
694e157b2143
(list-character-sets): Fix the first line message.
Kenichi Handa <handa@m17n.org>
parents:
89713
diff
changeset
|
273 (error "Invalid character set: %s" charset)) |
47603
28c9630ee23e
(list-character-sets): Use the buffer
Kenichi Handa <handa@m17n.org>
parents:
47548
diff
changeset
|
274 (with-output-to-temp-buffer "*Character List*" |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
275 (with-current-buffer standard-output |
89498
bc83bb07e632
(list-charset-chars): Set buffer file
Dave Love <fx@gnu.org>
parents:
89483
diff
changeset
|
276 (if (coding-system-p charset) |
bc83bb07e632
(list-charset-chars): Set buffer file
Dave Love <fx@gnu.org>
parents:
89483
diff
changeset
|
277 ;; Useful to be able to do C-u C-x = to find file code, for |
bc83bb07e632
(list-charset-chars): Set buffer file
Dave Love <fx@gnu.org>
parents:
89483
diff
changeset
|
278 ;; instance: |
bc83bb07e632
(list-charset-chars): Set buffer file
Dave Love <fx@gnu.org>
parents:
89483
diff
changeset
|
279 (set-buffer-file-coding-system charset)) |
47603
28c9630ee23e
(list-character-sets): Use the buffer
Kenichi Handa <handa@m17n.org>
parents:
47548
diff
changeset
|
280 (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
|
281 (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
|
282 (if slot |
28c9630ee23e
(list-character-sets): Use the buffer
Kenichi Handa <handa@m17n.org>
parents:
47548
diff
changeset
|
283 (setcdr slot |
28c9630ee23e
(list-character-sets): Use the buffer
Kenichi Handa <handa@m17n.org>
parents:
47548
diff
changeset
|
284 (cons (format " (%s)" charset) |
28c9630ee23e
(list-character-sets): Use the buffer
Kenichi Handa <handa@m17n.org>
parents:
47548
diff
changeset
|
285 (cdr slot))))) |
89713
dd442ee53657
(stretches-for-character-list): Delete it.
Kenichi Handa <handa@m17n.org>
parents:
89498
diff
changeset
|
286 (setq tab-width 4) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
287 (set-buffer-multibyte t) |
88540 | 288 (let ((dim (charset-dimension charset)) |
289 (chars (charset-chars charset)) | |
290 ;; (plane (charset-iso-graphic-plane charset)) | |
291 (plane 1) | |
292 (range (plist-get (charset-plist charset) :code-space)) | |
293 min max min2 max2) | |
294 (if (> dim 2) | |
295 (error "Can only list 1- and 2-dimensional charsets")) | |
296 (insert (format "Characters in the coded character set %s.\n" charset)) | |
89807
9b7ce1c86476
(list-charset-chars): Put charset text property.
Kenichi Handa <handa@m17n.org>
parents:
89799
diff
changeset
|
297 (narrow-to-region (point) (point)) |
88540 | 298 (setq min (aref range 0) |
299 max (aref range 1)) | |
300 (if (= dim 1) | |
301 (list-block-of-chars charset 0 min max) | |
302 (setq min2 (aref range 2) | |
303 max2 (aref range 3)) | |
304 (let ((i min2)) | |
305 (while (<= i max2) | |
306 (list-block-of-chars charset i min max) | |
89807
9b7ce1c86476
(list-charset-chars): Put charset text property.
Kenichi Handa <handa@m17n.org>
parents:
89799
diff
changeset
|
307 (setq i (1+ i))))) |
9b7ce1c86476
(list-charset-chars): Put charset text property.
Kenichi Handa <handa@m17n.org>
parents:
89799
diff
changeset
|
308 (put-text-property (point-min) (point-max) 'charset charset) |
9b7ce1c86476
(list-charset-chars): Put charset text property.
Kenichi Handa <handa@m17n.org>
parents:
89799
diff
changeset
|
309 (widen))))) |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
310 |
28899
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
311 |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
312 ;;;###autoload |
31246
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
313 (defun describe-character-set (charset) |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
314 "Display information about built-in character set CHARSET." |
88534 | 315 (interactive (list (read-charset "Charset: "))) |
31246
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
316 (or (charsetp charset) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
317 (error "Invalid charset: %S" charset)) |
105372
bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents:
104823
diff
changeset
|
318 (help-setup-xref (list #'describe-character-set charset) |
bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents:
104823
diff
changeset
|
319 (called-interactively-p 'interactive)) |
88537
4668340a1e0d
(list-character-sets-1): Fix last change.
Dave Love <fx@gnu.org>
parents:
88534
diff
changeset
|
320 (with-output-to-temp-buffer (help-buffer) |
4668340a1e0d
(list-character-sets-1): Fix last change.
Dave Love <fx@gnu.org>
parents:
88534
diff
changeset
|
321 (with-current-buffer standard-output |
88637
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
322 (insert "Character set: " (symbol-name charset)) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
323 (let ((name (get-charset-property charset :name))) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
324 (if (not (eq name charset)) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
325 (insert " (alias of " (symbol-name name) ?\)))) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
326 (insert "\n\n" (charset-description charset) "\n\n") |
88701
c68f88e42678
(describe-character-set): Account for
Dave Love <fx@gnu.org>
parents:
88655
diff
changeset
|
327 (insert "Number of contained characters: ") |
c68f88e42678
(describe-character-set): Account for
Dave Love <fx@gnu.org>
parents:
88655
diff
changeset
|
328 (dotimes (i (charset-dimension charset)) |
c68f88e42678
(describe-character-set): Account for
Dave Love <fx@gnu.org>
parents:
88655
diff
changeset
|
329 (unless (= i 0) |
89904 | 330 (insert ?x)) |
89412 | 331 (insert (format "%d" (charset-chars charset (1+ i))))) |
88701
c68f88e42678
(describe-character-set): Account for
Dave Love <fx@gnu.org>
parents:
88655
diff
changeset
|
332 (insert ?\n) |
88637
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
333 (let ((char (charset-iso-final-char charset))) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
334 (when (> char 0) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
335 (insert "Final char of ISO2022 designation sequence: ") |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
336 (insert (format "`%c'\n" char)))) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
337 (let (aliases) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
338 (dolist (c charset-list) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
339 (if (and (not (eq c charset)) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
340 (eq charset (get-charset-property c :name))) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
341 (push c aliases))) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
342 (if aliases |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
343 (insert "Aliases: " (mapconcat #'symbol-name aliases ", ") ?\n))) |
94154
2b060bb498d6
(non-iso-charset-alist): Fix typo in obsolescence declaration.
Juanma Barranquero <lekktu@gmail.com>
parents:
93975
diff
changeset
|
344 |
88637
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
345 (dolist (elt `((:ascii-compatible-p "ASCII compatible." nil) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
346 (:map "Map file: " identity) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
347 (:unify-map "Unification map file: " identity) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
348 (:invalid-code |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
349 nil |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
350 ,(lambda (c) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
351 (format "Invalid character: %c (code %d)" c c))) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
352 (:emacs-mule-id "Id in emacs-mule coding system: " |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
353 number-to-string) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
354 (:parents "Parents: " |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
355 (lambda (parents) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
356 (mapconcat ,(lambda (elt) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
357 (format "%s" elt)) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
358 parents |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
359 ", "))) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
360 (:code-space "Code space: " ,(lambda (c) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
361 (format "%s" c))) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
362 (:code-offset "Code offset: " number-to-string) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
363 (:iso-revision-number "ISO revision number: " |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
364 number-to-string) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
365 (:supplementary-p |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
366 "Used only as a parent of some other charset." nil))) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
367 (let ((val (get-charset-property charset (car elt)))) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
368 (when val |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
369 (if (cadr elt) (insert (cadr elt))) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
370 (if (nth 2 elt) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
371 (insert (funcall (nth 2 elt) val))) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
372 (insert ?\n))))))) |
17052 | 373 |
374 ;;; CODING-SYSTEM | |
375 | |
95622
b4f1005a6470
Remove unnecessary eval-when-compiles.
Glenn Morris <rgm@gnu.org>
parents:
95405
diff
changeset
|
376 (defvar graphic-register) ; dynamic bondage |
88648
dd88ab5e7207
(describe-current-coding-system): Fix
Dave Love <fx@gnu.org>
parents:
88637
diff
changeset
|
377 |
dd88ab5e7207
(describe-current-coding-system): Fix
Dave Love <fx@gnu.org>
parents:
88637
diff
changeset
|
378 ;; Print information about designation of each graphic register in |
dd88ab5e7207
(describe-current-coding-system): Fix
Dave Love <fx@gnu.org>
parents:
88637
diff
changeset
|
379 ;; DESIGNATIONS in human readable format. See the documentation of |
dd88ab5e7207
(describe-current-coding-system): Fix
Dave Love <fx@gnu.org>
parents:
88637
diff
changeset
|
380 ;; `define-coding-system' for the meaning of DESIGNATIONS |
dd88ab5e7207
(describe-current-coding-system): Fix
Dave Love <fx@gnu.org>
parents:
88637
diff
changeset
|
381 ;; (`:designation' property). |
dd88ab5e7207
(describe-current-coding-system): Fix
Dave Love <fx@gnu.org>
parents:
88637
diff
changeset
|
382 (defun print-designation (designations) |
dd88ab5e7207
(describe-current-coding-system): Fix
Dave Love <fx@gnu.org>
parents:
88637
diff
changeset
|
383 (let (charset) |
dd88ab5e7207
(describe-current-coding-system): Fix
Dave Love <fx@gnu.org>
parents:
88637
diff
changeset
|
384 (dotimes (graphic-register 4) |
dd88ab5e7207
(describe-current-coding-system): Fix
Dave Love <fx@gnu.org>
parents:
88637
diff
changeset
|
385 (setq charset (aref designations graphic-register)) |
17052 | 386 (princ (format |
387 " G%d -- %s\n" | |
388 graphic-register | |
389 (cond ((null charset) | |
390 "never used") | |
391 ((eq charset t) | |
392 "no initial designation, and used by any charsets") | |
393 ((symbolp charset) | |
394 (format "%s:%s" | |
395 charset (charset-description charset))) | |
396 ((listp charset) | |
397 (if (charsetp (car charset)) | |
52433
875975e6fae5
(non-iso-charset-alist): Define as
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
398 (format "%s:%s, and also used by the following:" |
17052 | 399 (car charset) |
400 (charset-description (car charset))) | |
52433
875975e6fae5
(non-iso-charset-alist): Define as
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
401 "no initial designation, and used by the following:")) |
17052 | 402 (t |
403 "invalid designation information")))) | |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
404 (when (listp charset) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
405 (setq charset (cdr charset)) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
406 (while charset |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
407 (cond ((eq (car charset) t) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
408 (princ "\tany other charsets\n")) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
409 ((charsetp (car charset)) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
410 (princ (format "\t%s:%s\n" |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
411 (car charset) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
412 (charset-description (car charset))))) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
413 (t |
30765
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
414 "invalid designation information")) |
88648
dd88ab5e7207
(describe-current-coding-system): Fix
Dave Love <fx@gnu.org>
parents:
88637
diff
changeset
|
415 (setq charset (cdr charset))))))) |
17052 | 416 |
417 ;;;###autoload | |
418 (defun describe-coding-system (coding-system) | |
22306 | 419 "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
|
420 (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
|
421 (if (null coding-system) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
422 (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
|
423 (help-setup-xref (list #'describe-coding-system coding-system) |
105372
bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents:
104823
diff
changeset
|
424 (called-interactively-p 'interactive)) |
40664
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
425 (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
|
426 (print-coding-system-briefly coding-system 'doc-string) |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
427 (let ((type (coding-system-type coding-system)) |
89483 | 428 ;; Fixme: use this |
429 (extra-spec (coding-system-plist coding-system))) | |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
430 (princ "Type: ") |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
431 (princ type) |
88412
524f9b5b2ac5
(print-designation): Arguments changed.
Kenichi Handa <handa@m17n.org>
parents:
43292
diff
changeset
|
432 (cond ((eq type 'undecided) |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
433 (princ " (do automatic conversion)")) |
88412
524f9b5b2ac5
(print-designation): Arguments changed.
Kenichi Handa <handa@m17n.org>
parents:
43292
diff
changeset
|
434 ((eq type 'utf-8) |
524f9b5b2ac5
(print-designation): Arguments changed.
Kenichi Handa <handa@m17n.org>
parents:
43292
diff
changeset
|
435 (princ " (UTF-8: Emacs internal multibyte form)")) |
88993
a7223f475d71
(describe-coding-system): Add utf-16
Dave Love <fx@gnu.org>
parents:
88895
diff
changeset
|
436 ((eq type 'utf-16) |
a7223f475d71
(describe-coding-system): Add utf-16
Dave Love <fx@gnu.org>
parents:
88895
diff
changeset
|
437 ;; (princ " (UTF-16)") |
a7223f475d71
(describe-coding-system): Add utf-16
Dave Love <fx@gnu.org>
parents:
88895
diff
changeset
|
438 ) |
88648
dd88ab5e7207
(describe-current-coding-system): Fix
Dave Love <fx@gnu.org>
parents:
88637
diff
changeset
|
439 ((eq type 'shift-jis) |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
440 (princ " (Shift-JIS, MS-KANJI)")) |
88412
524f9b5b2ac5
(print-designation): Arguments changed.
Kenichi Handa <handa@m17n.org>
parents:
43292
diff
changeset
|
441 ((eq type 'iso-2022) |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
442 (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
|
443 (princ "Initial designations:\n") |
88648
dd88ab5e7207
(describe-current-coding-system): Fix
Dave Love <fx@gnu.org>
parents:
88637
diff
changeset
|
444 (print-designation (coding-system-get coding-system |
dd88ab5e7207
(describe-current-coding-system): Fix
Dave Love <fx@gnu.org>
parents:
88637
diff
changeset
|
445 :designation)) |
dd88ab5e7207
(describe-current-coding-system): Fix
Dave Love <fx@gnu.org>
parents:
88637
diff
changeset
|
446 |
dd88ab5e7207
(describe-current-coding-system): Fix
Dave Love <fx@gnu.org>
parents:
88637
diff
changeset
|
447 (when (coding-system-get coding-system :flags) |
dd88ab5e7207
(describe-current-coding-system): Fix
Dave Love <fx@gnu.org>
parents:
88637
diff
changeset
|
448 (princ "Other specifications: \n ") |
dd88ab5e7207
(describe-current-coding-system): Fix
Dave Love <fx@gnu.org>
parents:
88637
diff
changeset
|
449 (apply #'print-list |
dd88ab5e7207
(describe-current-coding-system): Fix
Dave Love <fx@gnu.org>
parents:
88637
diff
changeset
|
450 (coding-system-get coding-system :flags)))) |
88412
524f9b5b2ac5
(print-designation): Arguments changed.
Kenichi Handa <handa@m17n.org>
parents:
43292
diff
changeset
|
451 ((eq type 'charset) |
524f9b5b2ac5
(print-designation): Arguments changed.
Kenichi Handa <handa@m17n.org>
parents:
43292
diff
changeset
|
452 (princ " (charset)")) |
524f9b5b2ac5
(print-designation): Arguments changed.
Kenichi Handa <handa@m17n.org>
parents:
43292
diff
changeset
|
453 ((eq type 'ccl) |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
454 (princ " (do conversion by CCL program)")) |
88412
524f9b5b2ac5
(print-designation): Arguments changed.
Kenichi Handa <handa@m17n.org>
parents:
43292
diff
changeset
|
455 ((eq type 'raw-text) |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
456 (princ " (text with random binary characters)")) |
88566
2c3cb7fbba2a
(describe-coding-system): Avoid error
Dave Love <fx@gnu.org>
parents:
88542
diff
changeset
|
457 ((eq type 'emacs-mule) |
2c3cb7fbba2a
(describe-coding-system): Avoid error
Dave Love <fx@gnu.org>
parents:
88542
diff
changeset
|
458 (princ " (Emacs 21 internal encoding)")) |
103178
4f9eafb38e10
(describe-coding-system): Fix for big5.
Kenichi Handa <handa@m17n.org>
parents:
102934
diff
changeset
|
459 ((eq type 'big5)) |
88412
524f9b5b2ac5
(print-designation): Arguments changed.
Kenichi Handa <handa@m17n.org>
parents:
43292
diff
changeset
|
460 (t (princ ": invalid coding-system."))) |
20163
5ff1329561b4
(list-input-methods): Handle the case
Kenichi Handa <handa@m17n.org>
parents:
20114
diff
changeset
|
461 (princ "\nEOL type: ") |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
462 (let ((eol-type (coding-system-eol-type coding-system))) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
463 (cond ((vectorp eol-type) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
464 (princ "Automatic selection from:\n\t") |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
465 (princ eol-type) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
466 (princ "\n")) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
467 ((or (null eol-type) (eq eol-type 0)) (princ "LF\n")) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
468 ((eq eol-type 1) (princ "CRLF\n")) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
469 ((eq eol-type 2) (princ "CR\n")) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
470 (t (princ "invalid\n"))))) |
88534 | 471 (let ((postread (coding-system-get coding-system :post-read-conversion))) |
20114
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
472 (when postread |
35585 | 473 (princ "After decoding text normally,") |
474 (princ " perform post-conversion using the function: ") | |
20114
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
475 (princ "\n ") |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
476 (princ postread) |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
477 (princ "\n"))) |
88534 | 478 (let ((prewrite (coding-system-get coding-system :pre-write-conversion))) |
20114
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
479 (when prewrite |
35585 | 480 (princ "Before encoding text normally,") |
481 (princ " perform pre-conversion using the function: ") | |
20114
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
482 (princ "\n ") |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
483 (princ prewrite) |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
484 (princ "\n"))) |
40664
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
485 (with-current-buffer standard-output |
88566
2c3cb7fbba2a
(describe-coding-system): Avoid error
Dave Love <fx@gnu.org>
parents:
88542
diff
changeset
|
486 (let ((charsets (coding-system-charset-list coding-system))) |
2c3cb7fbba2a
(describe-coding-system): Avoid error
Dave Love <fx@gnu.org>
parents:
88542
diff
changeset
|
487 (when (and (not (eq (coding-system-base coding-system) 'raw-text)) |
36989
ce090eb0edda
(describe-coding-system): For raw-text and emacs-mule, don't add
Kenichi Handa <handa@m17n.org>
parents:
35747
diff
changeset
|
488 charsets) |
88566
2c3cb7fbba2a
(describe-coding-system): Avoid error
Dave Love <fx@gnu.org>
parents:
88542
diff
changeset
|
489 (cond |
2c3cb7fbba2a
(describe-coding-system): Avoid error
Dave Love <fx@gnu.org>
parents:
88542
diff
changeset
|
490 ((eq charsets 'iso-2022) |
2c3cb7fbba2a
(describe-coding-system): Avoid error
Dave Love <fx@gnu.org>
parents:
88542
diff
changeset
|
491 (insert "This coding system can encode all ISO 2022 charsets.")) |
2c3cb7fbba2a
(describe-coding-system): Avoid error
Dave Love <fx@gnu.org>
parents:
88542
diff
changeset
|
492 ((eq charsets 'emacs-mule) |
2c3cb7fbba2a
(describe-coding-system): Avoid error
Dave Love <fx@gnu.org>
parents:
88542
diff
changeset
|
493 (insert "This coding system can encode all emacs-mule charsets\ |
2c3cb7fbba2a
(describe-coding-system): Avoid error
Dave Love <fx@gnu.org>
parents:
88542
diff
changeset
|
494 .""")) |
2c3cb7fbba2a
(describe-coding-system): Avoid error
Dave Love <fx@gnu.org>
parents:
88542
diff
changeset
|
495 (t |
35585 | 496 (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
|
497 (while charsets |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
498 (insert " " (symbol-name (car charsets))) |
d8ce7bce2aab
(charset-multibyte-form-string): New function.
Kenichi Handa <handa@m17n.org>
parents:
30765
diff
changeset
|
499 (search-backward (symbol-name (car charsets))) |
40639 | 500 (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
|
501 (goto-char (point-max)) |
88566
2c3cb7fbba2a
(describe-coding-system): Avoid error
Dave Love <fx@gnu.org>
parents:
88542
diff
changeset
|
502 (setq charsets (cdr charsets))))))))))) |
17052 | 503 |
504 ;;;###autoload | |
505 (defun describe-current-coding-system-briefly () | |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
506 "Display coding systems currently used in a brief format in echo area. |
17052 | 507 |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
508 The format is \"F[..],K[..],T[..],P>[..],P<[..], default F[..],P<[..],P<[..]\", |
17052 | 509 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
|
510 in place of `..': |
30765
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
511 `buffer-file-coding-system' (of the current buffer) |
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
512 eol-type of `buffer-file-coding-system' (of the current buffer) |
22306 | 513 Value returned by `keyboard-coding-system' |
30765
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
514 eol-type of `keyboard-coding-system' |
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
515 Value returned by `terminal-coding-system'. |
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
516 eol-type of `terminal-coding-system' |
22306 | 517 `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
|
518 eol-type of `process-coding-system' for read (of the current buffer, if any) |
22306 | 519 `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
|
520 eol-type of `process-coding-system' for write (of the current buffer, if any) |
104664
50fdf250e26b
* mh-e/mh-comp.el (mh-send-letter):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104386
diff
changeset
|
521 default `buffer-file-coding-system' |
50fdf250e26b
* mh-e/mh-comp.el (mh-send-letter):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104386
diff
changeset
|
522 eol-type of default `buffer-file-coding-system' |
22306 | 523 `default-process-coding-system' for read |
30765
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
524 eol-type of `default-process-coding-system' for read |
22306 | 525 `default-process-coding-system' for write |
30765
1e5a486b8b25
punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents:
30126
diff
changeset
|
526 eol-type of `default-process-coding-system'" |
17052 | 527 (interactive) |
528 (let* ((proc (get-buffer-process (current-buffer))) | |
529 (process-coding-systems (if proc (process-coding-system proc)))) | |
530 (message | |
24865
a4b8bb7bed21
(describe-current-coding-system-briefly): Fix format string.
Kenichi Handa <handa@m17n.org>
parents:
24724
diff
changeset
|
531 "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 | 532 (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
|
533 (coding-system-eol-type-mnemonic buffer-file-coding-system) |
17052 | 534 (coding-system-mnemonic (keyboard-coding-system)) |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
535 (coding-system-eol-type-mnemonic (keyboard-coding-system)) |
17052 | 536 (coding-system-mnemonic (terminal-coding-system)) |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
537 (coding-system-eol-type-mnemonic (terminal-coding-system)) |
17052 | 538 (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
|
539 (coding-system-eol-type-mnemonic (car process-coding-systems)) |
17052 | 540 (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
|
541 (coding-system-eol-type-mnemonic (cdr process-coding-systems)) |
104664
50fdf250e26b
* mh-e/mh-comp.el (mh-send-letter):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104386
diff
changeset
|
542 (coding-system-mnemonic (default-value 'buffer-file-coding-system)) |
50fdf250e26b
* mh-e/mh-comp.el (mh-send-letter):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104386
diff
changeset
|
543 (coding-system-eol-type-mnemonic |
50fdf250e26b
* mh-e/mh-comp.el (mh-send-letter):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104386
diff
changeset
|
544 (default-value 'buffer-file-coding-system)) |
17052 | 545 (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
|
546 (coding-system-eol-type-mnemonic (car default-process-coding-system)) |
17052 | 547 (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
|
548 (coding-system-eol-type-mnemonic (cdr default-process-coding-system)) |
17052 | 549 ))) |
550 | |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
551 (defun print-coding-system-briefly (coding-system &optional doc-string) |
89483 | 552 "Print symbol name and mnemonic letter of CODING-SYSTEM with `princ'. |
553 If DOC-STRING is non-nil, print also the docstring of CODING-SYSTEM. | |
554 If DOC-STRING is `tightly', don't print an empty line before the | |
555 docstring, and print only the first line of the docstring." | |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
556 (if (not coding-system) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
557 (princ "nil\n") |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
558 (princ (format "%c -- %s" |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
559 (coding-system-mnemonic coding-system) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
560 coding-system)) |
88655
ea446bb886ad
(print-coding-system-briefly): Fix
Dave Love <fx@gnu.org>
parents:
88648
diff
changeset
|
561 (let ((aliases (coding-system-aliases coding-system))) |
46490
e541dfaa4964
(print-coding-system-briefly): Fix the handling of an alias of which
Kenichi Handa <handa@m17n.org>
parents:
45909
diff
changeset
|
562 (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
|
563 (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
|
564 (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
|
565 ((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
|
566 (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
|
567 (t |
e541dfaa4964
(print-coding-system-briefly): Fix the handling of an alias of which
Kenichi Handa <handa@m17n.org>
parents:
45909
diff
changeset
|
568 (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
|
569 (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
|
570 (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
|
571 (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
|
572 (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
|
573 (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
|
574 (aref base-eol-type eol-type)))))))) |
50496
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
575 (princ "\n") |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
576 (or (eq doc-string 'tightly) |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
577 (princ "\n")) |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
578 (if doc-string |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
579 (let ((doc (or (coding-system-doc-string coding-system) ""))) |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
580 (when (eq doc-string 'tightly) |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
581 (if (string-match "\n" doc) |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
582 (setq doc (substring doc 0 (match-beginning 0)))) |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
583 (setq doc (concat " " doc))) |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
584 (princ (format "%s\n" doc)))))) |
17052 | 585 |
586 ;;;###autoload | |
587 (defun describe-current-coding-system () | |
22306 | 588 "Display coding systems currently used, in detail." |
17052 | 589 (interactive) |
590 (with-output-to-temp-buffer "*Help*" | |
591 (let* ((proc (get-buffer-process (current-buffer))) | |
592 (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
|
593 (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
|
594 (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
|
595 (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
|
596 (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
|
597 (princ "Default coding system (for new files):\n ") |
104664
50fdf250e26b
* mh-e/mh-comp.el (mh-send-letter):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104386
diff
changeset
|
598 (print-coding-system-briefly (default-value 'buffer-file-coding-system)) |
19081
f33df9d64fe8
(describe-current-coding-system): Clean up output format.
Richard M. Stallman <rms@gnu.org>
parents:
18799
diff
changeset
|
599 (princ "Coding system for keyboard input:\n ") |
17052 | 600 (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
|
601 (princ "Coding system for terminal output:\n ") |
17052 | 602 (print-coding-system-briefly (terminal-coding-system)) |
95348
5d45e3ef3e0f
(describe-current-coding-system):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
95201
diff
changeset
|
603 (when (boundp 'selection-coding-system) |
5d45e3ef3e0f
(describe-current-coding-system):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
95201
diff
changeset
|
604 (princ "Coding system for inter-client cut and paste:\n ") |
5d45e3ef3e0f
(describe-current-coding-system):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
95201
diff
changeset
|
605 (print-coding-system-briefly selection-coding-system)) |
19081
f33df9d64fe8
(describe-current-coding-system): Clean up output format.
Richard M. Stallman <rms@gnu.org>
parents:
18799
diff
changeset
|
606 (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
|
607 (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
|
608 (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
|
609 (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
|
610 (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
|
611 (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
|
612 (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
|
613 (princ " decoding: ") |
17052 | 614 (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
|
615 (princ " encoding: ") |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
616 (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
|
617 |
40664
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
618 (with-current-buffer standard-output |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
619 |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
620 (princ " |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
621 Priority order for recognizing coding systems when reading files:\n") |
88412
524f9b5b2ac5
(print-designation): Arguments changed.
Kenichi Handa <handa@m17n.org>
parents:
43292
diff
changeset
|
622 (let ((i 1)) |
524f9b5b2ac5
(print-designation): Arguments changed.
Kenichi Handa <handa@m17n.org>
parents:
43292
diff
changeset
|
623 (dolist (elt (coding-system-priority-list)) |
524f9b5b2ac5
(print-designation): Arguments changed.
Kenichi Handa <handa@m17n.org>
parents:
43292
diff
changeset
|
624 (princ (format " %d. %s " i elt)) |
524f9b5b2ac5
(print-designation): Arguments changed.
Kenichi Handa <handa@m17n.org>
parents:
43292
diff
changeset
|
625 (let ((aliases (coding-system-aliases elt))) |
524f9b5b2ac5
(print-designation): Arguments changed.
Kenichi Handa <handa@m17n.org>
parents:
43292
diff
changeset
|
626 (if (eq elt (car aliases)) |
20114
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
627 (if (cdr aliases) |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
628 (princ (cons 'alias: (cdr aliases)))) |
88412
524f9b5b2ac5
(print-designation): Arguments changed.
Kenichi Handa <handa@m17n.org>
parents:
43292
diff
changeset
|
629 (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
|
630 (terpri) |
88412
524f9b5b2ac5
(print-designation): Arguments changed.
Kenichi Handa <handa@m17n.org>
parents:
43292
diff
changeset
|
631 (setq i (1+ i))))) |
20114
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
632 |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
633 (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
|
634 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
|
635 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
|
636 |
88655
ea446bb886ad
(print-coding-system-briefly): Fix
Dave Love <fx@gnu.org>
parents:
88648
diff
changeset
|
637 ;; Fixme: should this be replaced or junked? |
88412
524f9b5b2ac5
(print-designation): Arguments changed.
Kenichi Handa <handa@m17n.org>
parents:
43292
diff
changeset
|
638 (if nil |
18799
6c0d648d2cf8
(describe-current-coding-system): Use coding-category-iso-7-else
Kenichi Handa <handa@m17n.org>
parents:
18696
diff
changeset
|
639 (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
|
640 coding-system codings) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
641 (while categories |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
642 (setq coding-system (symbol-value (car categories))) |
84910
90defdcad2cb
(describe-current-coding-system): Use `mapc' rather than `mapcar'.
Juanma Barranquero <lekktu@gmail.com>
parents:
78310
diff
changeset
|
643 (mapc |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
644 (lambda (x) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
645 (if (and (not (eq x coding-system)) |
88637
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
646 (let ((flags (coding-system-get :flags))) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
647 (not (or (memq 'use-roman flags) |
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
648 (memq 'use-oldjis flags))))) |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
649 (setq codings (cons x codings)))) |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
650 (get (car categories) 'coding-systems)) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
651 (if codings |
54519
2d359989a04e
(describe-current-coding-system): Use window-width instead of frame-width.
Juri Linkov <juri@jurta.org>
parents:
52797
diff
changeset
|
652 (let ((max-col (window-width)) |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
653 pos) |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
654 (princ (format "\ |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
655 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
|
656 coding-system)) |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
657 (while codings |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
658 (setq pos (point)) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
659 (insert (format " %s" (car codings))) |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
660 (when (> (current-column) max-col) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
661 (goto-char pos) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
662 (insert "\n ") |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
663 (goto-char (point-max))) |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
664 (setq codings (cdr codings))) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
665 (insert "\n\n"))) |
88412
524f9b5b2ac5
(print-designation): Arguments changed.
Kenichi Handa <handa@m17n.org>
parents:
43292
diff
changeset
|
666 (setq categories (cdr categories))))) |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
667 |
19081
f33df9d64fe8
(describe-current-coding-system): Clean up output format.
Richard M. Stallman <rms@gnu.org>
parents:
18799
diff
changeset
|
668 (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
|
669 (terpri) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
670 (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
|
671 (princ " ---------\t--------------\t\t----------------\n") |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
672 (let ((func (lambda (operation alist) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
673 (princ " ") |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
674 (princ operation) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
675 (if (not alist) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
676 (princ "\tnothing specified\n") |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
677 (while alist |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
678 (indent-to 16) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
679 (prin1 (car (car alist))) |
20114
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
680 (if (>= (current-column) 40) |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
681 (newline)) |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
682 (indent-to 40) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
683 (princ (cdr (car alist))) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
684 (princ "\n") |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
685 (setq alist (cdr alist))))))) |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
686 (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
|
687 (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
|
688 (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
|
689 (help-mode)))) |
17052 | 690 |
20114
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
691 (defun print-coding-system (coding-system) |
88534 | 692 "Print detailed information on CODING-SYSTEM." |
17052 | 693 (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
|
694 (eol-type (coding-system-eol-type coding-system)) |
88637
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
695 (flags (coding-system-get coding-system :flags)) |
88655
ea446bb886ad
(print-coding-system-briefly): Fix
Dave Love <fx@gnu.org>
parents:
88648
diff
changeset
|
696 (aliases (coding-system-aliases coding-system))) |
20114
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
697 (if (not (eq (car aliases) coding-system)) |
cbf191888430
(describe-coding-system): Print
Kenichi Handa <handa@m17n.org>
parents:
20092
diff
changeset
|
698 (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
|
699 (princ coding-system) |
100212
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
700 (dolist (alias (cdr aliases)) |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
701 (princ ",") |
100212
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
702 (princ alias)) |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
703 (princ (format ":%s:%c:%d:" |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
704 type |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
705 (coding-system-mnemonic coding-system) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
706 (if (integerp eol-type) eol-type 3))) |
88637
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
707 (cond ((eq type 'iso2022) |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
708 (let ((idx 0) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
709 charset) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
710 (while (< idx 4) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
711 (setq charset (aref flags idx)) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
712 (cond ((null charset) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
713 (princ -1)) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
714 ((eq charset t) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
715 (princ -2)) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
716 ((charsetp charset) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
717 (princ charset)) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
718 ((listp charset) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
719 (princ "(") |
17052 | 720 (princ (car charset)) |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
721 (setq charset (cdr charset)) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
722 (while charset |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
723 (princ ",") |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
724 (princ (car charset)) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
725 (setq charset (cdr charset))) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
726 (princ ")"))) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
727 (princ ",") |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
728 (setq idx (1+ idx))) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
729 (while (< idx 12) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
730 (princ (if (aref flags idx) 1 0)) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
731 (princ ",") |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
732 (setq idx (1+ idx))) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
733 (princ (if (aref flags idx) 1 0)))) |
88637
10c911c19787
(print-coding-system): (Incomplete)
Dave Love <fx@gnu.org>
parents:
88566
diff
changeset
|
734 ((eq type 'ccl) |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
735 (let (i len) |
21967 | 736 (if (symbolp (car flags)) |
737 (princ (format " %s" (car flags))) | |
738 (setq i 0 len (length (car flags))) | |
739 (while (< i len) | |
740 (princ (format " %x" (aref (car flags) i))) | |
741 (setq i (1+ i)))) | |
17052 | 742 (princ ",") |
21967 | 743 (if (symbolp (cdr flags)) |
744 (princ (format "%s" (cdr flags))) | |
745 (setq i 0 len (length (cdr flags))) | |
746 (while (< i len) | |
747 (princ (format " %x" (aref (cdr flags) i))) | |
748 (setq i (1+ i)))))) | |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
749 (t (princ 0))) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
750 (princ ":") |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
751 (princ (coding-system-doc-string coding-system)) |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
752 (princ "\n")))) |
17052 | 753 |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
754 ;;;###autoload |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
755 (defun list-coding-systems (&optional arg) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
756 "Display a list of all coding systems. |
22306 | 757 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
|
758 |
100194
f76e0ce31e62
* international/mule-diag.el (unicodedata-file, unicode-data): Remove.
Juanma Barranquero <lekktu@gmail.com>
parents:
97914
diff
changeset
|
759 With prefix ARG, the output format gets more cryptic, |
22306 | 760 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
|
761 (interactive "P") |
17052 | 762 (with-output-to-temp-buffer "*Help*" |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
763 (list-coding-systems-1 arg))) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
764 |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
765 (defun list-coding-systems-1 (arg) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
766 (if (null arg) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
767 (princ "\ |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
768 ############################################### |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
769 # 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
|
770 # MNEMONIC-LETTER -- CODING-SYSTEM-NAME |
50496
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
771 # DOC-STRING |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
772 ") |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
773 (princ "\ |
17052 | 774 ######################### |
775 ## LIST OF CODING SYSTEMS | |
776 ## Each line corresponds to one coding system | |
777 ## Format of a line is: | |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
778 ## 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
|
779 ## :PRE-WRITE-CONVERSION:DOC-STRING, |
17052 | 780 ## where |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
781 ## NAME = coding system name |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
782 ## ALIAS = alias of the coding system |
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
783 ## 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
|
784 ## 0 (EMACS-MULE), 1 (SJIS), 2 (ISO2022), 3 (BIG5), or 4 (CCL) |
17052 | 785 ## EOL = 0 (LF), 1 (CRLF), 2 (CR), or 3 (Automatic detection) |
786 ## FLAGS = | |
787 ## if TYPE = 2 then | |
52433
875975e6fae5
(non-iso-charset-alist): Define as
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
788 ## comma (`,') separated data of the following: |
17052 | 789 ## G0, G1, G2, G3, SHORT-FORM, ASCII-EOL, ASCII-CNTL, SEVEN, |
790 ## LOCKING-SHIFT, SINGLE-SHIFT, USE-ROMAN, USE-OLDJIS, NO-ISO6429 | |
791 ## else if TYPE = 4 then | |
792 ## comma (`,') separated CCL programs for read and write | |
793 ## else | |
794 ## 0 | |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
795 ## POST-READ-CONVERSION, PRE-WRITE-CONVERSION = function name to be called |
17052 | 796 ## |
18199
15177bdb2fcf
(describe-coding-system): Change format of output.
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
797 ")) |
50496
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
798 (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
|
799 (if (null arg) |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
800 (print-coding-system-briefly coding-system 'tightly) |
ad2c77c56a81
(print-coding-system-briefly): If
Kenichi Handa <handa@m17n.org>
parents:
49875
diff
changeset
|
801 (print-coding-system coding-system)))) |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
802 |
88655
ea446bb886ad
(print-coding-system-briefly): Fix
Dave Love <fx@gnu.org>
parents:
88648
diff
changeset
|
803 ;; Fixme: delete? |
26688
1830bc1903fb
(list-coding-categories): Fix typo;
Gerd Moellmann <gerd@gnu.org>
parents:
26189
diff
changeset
|
804 ;;;###autoload |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
805 (defun list-coding-categories () |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
806 "Display a list of all coding categories." |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
807 (with-output-to-temp-buffer "*Help*" |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
808 (princ "\ |
17052 | 809 ############################ |
810 ## LIST OF CODING CATEGORIES (ordered by priority) | |
811 ## CATEGORY:CODING-SYSTEM | |
812 ## | |
813 ") | |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
814 (let ((l coding-category-list)) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
815 (while l |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
816 (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
|
817 (setq l (cdr l)))))) |
17052 | 818 |
819 ;;; FONT | |
820 | |
95841
b4e36ff621b3
Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
95622
diff
changeset
|
821 (declare-function font-info "font.c" (name &optional frame)) |
b4e36ff621b3
Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
95622
diff
changeset
|
822 |
102934
ed0a00c1025a
* international/mule-diag.el (describe-font-internal): Change
Chong Yidong <cyd@stupidchicken.com>
parents:
102519
diff
changeset
|
823 (defun describe-font-internal (font-info &optional ignored) |
ed0a00c1025a
* international/mule-diag.el (describe-font-internal): Change
Chong Yidong <cyd@stupidchicken.com>
parents:
102519
diff
changeset
|
824 "Print information about a font in FONT-INFO. |
ed0a00c1025a
* international/mule-diag.el (describe-font-internal): Change
Chong Yidong <cyd@stupidchicken.com>
parents:
102519
diff
changeset
|
825 The IGNORED argument is ignored." |
17052 | 826 (print-list "name (opened by):" (aref font-info 0)) |
827 (print-list " full name:" (aref font-info 1)) | |
28899
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
828 (print-list " size:" (format "%2d" (aref font-info 2))) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
829 (print-list " height:" (format "%2d" (aref font-info 3))) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
830 (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
|
831 (print-list "relative-compose:" (format "%2d" (aref font-info 5)))) |
17052 | 832 |
833 ;;;###autoload | |
834 (defun describe-font (fontname) | |
72263
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
835 "Display information about a font whose name is FONTNAME. |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
836 The font must be already used by Emacs." |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
837 (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
|
838 (or (and window-system (fboundp 'fontset-list)) |
72263
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
839 (error "No fonts being used")) |
95405
6c4caa612333
(describe-font): Don't check fontset
Kenichi Handa <handa@m17n.org>
parents:
95348
diff
changeset
|
840 (let (font-info) |
6c4caa612333
(describe-font): Don't check fontset
Kenichi Handa <handa@m17n.org>
parents:
95348
diff
changeset
|
841 (if (or (not fontname) (= (length fontname) 0)) |
6c4caa612333
(describe-font): Don't check fontset
Kenichi Handa <handa@m17n.org>
parents:
95348
diff
changeset
|
842 (setq fontname (face-attribute 'default :font))) |
72263
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
843 (setq font-info (font-info fontname)) |
17052 | 844 (if (null font-info) |
95405
6c4caa612333
(describe-font): Don't check fontset
Kenichi Handa <handa@m17n.org>
parents:
95348
diff
changeset
|
845 (if (fontp fontname 'font-object) |
72263
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
846 ;; The font should be surely used. So, there's some |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
847 ;; problem about getting information about it. It is |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
848 ;; better to print the fontname to show which font has |
12a2fefc1194
(describe-font): Improve docstring
Kenichi Handa <handa@m17n.org>
parents:
65680
diff
changeset
|
849 ;; this problem. |
95405
6c4caa612333
(describe-font): Don't check fontset
Kenichi Handa <handa@m17n.org>
parents:
95348
diff
changeset
|
850 (message "No information about \"%s\"" (font-xlfd-name fontname)) |
6c4caa612333
(describe-font): Don't check fontset
Kenichi Handa <handa@m17n.org>
parents:
95348
diff
changeset
|
851 (message "No matching font found")) |
17052 | 852 (with-output-to-temp-buffer "*Help*" |
102934
ed0a00c1025a
* international/mule-diag.el (describe-font-internal): Change
Chong Yidong <cyd@stupidchicken.com>
parents:
102519
diff
changeset
|
853 (describe-font-internal font-info))))) |
17052 | 854 |
89355
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
855 (defun print-fontset-element (val) |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
856 ;; VAL has this format: |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
857 ;; ((REQUESTED-FONT-NAME OPENED-FONT-NAME ...) ...) |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
858 ;; CHAR RANGE is already inserted. Get character codes from |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
859 ;; the current line. |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
860 (beginning-of-line) |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
861 (let ((from (following-char)) |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
862 (to (if (looking-at "[^.]*[.]* ") |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
863 (char-after (match-end 0))))) |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
864 (if (re-search-forward "[ \t]*$" nil t) |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
865 (delete-region (match-beginning 0) (match-end 0))) |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
866 |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
867 ;; For non-ASCII characters, insert also CODE RANGE. |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
868 (if (or (>= from 128) (and to (>= to 128))) |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
869 (if to |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
870 (insert (format " (#x%02X .. #x%02X)" from to)) |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
871 (insert (format " (#x%02X)" from)))) |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
872 |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
873 ;; Insert a requested font name. |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
874 (dolist (elt val) |
91515
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
875 (if (not elt) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
876 (insert "\n -- inhibit fallback fonts --") |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
877 (let ((requested (car elt))) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
878 (if (stringp requested) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
879 (insert "\n " requested) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
880 (let (family registry weight slant width adstyle) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
881 (if (and (fboundp 'fontp) (fontp requested)) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
882 (setq family (font-get requested :family) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
883 registry (font-get requested :registry) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
884 weight (font-get requested :weight) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
885 slant (font-get requested :slant) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
886 width (font-get requested :width) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
887 adstyle (font-get requested :adstyle)) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
888 (setq family (aref requested 0) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
889 registry (aref requested 5) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
890 weight (aref requested 1) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
891 slant (aref requested 2) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
892 width (aref requested 3) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
893 adstyle (aref requested 4))) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
894 (if (not family) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
895 (setq family "*-*") |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
896 (if (symbolp family) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
897 (setq family (symbol-name family))) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
898 (or (string-match "-" family) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
899 (setq family (concat "*-" family)))) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
900 (if (not registry) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
901 (setq registry "*-*") |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
902 (if (symbolp registry) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
903 (setq registry (symbol-name registry))) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
904 (or (string-match "-" registry) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
905 (= (aref registry (1- (length registry))) ?*) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
906 (setq registry (concat registry "*")))) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
907 (insert (format"\n -%s-%s-%s-%s-%s-*-*-*-*-*-*-%s" |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
908 family (or weight "*") (or slant "*") (or width "*") |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
909 (or adstyle "*") registry))))) |
89355
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
910 |
91515
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
911 ;; Insert opened font names (if any). |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
912 (if (and (boundp 'print-opened) (symbol-value 'print-opened)) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
913 (dolist (opened (cdr elt)) |
2ebe99b97e12
(print-fontset-element): Handle the
Kenichi Handa <handa@m17n.org>
parents:
91327
diff
changeset
|
914 (insert "\n\t[" opened "]"))))))) |
89355
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
915 |
95841
b4e36ff621b3
Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
95622
diff
changeset
|
916 (declare-function query-fontset "fontset.c" (pattern &optional regexpp)) |
b4e36ff621b3
Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
95622
diff
changeset
|
917 (declare-function fontset-info "fontset.c" (fontset &optional frame)) |
b4e36ff621b3
Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
95622
diff
changeset
|
918 |
89355
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
919 (defun print-fontset (fontset &optional print-opened) |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
920 "Print information about FONTSET. |
102519
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
921 FONTSET nil means the fontset of the selected frame, t means the |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
922 default fontset. |
89355
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
923 If optional arg PRINT-OPENED is non-nil, also print names of all opened |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
924 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
|
925 the current buffer." |
102519
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
926 (if (eq fontset t) |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
927 (setq fontset (query-fontset "fontset-default")) |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
928 (if (eq fontset nil) |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
929 (setq fontset (face-attribute 'default :fontset)))) |
88895
ab54ec5d2b3c
(print-fontset): Use describe-vector
Kenichi Handa <handa@m17n.org>
parents:
88818
diff
changeset
|
930 (beginning-of-line) |
102519
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
931 (narrow-to-region (point) (point)) |
88895
ab54ec5d2b3c
(print-fontset): Use describe-vector
Kenichi Handa <handa@m17n.org>
parents:
88818
diff
changeset
|
932 (insert "Fontset: " fontset "\n") |
89355
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
933 (insert (propertize "CHAR RANGE" 'face 'underline) |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
934 " (" (propertize "CODE RANGE" 'face 'underline) ")\n") |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
935 (insert " " (propertize "FONT NAME" 'face 'underline) |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
936 " (" (propertize "REQUESTED" 'face 'underline) |
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
937 " and [" (propertize "OPENED" 'face 'underline) "])") |
102519
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
938 (let* ((info (fontset-info fontset)) |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
939 (default-info (char-table-extra-slot info 0)) |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
940 start1 end1 start2 end2) |
89355
6f8fa82cac02
(print-fontset-element): New
Kenichi Handa <handa@m17n.org>
parents:
89346
diff
changeset
|
941 (describe-vector info 'print-fontset-element) |
102519
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
942 (when (char-table-range info nil) |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
943 ;; The default of FONTSET is described. |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
944 (setq start1 (re-search-backward "^default")) |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
945 (delete-region (point) (line-end-position)) |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
946 (insert "\n ---<fallback to the default of the specified fontset>---") |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
947 (put-text-property (line-beginning-position) (point) 'face 'highlight) |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
948 (goto-char (point-max)) |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
949 (setq end1 (setq start2 (point)))) |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
950 (when default-info |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
951 (insert "\n ---<fallback to the default fontset>---") |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
952 (put-text-property (line-beginning-position) (point) 'face 'highlight) |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
953 (describe-vector default-info 'print-fontset-element) |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
954 (when (char-table-range default-info nil) |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
955 ;; The default of the default fontset is described. |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
956 (setq end2 (re-search-backward "^default")) |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
957 (delete-region (point) (line-end-position)) |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
958 (insert "\n ---<fallback to the default of the default fontset>---") |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
959 (put-text-property (line-beginning-position) (point) 'face 'highlight))) |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
960 (if (and start1 end2) |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
961 ;; Reoder the printed information to match with the font |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
962 ;; searching strategy; i.e. FONTSET, the default fontset, |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
963 ;; default of FONTSET, default of the default fontset. |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
964 (transpose-regions start1 end1 start2 end2)) |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
965 (goto-char (point-max))) |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
966 (widen)) |
17052 | 967 |
95841
b4e36ff621b3
Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
95622
diff
changeset
|
968 (defvar fontset-alias-alist) |
b4e36ff621b3
Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
95622
diff
changeset
|
969 (declare-function fontset-list "fontset.c" ()) |
b4e36ff621b3
Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
95622
diff
changeset
|
970 |
17052 | 971 ;;;###autoload |
972 (defun describe-fontset (fontset) | |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
973 "Display information about FONTSET. |
28899
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
974 This shows which font is used for which character(s)." |
17052 | 975 (interactive |
28216
cad26a9da36b
(describe-font): Don't refer to
Kenichi Handa <handa@m17n.org>
parents:
27973
diff
changeset
|
976 (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
|
977 (error "No fontsets being used") |
35585 | 978 (let ((fontset-list (nconc |
45909
9f98a97f5469
(describe-fontset): Don't cons uselessly.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45871
diff
changeset
|
979 (fontset-list) |
9f98a97f5469
(describe-fontset): Don't cons uselessly.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45871
diff
changeset
|
980 (mapcar 'cdr fontset-alias-alist))) |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
981 (completion-ignore-case t)) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
982 (list (completing-read |
65680
ed770a0a7846
2005-09-24 Emilio C. Lopes <eclig@gmx.net>
Romain Francoise <romain@orebokech.com>
parents:
64085
diff
changeset
|
983 "Fontset (default used by the current frame): " |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
984 fontset-list nil t))))) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
985 (if (= (length fontset) 0) |
102519
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
986 (setq fontset (face-attribute 'default :fontset)) |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
987 (setq fontset (query-fontset fontset))) |
105372
bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents:
104823
diff
changeset
|
988 (help-setup-xref (list #'describe-fontset fontset) |
bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents:
104823
diff
changeset
|
989 (called-interactively-p 'interactive)) |
40664
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
990 (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
|
991 (with-current-buffer standard-output |
28899
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
992 (print-fontset fontset t)))) |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
993 |
95841
b4e36ff621b3
Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
95622
diff
changeset
|
994 (declare-function fontset-plain-name "fontset" (fontset)) |
b4e36ff621b3
Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
95622
diff
changeset
|
995 |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
996 ;;;###autoload |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
997 (defun list-fontsets (arg) |
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
998 "Display a list of all fontsets. |
22306 | 999 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
|
1000 With prefix arg, also list the fonts contained in each fontset; |
22306 | 1001 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
|
1002 (interactive "P") |
28216
cad26a9da36b
(describe-font): Don't refer to
Kenichi Handa <handa@m17n.org>
parents:
27973
diff
changeset
|
1003 (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
|
1004 (error "No fontsets being used") |
105372
bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents:
104823
diff
changeset
|
1005 (help-setup-xref (list #'list-fontsets arg) |
bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents:
104823
diff
changeset
|
1006 (called-interactively-p 'interactive)) |
40664
4e5f8e42b8d1
(list-character-sets, sort-listed-character-sets, describe-character-set)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40639
diff
changeset
|
1007 (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
|
1008 (with-current-buffer standard-output |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1009 ;; 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
|
1010 (let ((fontsets |
782215de9b98
(list-fontsets): Sort fontsets by plain names.
Kenichi Handa <handa@m17n.org>
parents:
23582
diff
changeset
|
1011 (sort (fontset-list) |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
1012 (lambda (x y) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
1013 (string< (fontset-plain-name x) |
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
1014 (fontset-plain-name y)))))) |
21469
ea652c41eec6
(list-input-methods): Fix doc string.
Karl Heuer <kwzh@gnu.org>
parents:
20731
diff
changeset
|
1015 (while fontsets |
28899
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1016 (if arg |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1017 (print-fontset (car fontsets) nil) |
133a92b8094d
(syntax-description-table): New variable.
Kenichi Handa <handa@m17n.org>
parents:
28216
diff
changeset
|
1018 (insert "Fontset: " (car fontsets) "\n")) |
21469
ea652c41eec6
(list-input-methods): Fix doc string.
Karl Heuer <kwzh@gnu.org>
parents:
20731
diff
changeset
|
1019 (setq fontsets (cdr fontsets)))))))) |
18300
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
1020 |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
1021 ;;;###autoload |
0436624abece
(list-character-sets): Set major mode of *Help*
Kenichi Handa <handa@m17n.org>
parents:
18199
diff
changeset
|
1022 (defun list-input-methods () |
22306 | 1023 "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
|
1024 (interactive) |
105372
bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents:
104823
diff
changeset
|
1025 (help-setup-xref '(list-input-methods) |
bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents:
104823
diff
changeset
|
1026 (called-interactively-p 'interactive)) |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
1027 (with-output-to-temp-buffer (help-buffer) |
43231
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
1028 (list-input-methods-1) |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
1029 (with-current-buffer standard-output |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
1030 (save-excursion |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
1031 (goto-char (point-min)) |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
1032 (while (re-search-forward |
06e0fbd07e17
Various doc and message fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
42362
diff
changeset
|
1033 "^ \\([^ ]+\\) (`.*' 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
|
1034 (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
|
1035 |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1036 (defun list-input-methods-1 () |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1037 (if (not input-method-alist) |
100212
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
1038 (princ " |
44746
8f2bf8b392fe
(list-input-methods-1): Doc fix
Pavel Janík <Pavel@Janik.cz>
parents:
43977
diff
changeset
|
1039 No input method is available, perhaps because you have not |
100212
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
1040 installed LEIM (Libraries of Emacs Input Methods).") |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1041 (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
|
1042 (princ " SHORT-DESCRIPTION\n------------------------------\n") |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1043 (setq input-method-alist |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1044 (sort input-method-alist |
47548
698b4a4bb562
(describe-coding-system): Remove unused `coding-spec' variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46490
diff
changeset
|
1045 (lambda (x y) (string< (nth 1 x) (nth 1 y))))) |
100212
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
1046 |
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
1047 (let (language) |
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
1048 (dolist (elt input-method-alist) |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1049 (when (not (equal language (nth 1 elt))) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1050 (setq language (nth 1 elt)) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1051 (princ language) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1052 (terpri)) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1053 (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
|
1054 (car elt) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1055 (let ((title (nth 3 elt))) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1056 (if (and (consp title) (stringp (car title))) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1057 (car title) |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1058 title)) |
100212
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
1059 (nth 4 elt))))))) |
17052 | 1060 |
1061 ;;; DIAGNOSIS | |
1062 | |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1063 ;; 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
|
1064 (defun insert-section (section-number title) |
17052 | 1065 (insert "########################################\n" |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1066 "# Section " (format "%d" section-number) ". " title "\n" |
17052 | 1067 "########################################\n\n")) |
1068 | |
1069 ;;;###autoload | |
1070 (defun mule-diag () | |
24724
df2a95fa1429
(mule-diag): Change MULE to Mule in docstring.
Kenichi Handa <handa@m17n.org>
parents:
24691
diff
changeset
|
1071 "Display diagnosis of the multilingual environment (Mule). |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1072 |
22306 | 1073 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
|
1074 environment, including lists of input methods, coding systems, |
22306 | 1075 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
|
1076 system which uses fontsets)." |
17052 | 1077 (interactive) |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1078 (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
|
1079 (with-current-buffer standard-output |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1080 (insert "###############################################\n" |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1081 "### Current Status of Multilingual Features ###\n" |
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1082 "###############################################\n\n" |
17052 | 1083 "CONTENTS: Section 1. General Information\n" |
1084 " Section 2. Display\n" | |
1085 " Section 3. Input methods\n" | |
1086 " Section 4. Coding systems\n" | |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1087 " Section 5. Character sets\n") |
28216
cad26a9da36b
(describe-font): Don't refer to
Kenichi Handa <handa@m17n.org>
parents:
27973
diff
changeset
|
1088 (if (and window-system (fboundp 'fontset-list)) |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1089 (insert " Section 6. Fontsets\n")) |
17052 | 1090 (insert "\n") |
1091 | |
1092 (insert-section 1 "General Information") | |
19425
572165bfff3e
(mule-diag): Don't print primary-language.
Richard M. Stallman <rms@gnu.org>
parents:
19265
diff
changeset
|
1093 (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
|
1094 (insert "Configuration options:\n " system-configuration-options "\n\n") |
aeb6db8df2b9
(mule-diag): Insert information about
Kenichi Handa <handa@m17n.org>
parents:
34078
diff
changeset
|
1095 (insert "Multibyte characters awareness:\n" |
104823
68150c643e2e
Use default-value rather than default-enable-multibyte-characters.
Glenn Morris <rgm@gnu.org>
parents:
104664
diff
changeset
|
1096 (format " default: %S\n" (default-value |
68150c643e2e
Use default-value rather than default-enable-multibyte-characters.
Glenn Morris <rgm@gnu.org>
parents:
104664
diff
changeset
|
1097 'enable-multibyte-characters)) |
34631
aeb6db8df2b9
(mule-diag): Insert information about
Kenichi Handa <handa@m17n.org>
parents:
34078
diff
changeset
|
1098 (format " current-buffer: %S\n\n" enable-multibyte-characters)) |
aeb6db8df2b9
(mule-diag): Insert information about
Kenichi Handa <handa@m17n.org>
parents:
34078
diff
changeset
|
1099 (insert "Current language environment: " current-language-environment |
aeb6db8df2b9
(mule-diag): Insert information about
Kenichi Handa <handa@m17n.org>
parents:
34078
diff
changeset
|
1100 "\n\n") |
17052 | 1101 |
1102 (insert-section 2 "Display") | |
1103 (if window-system | |
100234
a31a3e84b5b8
* international/mule-diag.el (mule-diag): Display the window
Juanma Barranquero <lekktu@gmail.com>
parents:
100212
diff
changeset
|
1104 (insert (format "Window-system: %s, version %s" |
a31a3e84b5b8
* international/mule-diag.el (mule-diag): Display the window
Juanma Barranquero <lekktu@gmail.com>
parents:
100212
diff
changeset
|
1105 window-system window-system-version)) |
17052 | 1106 (insert "Terminal: " (getenv "TERM"))) |
1107 (insert "\n\n") | |
1108 | |
100212
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
1109 (if window-system |
17052 | 1110 (let ((font (cdr (assq 'font (frame-parameters))))) |
102519
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
1111 (insert "The font and fontset of the selected frame are:\n" |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
1112 " font: " font "\n" |
2d1154701720
(print-fontset): Handling of the
Kenichi Handa <handa@m17n.org>
parents:
101170
diff
changeset
|
1113 " fontset: " (face-attribute 'default :fontset) "\n")) |
17052 | 1114 (insert "Coding system of the terminal: " |
1115 (symbol-name (terminal-coding-system)))) | |
1116 (insert "\n\n") | |
1117 | |
1118 (insert-section 3 "Input methods") | |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1119 (list-input-methods-1) |
17052 | 1120 (insert "\n") |
1121 (if default-input-method | |
26189
88faf40281cd
(mule-diag): Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
24865
diff
changeset
|
1122 (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
|
1123 (insert "No default input method is specified\n")) |
17052 | 1124 |
1125 (insert-section 4 "Coding systems") | |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1126 (list-coding-systems-1 t) |
17052 | 1127 (insert "\n") |
1128 | |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1129 (insert-section 5 "Character sets") |
27912
ed26ed5b0afc
(list-character-sets): Completely
Kenichi Handa <handa@m17n.org>
parents:
26688
diff
changeset
|
1130 (list-character-sets-2) |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1131 (insert "\n") |
17052 | 1132 |
28216
cad26a9da36b
(describe-font): Don't refer to
Kenichi Handa <handa@m17n.org>
parents:
27973
diff
changeset
|
1133 (when (and window-system (fboundp 'fontset-list)) |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1134 ;; This code duplicates most of list-fontsets. |
18559
20369fbd0f91
(print-list): Use macro when.
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
1135 (insert-section 6 "Fontsets") |
22339
69de59462e22
(list-character-sets-1): New subroutine.
Karl Heuer <kwzh@gnu.org>
parents:
22306
diff
changeset
|
1136 (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
|
1137 (insert "------------\t\t\t\t\t\t ----- -----\n") |
100212
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
1138 (dolist (fontset (fontset-list)) |
8770d8ed68e4
* international/mule-diag.el (list-character-sets): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100194
diff
changeset
|
1139 (print-fontset fontset t))) |
104386
2e0765155e47
Use help-print-return-message rather than the now obsolete alias.
Glenn Morris <rgm@gnu.org>
parents:
103855
diff
changeset
|
1140 (help-print-return-message)))) |
17052 | 1141 |
89483 | 1142 ;;;###autoload |
97914
3202a37b62f3
(font-show-log): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
97536
diff
changeset
|
1143 (defun font-show-log (&optional limit) |
97536
eba6b2798c48
(font-show-log): Add optional arg N to control the limit of font
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
1144 "Show log of font listing and opening. |
97914
3202a37b62f3
(font-show-log): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
97536
diff
changeset
|
1145 Prefix arg LIMIT says how many fonts to show for each listing. |
3202a37b62f3
(font-show-log): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
97536
diff
changeset
|
1146 The default is 20. If LIMIT is negative, do not limit the listing." |
3202a37b62f3
(font-show-log): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
97536
diff
changeset
|
1147 (interactive "P") |
3202a37b62f3
(font-show-log): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
97536
diff
changeset
|
1148 (setq limit (if limit (prefix-numeric-value limit) 20)) |
95174
0626142129fe
(font-show-log): New function.
Kenichi Handa <handa@m17n.org>
parents:
94664
diff
changeset
|
1149 (if (eq font-log t) |
0626142129fe
(font-show-log): New function.
Kenichi Handa <handa@m17n.org>
parents:
94664
diff
changeset
|
1150 (message "Font logging is currently suppressed") |
0626142129fe
(font-show-log): New function.
Kenichi Handa <handa@m17n.org>
parents:
94664
diff
changeset
|
1151 (with-output-to-temp-buffer "*Help*" |
0626142129fe
(font-show-log): New function.
Kenichi Handa <handa@m17n.org>
parents:
94664
diff
changeset
|
1152 (set-buffer standard-output) |
0626142129fe
(font-show-log): New function.
Kenichi Handa <handa@m17n.org>
parents:
94664
diff
changeset
|
1153 (dolist (elt (reverse font-log)) |
0626142129fe
(font-show-log): New function.
Kenichi Handa <handa@m17n.org>
parents:
94664
diff
changeset
|
1154 (insert (format "%s: %s\n" (car elt) (cadr elt))) |
0626142129fe
(font-show-log): New function.
Kenichi Handa <handa@m17n.org>
parents:
94664
diff
changeset
|
1155 (setq elt (nth 2 elt)) |
0626142129fe
(font-show-log): New function.
Kenichi Handa <handa@m17n.org>
parents:
94664
diff
changeset
|
1156 (if (or (vectorp elt) (listp elt)) |
97536
eba6b2798c48
(font-show-log): Add optional arg N to control the limit of font
Kenichi Handa <handa@m17n.org>
parents:
95841
diff
changeset
|
1157 (let ((i 0)) |
95200
fd38f2fd3d08
(font-show-log): Limit each listing
Kenichi Handa <handa@m17n.org>
parents:
95174
diff
changeset
|
1158 (catch 'tag |
fd38f2fd3d08
(font-show-log): Limit each listing
Kenichi Handa <handa@m17n.org>
parents:
95174
diff
changeset
|
1159 (mapc #'(lambda (x) |
fd38f2fd3d08
(font-show-log): Limit each listing
Kenichi Handa <handa@m17n.org>
parents:
95174
diff
changeset
|
1160 (setq i (1+ i)) |
97914
3202a37b62f3
(font-show-log): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
97536
diff
changeset
|
1161 (when (= i limit) |
95200
fd38f2fd3d08
(font-show-log): Limit each listing
Kenichi Handa <handa@m17n.org>
parents:
95174
diff
changeset
|
1162 (insert " ...\n") |
fd38f2fd3d08
(font-show-log): Limit each listing
Kenichi Handa <handa@m17n.org>
parents:
95174
diff
changeset
|
1163 (throw 'tag nil)) |
fd38f2fd3d08
(font-show-log): Limit each listing
Kenichi Handa <handa@m17n.org>
parents:
95174
diff
changeset
|
1164 (insert (format " %s\n" x))) |
fd38f2fd3d08
(font-show-log): Limit each listing
Kenichi Handa <handa@m17n.org>
parents:
95174
diff
changeset
|
1165 elt))) |
95174
0626142129fe
(font-show-log): New function.
Kenichi Handa <handa@m17n.org>
parents:
94664
diff
changeset
|
1166 (insert (format " %s\n" elt))))))) |
0626142129fe
(font-show-log): New function.
Kenichi Handa <handa@m17n.org>
parents:
94664
diff
changeset
|
1167 |
0626142129fe
(font-show-log): New function.
Kenichi Handa <handa@m17n.org>
parents:
94664
diff
changeset
|
1168 |
48050 | 1169 (provide 'mule-diag) |
1170 | |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91515
diff
changeset
|
1171 ;; 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
|
1172 ;;; mule-diag.el ends here |