Mercurial > emacs
annotate lisp/descr-text.el @ 74443:54f6b7a5b5b8
Revert previous change (file checked into CVS 2002).
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Tue, 05 Dec 2006 07:08:56 +0000 |
parents | 04f1edde004d |
children | e3694f1cb928 f1d13e615070 |
rev | line source |
---|---|
45057 | 1 ;;; descr-text.el --- describe text mode |
45022 | 2 |
64762
41bb365f41c4
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64636
diff
changeset
|
3 ;; Copyright (C) 1994, 1995, 1996, 2001, 2002, 2003, 2004, |
68651
3bd95f4f2941
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
67865
diff
changeset
|
4 ;; 2005, 2006 Free Software Foundation, Inc. |
45022 | 5 |
6 ;; Author: Boris Goldowsky <boris@gnu.org> | |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
7 ;; Maintainer: FSF |
59752 | 8 ;; Keywords: faces, i18n, Unicode, multilingual |
45022 | 9 |
10 ;; This file is part of GNU Emacs. | |
11 | |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
13 ;; it under the terms of the GNU General Public License as published by | |
14 ;; the Free Software Foundation; either version 2, or (at your option) | |
15 ;; any later version. | |
16 | |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
64091 | 24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
25 ;; Boston, MA 02110-1301, USA. | |
45022 | 26 |
27 ;;; Commentary: | |
28 | |
29 ;;; Describe-Text Mode. | |
30 | |
31 ;;; Code: | |
32 | |
67814
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
33 (eval-when-compile (require 'quail)) |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
34 (require 'help-fns) |
51127 | 35 |
45022 | 36 ;;; Describe-Text Utilities. |
37 | |
38 (defun describe-text-widget (widget) | |
39 "Insert text to describe WIDGET in the current buffer." | |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
40 (insert-text-button |
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
41 (symbol-name (if (symbolp widget) widget (car widget))) |
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
42 'action `(lambda (&rest ignore) |
67814
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
43 (widget-browse ',widget)) |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
44 'help-echo "mouse-2, RET: browse this widget") |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
45 (insert " ") |
67814
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
46 (insert-text-button |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
47 "(widget)Top" 'type 'help-info 'help-args '("(widget)Top"))) |
45022 | 48 |
49 (defun describe-text-sexp (sexp) | |
50 "Insert a short description of SEXP in the current buffer." | |
51 (let ((pp (condition-case signal | |
52 (pp-to-string sexp) | |
53 (error (prin1-to-string signal))))) | |
54 (when (string-match "\n\\'" pp) | |
55 (setq pp (substring pp 0 (1- (length pp))))) | |
56 (if (cond ((string-match "\n" pp) | |
57 nil) | |
58 ((> (length pp) (- (window-width) (current-column))) | |
59 nil) | |
60 (t t)) | |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
61 (insert pp) |
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
62 (insert-text-button |
67865
f94acc1b8bc2
(describe-text-sexp): Use square brackets for
Juri Linkov <juri@jurta.org>
parents:
67855
diff
changeset
|
63 "[Show]" 'action `(lambda (&rest ignore) |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
64 (with-output-to-temp-buffer |
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
65 "*Pp Eval Output*" |
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
66 (princ ',pp))) |
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
67 'help-echo "mouse-2, RET: pretty print value in another buffer")))) |
45022 | 68 |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
69 (defun describe-property-list (properties) |
45022 | 70 "Insert a description of PROPERTIES in the current buffer. |
71 PROPERTIES should be a list of overlay or text properties. | |
54686
d74ae0505dad
(describe-property-list): Add `font-lock-face'.
Juri Linkov <juri@jurta.org>
parents:
54545
diff
changeset
|
72 The `category', `face' and `font-lock-face' properties are made |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
73 into help buttons that call `describe-text-category' or |
54686
d74ae0505dad
(describe-property-list): Add `font-lock-face'.
Juri Linkov <juri@jurta.org>
parents:
54545
diff
changeset
|
74 `describe-face' when pushed." |
45697
234b16d90545
(describe-text-properties): Sort the output by the size of the values.
Colin Walters <walters@gnu.org>
parents:
45057
diff
changeset
|
75 ;; Sort the properties by the size of their value. |
58994
720c9b9bf376
(describe-property-list): Don't treat syntax-table
Juri Linkov <juri@jurta.org>
parents:
58416
diff
changeset
|
76 (dolist (elt (sort (let (ret) |
45697
234b16d90545
(describe-text-properties): Sort the output by the size of the values.
Colin Walters <walters@gnu.org>
parents:
45057
diff
changeset
|
77 (while properties |
58994
720c9b9bf376
(describe-property-list): Don't treat syntax-table
Juri Linkov <juri@jurta.org>
parents:
58416
diff
changeset
|
78 (push (list (pop properties) (pop properties)) ret)) |
45697
234b16d90545
(describe-text-properties): Sort the output by the size of the values.
Colin Walters <walters@gnu.org>
parents:
45057
diff
changeset
|
79 ret) |
65376
22f4c45c6f2f
(describe-property-list): Handle non-symbol prop names.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
80 (lambda (a b) (string< (prin1-to-string (nth 0 a) t) |
22f4c45c6f2f
(describe-property-list): Handle non-symbol prop names.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
81 (prin1-to-string (nth 0 b) t))))) |
45697
234b16d90545
(describe-text-properties): Sort the output by the size of the values.
Colin Walters <walters@gnu.org>
parents:
45057
diff
changeset
|
82 (let ((key (nth 0 elt)) |
234b16d90545
(describe-text-properties): Sort the output by the size of the values.
Colin Walters <walters@gnu.org>
parents:
45057
diff
changeset
|
83 (value (nth 1 elt))) |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
84 (insert (propertize (format " %-20s " key) |
67814
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
85 'face 'help-argument-name)) |
45022 | 86 (cond ((eq key 'category) |
67814
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
87 (insert-text-button |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
88 (symbol-name value) |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
89 'action `(lambda (&rest ignore) |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
90 (describe-text-category ',value)) |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
91 'help-echo "mouse-2, RET: describe this category")) |
58994
720c9b9bf376
(describe-property-list): Don't treat syntax-table
Juri Linkov <juri@jurta.org>
parents:
58416
diff
changeset
|
92 ((memq key '(face font-lock-face mouse-face)) |
67865
f94acc1b8bc2
(describe-text-sexp): Use square brackets for
Juri Linkov <juri@jurta.org>
parents:
67855
diff
changeset
|
93 (insert-text-button |
f94acc1b8bc2
(describe-text-sexp): Use square brackets for
Juri Linkov <juri@jurta.org>
parents:
67855
diff
changeset
|
94 (format "%S" value) |
f94acc1b8bc2
(describe-text-sexp): Use square brackets for
Juri Linkov <juri@jurta.org>
parents:
67855
diff
changeset
|
95 'type 'help-face 'help-args (list value))) |
55754
da7a694d2097
(describe-property-list): Add [show] button for
Juri Linkov <juri@jurta.org>
parents:
55584
diff
changeset
|
96 ((widgetp value) |
45022 | 97 (describe-text-widget value)) |
98 (t | |
58994
720c9b9bf376
(describe-property-list): Don't treat syntax-table
Juri Linkov <juri@jurta.org>
parents:
58416
diff
changeset
|
99 (describe-text-sexp value)))) |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
100 (insert "\n"))) |
45022 | 101 |
102 ;;; Describe-Text Commands. | |
103 | |
104 (defun describe-text-category (category) | |
105 "Describe a text property category." | |
67814
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
106 (interactive "SCategory: ") |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
107 (help-setup-xref (list #'describe-text-category category) (interactive-p)) |
45022 | 108 (save-excursion |
47601
7d00d911e8b9
(describe-text-category): Use *Help*. Don't kill-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47379
diff
changeset
|
109 (with-output-to-temp-buffer "*Help*" |
7d00d911e8b9
(describe-text-category): Use *Help*. Don't kill-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47379
diff
changeset
|
110 (set-buffer standard-output) |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
111 (insert "Category " (format "%S" category) ":\n\n") |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
112 (describe-property-list (symbol-plist category)) |
45022 | 113 (goto-char (point-min))))) |
114 | |
115 ;;;###autoload | |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
116 (defun describe-text-properties (pos &optional output-buffer) |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
117 "Describe widgets, buttons, overlays and text properties at POS. |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
118 Interactively, describe them for the character after point. |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
119 If optional second argument OUTPUT-BUFFER is non-nil, |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
120 insert the output into that buffer, and don't initialize or clear it |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
121 otherwise." |
45022 | 122 (interactive "d") |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
123 (if (>= pos (point-max)) |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
124 (error "No character follows specified position")) |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
125 (if output-buffer |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
126 (describe-text-properties-1 pos output-buffer) |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
127 (if (not (or (text-properties-at pos) (overlays-at pos))) |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
128 (message "This is plain text.") |
57857
6d1cf277e127
(describe-text-properties): Don't err if called in
Kim F. Storm <storm@cua.dk>
parents:
57181
diff
changeset
|
129 (let ((buffer (current-buffer)) |
6d1cf277e127
(describe-text-properties): Don't err if called in
Kim F. Storm <storm@cua.dk>
parents:
57181
diff
changeset
|
130 (target-buffer "*Help*")) |
6d1cf277e127
(describe-text-properties): Don't err if called in
Kim F. Storm <storm@cua.dk>
parents:
57181
diff
changeset
|
131 (when (eq buffer (get-buffer target-buffer)) |
67559
da1c54077c04
(describe-text-properties): Replace buffer name "*Help-2*" with "*Help*<2>".
Juri Linkov <juri@jurta.org>
parents:
67542
diff
changeset
|
132 (setq target-buffer "*Help*<2>")) |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
133 (save-excursion |
57857
6d1cf277e127
(describe-text-properties): Don't err if called in
Kim F. Storm <storm@cua.dk>
parents:
57181
diff
changeset
|
134 (with-output-to-temp-buffer target-buffer |
47601
7d00d911e8b9
(describe-text-category): Use *Help*. Don't kill-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47379
diff
changeset
|
135 (set-buffer standard-output) |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
136 (setq output-buffer (current-buffer)) |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
137 (insert "Text content at position " (format "%d" pos) ":\n\n") |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
138 (with-current-buffer buffer |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
139 (describe-text-properties-1 pos output-buffer)) |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
140 (goto-char (point-min)))))))) |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
141 |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
142 (defun describe-text-properties-1 (pos output-buffer) |
45022 | 143 (let* ((properties (text-properties-at pos)) |
144 (overlays (overlays-at pos)) | |
145 (wid-field (get-char-property pos 'field)) | |
146 (wid-button (get-char-property pos 'button)) | |
147 (wid-doc (get-char-property pos 'widget-doc)) | |
148 ;; If button.el is not loaded, we have no buttons in the text. | |
149 (button (and (fboundp 'button-at) (button-at pos))) | |
150 (button-type (and button (button-type button))) | |
151 (button-label (and button (button-label button))) | |
152 (widget (or wid-field wid-button wid-doc))) | |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
153 (with-current-buffer output-buffer |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
154 ;; Widgets |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
155 (when (widgetp widget) |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
156 (newline) |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
157 (insert (cond (wid-field "This is an editable text area") |
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
158 (wid-button "This is an active area") |
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
159 (wid-doc "This is documentation text"))) |
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
160 (insert " of a ") |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
161 (describe-text-widget widget) |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
162 (insert ".\n\n")) |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
163 ;; Buttons |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
164 (when (and button (not (widgetp wid-button))) |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
165 (newline) |
67865
f94acc1b8bc2
(describe-text-sexp): Use square brackets for
Juri Linkov <juri@jurta.org>
parents:
67855
diff
changeset
|
166 (insert "Here is a `" (format "%S" button-type) |
f94acc1b8bc2
(describe-text-sexp): Use square brackets for
Juri Linkov <juri@jurta.org>
parents:
67855
diff
changeset
|
167 "' button labeled `" button-label "'.\n\n")) |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
168 ;; Overlays |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
169 (when overlays |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
170 (newline) |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
171 (if (eq (length overlays) 1) |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
172 (insert "There is an overlay here:\n") |
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
173 (insert "There are " (format "%d" (length overlays)) |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
174 " overlays here:\n")) |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
175 (dolist (overlay overlays) |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
176 (insert " From " (format "%d" (overlay-start overlay)) |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
177 " to " (format "%d" (overlay-end overlay)) "\n") |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
178 (describe-property-list (overlay-properties overlay))) |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
179 (insert "\n")) |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
180 ;; Text properties |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
181 (when properties |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
182 (newline) |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
183 (insert "There are text properties here:\n") |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
184 (describe-property-list properties))))) |
51278
7192dc1bfcf4
(describe-char-unicode-data): New dummy definition.
Richard M. Stallman <rms@gnu.org>
parents:
51127
diff
changeset
|
185 |
55584
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
186 (defcustom describe-char-unicodedata-file nil |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
187 "Location of Unicode data file. |
74356
25c9571827a2
*** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents:
68651
diff
changeset
|
188 This is the UnicodeData.txt file from the Unicode Consortium, used for |
59758
b8352a1f354a
(describe-char-unicodedata-file): Docstring fix.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
59752
diff
changeset
|
189 diagnostics. If it is non-nil `describe-char' will print data |
55584
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
190 looked up from it. This facility is mostly of use to people doing |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
191 multilingual development. |
51127 | 192 |
74356
25c9571827a2
*** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents:
68651
diff
changeset
|
193 This is a fairly large file, not typically present on GNU systems. |
25c9571827a2
*** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents:
68651
diff
changeset
|
194 At the time of writing it is at the URL |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
195 `http://www.unicode.org/Public/UNIDATA/UnicodeData.txt'." |
55584
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
196 :group 'mule |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59758
diff
changeset
|
197 :version "22.1" |
55584
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
198 :type '(choice (const :tag "None" nil) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
199 file)) |
51278
7192dc1bfcf4
(describe-char-unicode-data): New dummy definition.
Richard M. Stallman <rms@gnu.org>
parents:
51127
diff
changeset
|
200 |
55584
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
201 ;; We could convert the unidata file into a Lispy form once-for-all |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
202 ;; and distribute it for loading on demand. It might be made more |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
203 ;; space-efficient by splitting strings word-wise and replacing them |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
204 ;; with lists of symbols interned in a private obarray, e.g. |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
205 ;; "LATIN SMALL LETTER A" => '(LATIN SMALL LETTER A). |
51127 | 206 |
55584
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
207 ;; Fixme: Check whether this needs updating for Unicode 4. |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
208 (defun describe-char-unicode-data (char) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
209 "Return a list of Unicode data for unicode CHAR. |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
210 Each element is a list of a property description and the property value. |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
211 The list is null if CHAR isn't found in `describe-char-unicodedata-file'." |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
212 (when describe-char-unicodedata-file |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
213 (unless (file-exists-p describe-char-unicodedata-file) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
214 (error "`unicodedata-file' %s not found" describe-char-unicodedata-file)) |
74403
04f1edde004d
(describe-char-unicode-data): Use a hidden buffer for Unicode data file pointed
Juanma Barranquero <lekktu@gmail.com>
parents:
74356
diff
changeset
|
215 (with-current-buffer (get-buffer-create " *Unicode Data*") |
04f1edde004d
(describe-char-unicode-data): Use a hidden buffer for Unicode data file pointed
Juanma Barranquero <lekktu@gmail.com>
parents:
74356
diff
changeset
|
216 (when (zerop (buffer-size)) |
04f1edde004d
(describe-char-unicode-data): Use a hidden buffer for Unicode data file pointed
Juanma Barranquero <lekktu@gmail.com>
parents:
74356
diff
changeset
|
217 ;; Don't use -literally in case of DOS line endings. |
04f1edde004d
(describe-char-unicode-data): Use a hidden buffer for Unicode data file pointed
Juanma Barranquero <lekktu@gmail.com>
parents:
74356
diff
changeset
|
218 (insert-file-contents describe-char-unicodedata-file)) |
55584
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
219 (goto-char (point-min)) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
220 (let ((hex (format "%04X" char)) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
221 found first last) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
222 (if (re-search-forward (concat "^" hex) nil t) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
223 (setq found t) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
224 ;; It's not listed explicitly. Look for ranges, e.g. CJK |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
225 ;; ideographs, and check whether it's in one of them. |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
226 (while (and (re-search-forward "^\\([^;]+\\);[^;]+First>;" nil t) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
227 (>= char (setq first |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
228 (string-to-number (match-string 1) 16))) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
229 (progn |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
230 (forward-line 1) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
231 (looking-at "^\\([^;]+\\);[^;]+Last>;") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
232 (> char |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
233 (setq last |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
234 (string-to-number (match-string 1) 16)))))) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
235 (if (and (>= char first) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
236 (<= char last)) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
237 (setq found t))) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
238 (if found |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
239 (let ((fields (mapcar (lambda (elt) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
240 (if (> (length elt) 0) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
241 elt)) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
242 (cdr (split-string |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
243 (buffer-substring |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
244 (line-beginning-position) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
245 (line-end-position)) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
246 ";"))))) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
247 ;; The length depends on whether the last field was empty. |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
248 (unless (or (= 13 (length fields)) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
249 (= 14 (length fields))) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
250 (error "Invalid contents in %s" describe-char-unicodedata-file)) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
251 ;; The field names and values lists are slightly |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
252 ;; modified from Mule-UCS unidata.el. |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
253 (list |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
254 (list "Name" (let ((name (nth 0 fields))) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
255 ;; Check for <..., First>, <..., Last> |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
256 (if (string-match "\\`\\(<[^,]+\\)," name) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
257 (concat (match-string 1 name) ">") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
258 name))) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
259 (list "Category" |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
260 (cdr (assoc |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
261 (nth 1 fields) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
262 '(("Lu" . "uppercase letter") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
263 ("Ll" . "lowercase letter") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
264 ("Lt" . "titlecase letter") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
265 ("Mn" . "non-spacing mark") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
266 ("Mc" . "spacing-combining mark") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
267 ("Me" . "enclosing mark") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
268 ("Nd" . "decimal digit") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
269 ("Nl" . "letter number") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
270 ("No" . "other number") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
271 ("Zs" . "space separator") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
272 ("Zl" . "line separator") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
273 ("Zp" . "paragraph separator") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
274 ("Cc" . "other control") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
275 ("Cf" . "other format") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
276 ("Cs" . "surrogate") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
277 ("Co" . "private use") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
278 ("Cn" . "not assigned") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
279 ("Lm" . "modifier letter") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
280 ("Lo" . "other letter") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
281 ("Pc" . "connector punctuation") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
282 ("Pd" . "dash punctuation") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
283 ("Ps" . "open punctuation") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
284 ("Pe" . "close punctuation") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
285 ("Pi" . "initial-quotation punctuation") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
286 ("Pf" . "final-quotation punctuation") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
287 ("Po" . "other punctuation") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
288 ("Sm" . "math symbol") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
289 ("Sc" . "currency symbol") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
290 ("Sk" . "modifier symbol") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
291 ("So" . "other symbol"))))) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
292 (list "Combining class" |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
293 (cdr (assoc |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
294 (string-to-number (nth 2 fields)) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
295 '((0 . "Spacing") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
296 (1 . "Overlays and interior") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
297 (7 . "Nuktas") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
298 (8 . "Hiragana/Katakana voicing marks") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
299 (9 . "Viramas") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
300 (10 . "Start of fixed position classes") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
301 (199 . "End of fixed position classes") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
302 (200 . "Below left attached") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
303 (202 . "Below attached") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
304 (204 . "Below right attached") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
305 (208 . "Left attached (reordrant around \ |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
306 single base character)") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
307 (210 . "Right attached") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
308 (212 . "Above left attached") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
309 (214 . "Above attached") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
310 (216 . "Above right attached") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
311 (218 . "Below left") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
312 (220 . "Below") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
313 (222 . "Below right") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
314 (224 . "Left (reordrant around single base \ |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
315 character)") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
316 (226 . "Right") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
317 (228 . "Above left") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
318 (230 . "Above") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
319 (232 . "Above right") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
320 (233 . "Double below") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
321 (234 . "Double above") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
322 (240 . "Below (iota subscript)"))))) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
323 (list "Bidi category" |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
324 (cdr (assoc |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
325 (nth 3 fields) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
326 '(("L" . "Left-to-Right") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
327 ("LRE" . "Left-to-Right Embedding") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
328 ("LRO" . "Left-to-Right Override") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
329 ("R" . "Right-to-Left") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
330 ("AL" . "Right-to-Left Arabic") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
331 ("RLE" . "Right-to-Left Embedding") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
332 ("RLO" . "Right-to-Left Override") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
333 ("PDF" . "Pop Directional Format") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
334 ("EN" . "European Number") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
335 ("ES" . "European Number Separator") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
336 ("ET" . "European Number Terminator") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
337 ("AN" . "Arabic Number") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
338 ("CS" . "Common Number Separator") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
339 ("NSM" . "Non-Spacing Mark") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
340 ("BN" . "Boundary Neutral") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
341 ("B" . "Paragraph Separator") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
342 ("S" . "Segment Separator") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
343 ("WS" . "Whitespace") |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
344 ("ON" . "Other Neutrals"))))) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
345 (list |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
346 "Decomposition" |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
347 (if (nth 4 fields) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
348 (let* ((parts (split-string (nth 4 fields))) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
349 (info (car parts))) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
350 (if (string-match "\\`<\\(.+\\)>\\'" info) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
351 (setq info (match-string 1 info)) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
352 (setq info nil)) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
353 (if info (setq parts (cdr parts))) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
354 ;; Maybe printing ? for unrepresentable unicodes |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
355 ;; here and below should be changed? |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
356 (setq parts (mapconcat |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
357 (lambda (arg) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
358 (string (or (decode-char |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
359 'ucs |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
360 (string-to-number arg 16)) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
361 ??))) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
362 parts " ")) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
363 (concat info parts)))) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
364 (list "Decimal digit value" |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
365 (nth 5 fields)) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
366 (list "Digit value" |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
367 (nth 6 fields)) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
368 (list "Numeric value" |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
369 (nth 7 fields)) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
370 (list "Mirrored" |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
371 (if (equal "Y" (nth 8 fields)) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
372 "yes")) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
373 (list "Old name" (nth 9 fields)) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
374 (list "ISO 10646 comment" (nth 10 fields)) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
375 (list "Uppercase" (and (nth 11 fields) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
376 (string (or (decode-char |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
377 'ucs |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
378 (string-to-number |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
379 (nth 11 fields) 16)) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
380 ??)))) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
381 (list "Lowercase" (and (nth 12 fields) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
382 (string (or (decode-char |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
383 'ucs |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
384 (string-to-number |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
385 (nth 12 fields) 16)) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
386 ??)))) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
387 (list "Titlecase" (and (nth 13 fields) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
388 (string (or (decode-char |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
389 'ucs |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
390 (string-to-number |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
391 (nth 13 fields) 16)) |
bdbbd721cc67
(describe-char-unicode-data, describe-char-unicodedata-file):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55543
diff
changeset
|
392 ??))))))))))) |
52655
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
393 |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
394 ;; Return information about how CHAR is displayed at the buffer |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
395 ;; position POS. If the selected frame is on a graphic display, |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
396 ;; return a cons (FONTNAME . GLYPH-CODE). Otherwise, return a string |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
397 ;; describing the terminal codes for the character. |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
398 (defun describe-char-display (pos char) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
399 (if (display-graphic-p (selected-frame)) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
400 (internal-char-font pos char) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
401 (let* ((coding (terminal-coding-system)) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
402 (encoded (encode-coding-char char coding))) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
403 (if encoded |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
404 (encoded-string-description encoded coding))))) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
405 |
51278
7192dc1bfcf4
(describe-char-unicode-data): New dummy definition.
Richard M. Stallman <rms@gnu.org>
parents:
51127
diff
changeset
|
406 |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
407 ;;;###autoload |
67855
d6290d5c2df4
(describe-char): Set help-xref-stack-item
Nick Roberts <nickrob@snap.net.nz>
parents:
67815
diff
changeset
|
408 (defun describe-char (pos) |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
409 "Describe the character after POS (interactively, the character after point). |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
410 The information includes character code, charset and code points in it, |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
411 syntax, category, how the character is encoded in a file, |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
412 character composition information (if relevant), |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
413 as well as widgets, buttons, overlays, and text properties." |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
414 (interactive "d") |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
415 (if (>= pos (point-max)) |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
416 (error "No character follows specified position")) |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
417 (let* ((char (char-after pos)) |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
418 (charset (char-charset char)) |
47601
7d00d911e8b9
(describe-text-category): Use *Help*. Don't kill-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47379
diff
changeset
|
419 (composition (find-composition pos nil nil t)) |
52655
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
420 (component-chars nil) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
421 (display-table (or (window-display-table) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
422 buffer-display-table |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
423 standard-display-table)) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
424 (disp-vector (and display-table (aref display-table char))) |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
425 (multibyte-p enable-multibyte-characters) |
55305
b1c52f4076c4
(describe-char): Copy the character with text
Kenichi Handa <handa@m17n.org>
parents:
55036
diff
changeset
|
426 (overlays (mapcar #'(lambda (o) (overlay-properties o)) |
b1c52f4076c4
(describe-char): Copy the character with text
Kenichi Handa <handa@m17n.org>
parents:
55036
diff
changeset
|
427 (overlays-at pos))) |
67050
c365e04ea266
(describe-char): When copying overlays put them
Andreas Schwab <schwab@suse.de>
parents:
67035
diff
changeset
|
428 (char-description (if (not multibyte-p) |
c365e04ea266
(describe-char): When copying overlays put them
Andreas Schwab <schwab@suse.de>
parents:
67035
diff
changeset
|
429 (single-key-description char) |
c365e04ea266
(describe-char): When copying overlays put them
Andreas Schwab <schwab@suse.de>
parents:
67035
diff
changeset
|
430 (if (< char 128) |
c365e04ea266
(describe-char): When copying overlays put them
Andreas Schwab <schwab@suse.de>
parents:
67035
diff
changeset
|
431 (single-key-description char) |
c365e04ea266
(describe-char): When copying overlays put them
Andreas Schwab <schwab@suse.de>
parents:
67035
diff
changeset
|
432 (string-to-multibyte |
c365e04ea266
(describe-char): When copying overlays put them
Andreas Schwab <schwab@suse.de>
parents:
67035
diff
changeset
|
433 (char-to-string char))))) |
67814
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
434 (text-props-desc |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
435 (let ((tmp-buf (generate-new-buffer " *text-props*"))) |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
436 (unwind-protect |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
437 (progn |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
438 (describe-text-properties pos tmp-buf) |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
439 (with-current-buffer tmp-buf (buffer-string))) |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
440 (kill-buffer tmp-buf)))) |
51127 | 441 item-list max-width unicode) |
442 | |
55491
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
443 (if (or (< char 256) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
444 (memq 'mule-utf-8 (find-coding-systems-region pos (1+ pos))) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
445 (get-char-property pos 'untranslated-utf-8)) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
446 (setq unicode (or (get-char-property pos 'untranslated-utf-8) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
447 (encode-char char 'ucs)))) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
448 (setq item-list |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
449 `(("character" |
67814
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
450 ,(format "%s (%d, #o%o, #x%x%s)" |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
451 (apply 'propertize char-description |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
452 (text-properties-at pos)) |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
453 char char char |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
454 (if unicode |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
455 (format ", U+%04X" unicode) |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
456 ""))) |
55491
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
457 ("charset" |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
458 ,`(insert-text-button |
67814
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
459 ,(symbol-name charset) |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
460 'type 'help-character-set 'help-args '(,charset)) |
55491
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
461 ,(format "(%s)" (charset-description charset))) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
462 ("code point" |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
463 ,(let ((split (split-char char))) |
67814
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
464 `(insert-text-button |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
465 ,(if (= (charset-dimension charset) 1) |
67865
f94acc1b8bc2
(describe-text-sexp): Use square brackets for
Juri Linkov <juri@jurta.org>
parents:
67855
diff
changeset
|
466 (format "#x%02X" (nth 1 split)) |
f94acc1b8bc2
(describe-text-sexp): Use square brackets for
Juri Linkov <juri@jurta.org>
parents:
67855
diff
changeset
|
467 (format "#x%02X #x%02X" (nth 1 split) |
67814
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
468 (nth 2 split))) |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
469 'action (lambda (&rest ignore) |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
470 (list-charset-chars ',charset) |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
471 (with-selected-window |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
472 (get-buffer-window "*Character List*" 0) |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
473 (goto-char (point-min)) |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
474 (forward-line 2) ;Skip the header. |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
475 (let ((case-fold-search nil)) |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
476 (search-forward ,(char-to-string char) |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
477 nil t)))) |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
478 'help-echo |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
479 "mouse-2, RET: show this character in its character set"))) |
55491
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
480 ("syntax" |
58416
28906724d6e3
(syntax-after): Undo last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58150
diff
changeset
|
481 ,(let ((syntax (syntax-after pos))) |
55491
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
482 (with-temp-buffer |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
483 (internal-describe-syntax-value syntax) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
484 (buffer-string)))) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
485 ("category" |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
486 ,@(let ((category-set (char-category-set char))) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
487 (if (not category-set) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
488 '("-- none --") |
67035
0f0c4f1205cd
(describe-char): Use Lisp-readable syntax for octal and hex.
Juri Linkov <juri@jurta.org>
parents:
65376
diff
changeset
|
489 (mapcar #'(lambda (x) (format "%c:%s" |
55491
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
490 x (category-docstring x))) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
491 (category-set-mnemonics category-set))))) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
492 ,@(let ((props (aref char-code-property-table char)) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
493 ps) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
494 (when props |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
495 (while props |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
496 (push (format "%s:" (pop props)) ps) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
497 (push (format "%s;" (pop props)) ps)) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
498 (list (cons "Properties" (nreverse ps))))) |
55543
7b6cb8aae6f3
Require quail at comile time.
Kenichi Handa <handa@m17n.org>
parents:
55491
diff
changeset
|
499 ("to input" |
57181
8818a855274d
(describe-char): Checking of quail activation
Kenichi Handa <handa@m17n.org>
parents:
55754
diff
changeset
|
500 ,@(let ((key-list (and (eq input-method-function |
8818a855274d
(describe-char): Checking of quail activation
Kenichi Handa <handa@m17n.org>
parents:
55754
diff
changeset
|
501 'quail-input-method) |
55543
7b6cb8aae6f3
Require quail at comile time.
Kenichi Handa <handa@m17n.org>
parents:
55491
diff
changeset
|
502 (quail-find-key char)))) |
7b6cb8aae6f3
Require quail at comile time.
Kenichi Handa <handa@m17n.org>
parents:
55491
diff
changeset
|
503 (if (consp key-list) |
7b6cb8aae6f3
Require quail at comile time.
Kenichi Handa <handa@m17n.org>
parents:
55491
diff
changeset
|
504 (list "type" |
7b6cb8aae6f3
Require quail at comile time.
Kenichi Handa <handa@m17n.org>
parents:
55491
diff
changeset
|
505 (mapconcat #'(lambda (x) (concat "\"" x "\"")) |
64495
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
506 key-list " or ") |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
507 "with" |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
508 `(insert-text-button |
67865
f94acc1b8bc2
(describe-text-sexp): Use square brackets for
Juri Linkov <juri@jurta.org>
parents:
67855
diff
changeset
|
509 ,current-input-method |
67814
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
510 'type 'help-input-method |
cc79e7966f97
2005-12-27 Nick Roberts <nickrob@snap.net.nz>
Nick Roberts <nickrob@snap.net.nz>
parents:
67752
diff
changeset
|
511 'help-args '(,current-input-method)))))) |
55491
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
512 ("buffer code" |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
513 ,(encoded-string-description |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
514 (string-as-unibyte (char-to-string char)) nil)) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
515 ("file code" |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
516 ,@(let* ((coding buffer-file-coding-system) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
517 (encoded (encode-coding-char char coding))) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
518 (if encoded |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
519 (list (encoded-string-description encoded coding) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
520 (format "(encoded by coding system %S)" coding)) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
521 (list "not encodable by coding system" |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
522 (symbol-name coding))))) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
523 ("display" |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
524 ,(cond |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
525 (disp-vector |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
526 (setq disp-vector (copy-sequence disp-vector)) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
527 (dotimes (i (length disp-vector)) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
528 (setq char (aref disp-vector i)) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
529 (aset disp-vector i |
58994
720c9b9bf376
(describe-property-list): Don't treat syntax-table
Juri Linkov <juri@jurta.org>
parents:
58416
diff
changeset
|
530 (cons char (describe-char-display |
720c9b9bf376
(describe-property-list): Don't treat syntax-table
Juri Linkov <juri@jurta.org>
parents:
58416
diff
changeset
|
531 pos (logand char #x7ffff))))) |
55491
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
532 (format "by display table entry [%s] (see below)" |
58994
720c9b9bf376
(describe-property-list): Don't treat syntax-table
Juri Linkov <juri@jurta.org>
parents:
58416
diff
changeset
|
533 (mapconcat |
720c9b9bf376
(describe-property-list): Don't treat syntax-table
Juri Linkov <juri@jurta.org>
parents:
58416
diff
changeset
|
534 #'(lambda (x) |
64495
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
535 (format "?%c" (logand (car x) #x7ffff))) |
58994
720c9b9bf376
(describe-property-list): Don't treat syntax-table
Juri Linkov <juri@jurta.org>
parents:
58416
diff
changeset
|
536 disp-vector " "))) |
55491
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
537 (composition |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
538 (let ((from (car composition)) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
539 (to (nth 1 composition)) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
540 (next (1+ pos)) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
541 (components (nth 2 composition)) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
542 ch) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
543 (setcar composition |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
544 (and (< from pos) (buffer-substring from pos))) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
545 (setcar (cdr composition) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
546 (and (< next to) (buffer-substring next to))) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
547 (dotimes (i (length components)) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
548 (if (integerp (setq ch (aref components i))) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
549 (push (cons ch (describe-char-display pos ch)) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
550 component-chars))) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
551 (setq component-chars (nreverse component-chars)) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
552 (format "composed to form \"%s\" (see below)" |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
553 (buffer-substring from to)))) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
554 (t |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
555 (let ((display (describe-char-display pos char))) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
556 (if (display-graphic-p (selected-frame)) |
52655
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
557 (if display |
55491
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
558 (concat |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
559 "by this font (glyph code)\n" |
67035
0f0c4f1205cd
(describe-char): Use Lisp-readable syntax for octal and hex.
Juri Linkov <juri@jurta.org>
parents:
65376
diff
changeset
|
560 (format " %s (#x%02X)" |
55491
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
561 (car display) (cdr display))) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
562 "no font available") |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
563 (if display |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
564 (format "terminal code %s" display) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
565 "not encodable for terminal")))))) |
64495
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
566 ,@(let ((face |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
567 (if (not (or disp-vector composition)) |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
568 (cond |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
569 ((and show-trailing-whitespace |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
570 (save-excursion (goto-char pos) |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
571 (looking-at "[ \t]+$"))) |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
572 'trailing-whitespace) |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
573 ((and nobreak-char-display unicode (eq unicode '#xa0)) |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
574 'nobreak-space) |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
575 ((and nobreak-char-display unicode (eq unicode '#xad)) |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
576 'escape-glyph) |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
577 ((and (< char 32) (not (memq char '(9 10)))) |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
578 'escape-glyph))))) |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
579 (if face (list (list "hardcoded face" |
67865
f94acc1b8bc2
(describe-text-sexp): Use square brackets for
Juri Linkov <juri@jurta.org>
parents:
67855
diff
changeset
|
580 `(insert-text-button |
f94acc1b8bc2
(describe-text-sexp): Use square brackets for
Juri Linkov <juri@jurta.org>
parents:
67855
diff
changeset
|
581 ,(symbol-name face) |
f94acc1b8bc2
(describe-text-sexp): Use square brackets for
Juri Linkov <juri@jurta.org>
parents:
67855
diff
changeset
|
582 'type 'help-face 'help-args '(,face)))))) |
55491
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
583 ,@(let ((unicodedata (and unicode |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
584 (describe-char-unicode-data unicode)))) |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
585 (if unicodedata |
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
586 (cons (list "Unicode data" " ") unicodedata))))) |
64495
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
587 (setq max-width (apply #'max (mapcar #'(lambda (x) |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
588 (if (cadr x) (length (car x)) 0)) |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
589 item-list))) |
67855
d6290d5c2df4
(describe-char): Set help-xref-stack-item
Nick Roberts <nickrob@snap.net.nz>
parents:
67815
diff
changeset
|
590 (help-setup-xref nil (interactive-p)) |
d6290d5c2df4
(describe-char): Set help-xref-stack-item
Nick Roberts <nickrob@snap.net.nz>
parents:
67815
diff
changeset
|
591 (with-output-to-temp-buffer (help-buffer) |
47601
7d00d911e8b9
(describe-text-category): Use *Help*. Don't kill-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47379
diff
changeset
|
592 (with-current-buffer standard-output |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
593 (set-buffer-multibyte multibyte-p) |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
594 (let ((formatter (format "%%%ds:" max-width))) |
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
595 (dolist (elt item-list) |
51127 | 596 (when (cadr elt) |
597 (insert (format formatter (car elt))) | |
598 (dolist (clm (cdr elt)) | |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
599 (if (eq (car-safe clm) 'insert-text-button) |
64495
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
600 (progn (insert " ") (eval clm)) |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
601 (when (>= (+ (current-column) |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
602 (or (string-match "\n" clm) |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
603 (string-width clm)) |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
604 1) |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
605 (window-width)) |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
606 (insert "\n") |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
607 (indent-to (1+ max-width))) |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
608 (insert " " clm))) |
51127 | 609 (insert "\n")))) |
52655
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
610 |
67371
0df745d01551
(describe-char): Use *Help-2* buffer if the
Kenichi Handa <handa@m17n.org>
parents:
67050
diff
changeset
|
611 (when overlays |
0df745d01551
(describe-char): Use *Help-2* buffer if the
Kenichi Handa <handa@m17n.org>
parents:
67050
diff
changeset
|
612 (save-excursion |
0df745d01551
(describe-char): Use *Help-2* buffer if the
Kenichi Handa <handa@m17n.org>
parents:
67050
diff
changeset
|
613 (goto-char (point-min)) |
0df745d01551
(describe-char): Use *Help-2* buffer if the
Kenichi Handa <handa@m17n.org>
parents:
67050
diff
changeset
|
614 (re-search-forward "character:[ \t\n]+") |
0df745d01551
(describe-char): Use *Help-2* buffer if the
Kenichi Handa <handa@m17n.org>
parents:
67050
diff
changeset
|
615 (let* ((end (+ (point) (length char-description)))) |
67050
c365e04ea266
(describe-char): When copying overlays put them
Andreas Schwab <schwab@suse.de>
parents:
67035
diff
changeset
|
616 (mapc #'(lambda (props) |
67371
0df745d01551
(describe-char): Use *Help-2* buffer if the
Kenichi Handa <handa@m17n.org>
parents:
67050
diff
changeset
|
617 (let ((o (make-overlay (point) end))) |
67050
c365e04ea266
(describe-char): When copying overlays put them
Andreas Schwab <schwab@suse.de>
parents:
67035
diff
changeset
|
618 (while props |
c365e04ea266
(describe-char): When copying overlays put them
Andreas Schwab <schwab@suse.de>
parents:
67035
diff
changeset
|
619 (overlay-put o (car props) (nth 1 props)) |
c365e04ea266
(describe-char): When copying overlays put them
Andreas Schwab <schwab@suse.de>
parents:
67035
diff
changeset
|
620 (setq props (cddr props))))) |
67371
0df745d01551
(describe-char): Use *Help-2* buffer if the
Kenichi Handa <handa@m17n.org>
parents:
67050
diff
changeset
|
621 overlays)))) |
55491
79abf8a72f5a
(describe-char): Fix previous change. Don't make
Kenichi Handa <handa@m17n.org>
parents:
55305
diff
changeset
|
622 |
52655
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
623 (when disp-vector |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
624 (insert |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
625 "\nThe display table entry is displayed by ") |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
626 (if (display-graphic-p (selected-frame)) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
627 (progn |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
628 (insert "these fonts (glyph codes):\n") |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
629 (dotimes (i (length disp-vector)) |
58994
720c9b9bf376
(describe-property-list): Don't treat syntax-table
Juri Linkov <juri@jurta.org>
parents:
58416
diff
changeset
|
630 (insert (logand (car (aref disp-vector i)) #x7ffff) ?: |
52655
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
631 (propertize " " 'display '(space :align-to 5)) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
632 (if (cdr (aref disp-vector i)) |
67035
0f0c4f1205cd
(describe-char): Use Lisp-readable syntax for octal and hex.
Juri Linkov <juri@jurta.org>
parents:
65376
diff
changeset
|
633 (format "%s (#x%02X)" (cadr (aref disp-vector i)) |
52655
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
634 (cddr (aref disp-vector i))) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
635 "-- no font --") |
64495
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
636 "\n") |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
637 (when (> (car (aref disp-vector i)) #x7ffff) |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
638 (let* ((face-id (lsh (car (aref disp-vector i)) -19)) |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
639 (face (car (delq nil (mapcar |
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
640 (lambda (face) |
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
641 (and (eq (face-id face) |
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
642 face-id) face)) |
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
643 (face-list)))))) |
64495
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
644 (when face |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
645 (insert (propertize " " 'display '(space :align-to 5)) |
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
646 "face: ") |
67752
dd459879f1e7
Add FSF as maintainer.
Nick Roberts <nickrob@snap.net.nz>
parents:
67559
diff
changeset
|
647 (insert (concat "`" (symbol-name face) "'")) |
64495
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
648 (insert "\n")))))) |
52655
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
649 (insert "these terminal codes:\n") |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
650 (dotimes (i (length disp-vector)) |
54518
ee587e56fbc4
(describe-char): Use window-width instead of frame-width.
Juri Linkov <juri@jurta.org>
parents:
53028
diff
changeset
|
651 (insert (car (aref disp-vector i)) |
52655
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
652 (propertize " " 'display '(space :align-to 5)) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
653 (or (cdr (aref disp-vector i)) "-- not encodable --") |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
654 "\n")))) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
655 |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
656 (when composition |
52655
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
657 (insert "\nComposed") |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
658 (if (car composition) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
659 (if (cadr composition) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
660 (insert " with the surrounding characters \"" |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
661 (car composition) "\" and \"" |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
662 (cadr composition) "\"") |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
663 (insert " with the preceding character(s) \"" |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
664 (car composition) "\"")) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
665 (if (cadr composition) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
666 (insert " with the following character(s) \"" |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
667 (cadr composition) "\""))) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
668 (insert " by the rule:\n\t(" |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
669 (mapconcat (lambda (x) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
670 (format (if (consp x) "%S" "?%c") x)) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
671 (nth 2 composition) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
672 " ") |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
673 ")") |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
674 (insert "\nThe component character(s) are displayed by ") |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
675 (if (display-graphic-p (selected-frame)) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
676 (progn |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
677 (insert "these fonts (glyph codes):") |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
678 (dolist (elt component-chars) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
679 (insert "\n " (car elt) ?: |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
680 (propertize " " 'display '(space :align-to 5)) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
681 (if (cdr elt) |
67035
0f0c4f1205cd
(describe-char): Use Lisp-readable syntax for octal and hex.
Juri Linkov <juri@jurta.org>
parents:
65376
diff
changeset
|
682 (format "%s (#x%02X)" (cadr elt) (cddr elt)) |
52655
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
683 "-- no font --")))) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
684 (insert "these terminal codes:") |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
685 (dolist (elt component-chars) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
686 (insert "\n " (car elt) ":" |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
687 (propertize " " 'display '(space :align-to 5)) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
688 (or (cdr elt) "-- not encodable --")))) |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
689 (insert "\nSee the variable `reference-point-alist' for " |
8d4e6d1d7201
(describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
690 "the meaning of the rule.\n")) |
45868
97041c98624e
(describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents:
45700
diff
changeset
|
691 |
67542
c6a040f6797b
(describe-char): Rework last fix to solve the problem
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67371
diff
changeset
|
692 (if text-props-desc (insert text-props-desc)) |
67865
f94acc1b8bc2
(describe-text-sexp): Use square brackets for
Juri Linkov <juri@jurta.org>
parents:
67855
diff
changeset
|
693 (setq help-xref-stack-item (list 'help-insert-string (buffer-string))) |
67559
da1c54077c04
(describe-text-properties): Replace buffer name "*Help-2*" with "*Help*<2>".
Juri Linkov <juri@jurta.org>
parents:
67542
diff
changeset
|
694 (toggle-read-only 1) |
67855
d6290d5c2df4
(describe-char): Set help-xref-stack-item
Nick Roberts <nickrob@snap.net.nz>
parents:
67815
diff
changeset
|
695 (print-help-return-message))))) |
45022 | 696 |
51127 | 697 (defalias 'describe-char-after 'describe-char) |
64495
524cffc1c27d
(describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents:
64091
diff
changeset
|
698 (make-obsolete 'describe-char-after 'describe-char "22.1") |
51127 | 699 |
45700
a54155344566
(toplevel): Provide `descr-text'.
Colin Walters <walters@gnu.org>
parents:
45697
diff
changeset
|
700 (provide 'descr-text) |
a54155344566
(toplevel): Provide `descr-text'.
Colin Walters <walters@gnu.org>
parents:
45697
diff
changeset
|
701 |
58416
28906724d6e3
(syntax-after): Undo last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58150
diff
changeset
|
702 ;; arch-tag: fc55a498-f3e9-4312-b5bd-98cc02480af1 |
45022 | 703 ;;; descr-text.el ends here |