annotate lisp/international/mule-diag.el @ 100960:69177b934405

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