annotate lisp/descr-text.el @ 85809:a3af441f6431

Merge from gnus--devo--0 Patches applied: * gnus--devo--0 (patch 401-403) - Update from CVS Revision: emacs@sv.gnu.org/emacs--devo--0--patch-916
author Miles Bader <miles@gnu.org>
date Tue, 30 Oct 2007 23:28:28 +0000
parents 9355f9b7bbff
children 73661ddc7ac7 054e548612aa f55f9811f5d7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
45057
1344a9d40dc8 Follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 45022
diff changeset
1 ;;; descr-text.el --- describe text mode
45022
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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,
75347
e3694f1cb928 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 74403
diff changeset
4 ;; 2005, 2006, 2007 Free Software Foundation, Inc.
45022
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
719482868b87 Add more keywords.
Eli Zaretskii <eliz@gnu.org>
parents: 58994
diff changeset
8 ;; Keywords: faces, i18n, Unicode, multilingual
45022
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
78236
9355f9b7bbff Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 75872
diff changeset
14 ;; the Free Software Foundation; either version 3, or (at your option)
45022
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 ;; any later version.
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 ;; GNU General Public License for more details.
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64091
6fb026ad601f Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 62724
diff changeset
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
6fb026ad601f Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 62724
diff changeset
25 ;; Boston, MA 02110-1301, USA.
45022
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 ;;; Commentary:
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 ;;; Describe-Text Mode.
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 ;;; Code:
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
d68739c97632 (unicodedata-file): New.
Dave Love <fx@gnu.org>
parents: 49588
diff changeset
35
45022
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 ;;; Describe-Text Utilities.
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 (defun describe-text-widget (widget)
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 (defun describe-text-sexp (sexp)
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 "Insert a short description of SEXP in the current buffer."
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 (let ((pp (condition-case signal
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 (pp-to-string sexp)
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53 (error (prin1-to-string signal)))))
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 (when (string-match "\n\\'" pp)
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55 (setq pp (substring pp 0 (1- (length pp)))))
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56 (if (cond ((string-match "\n" pp)
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 nil)
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58 ((> (length pp) (- (window-width) (current-column)))
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59 nil)
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 "Insert a description of PROPERTIES in the current buffer.
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97 (describe-text-widget value))
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102 ;;; Describe-Text Commands.
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
103
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104 (defun describe-text-category (category)
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113 (goto-char (point-min)))))
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
114
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143 (let* ((properties (text-properties-at pos))
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
144 (overlays (overlays-at pos))
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
145 (wid-field (get-char-property pos 'field))
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 (wid-button (get-char-property pos 'button))
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 (wid-doc (get-char-property pos 'widget-doc))
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 ;; If button.el is not loaded, we have no buttons in the text.
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149 (button (and (fboundp 'button-at) (button-at pos)))
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
150 (button-type (and button (button-type button)))
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
151 (button-label (and button (button-label button)))
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
d68739c97632 (unicodedata-file): New.
Dave Love <fx@gnu.org>
parents: 49588
diff changeset
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
d68739c97632 (unicodedata-file): New.
Dave Love <fx@gnu.org>
parents: 49588
diff changeset
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
d68739c97632 (unicodedata-file): New.
Dave Love <fx@gnu.org>
parents: 49588
diff changeset
441 item-list max-width unicode)
d68739c97632 (unicodedata-file): New.
Dave Love <fx@gnu.org>
parents: 49588
diff changeset
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
75872
a527b46e9ab2 (describe-char): Use glyph-char and glyph-face.
Kim F. Storm <storm@cua.dk>
parents: 75347
diff changeset
531 pos (glyph-char char)))))
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)
75872
a527b46e9ab2 (describe-char): Use glyph-char and glyph-face.
Kim F. Storm <storm@cua.dk>
parents: 75347
diff changeset
535 (format "?%c" (glyph-char (car x))))
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
d68739c97632 (unicodedata-file): New.
Dave Love <fx@gnu.org>
parents: 49588
diff changeset
596 (when (cadr elt)
d68739c97632 (unicodedata-file): New.
Dave Love <fx@gnu.org>
parents: 49588
diff changeset
597 (insert (format formatter (car elt)))
d68739c97632 (unicodedata-file): New.
Dave Love <fx@gnu.org>
parents: 49588
diff changeset
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
d68739c97632 (unicodedata-file): New.
Dave Love <fx@gnu.org>
parents: 49588
diff changeset
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))
75872
a527b46e9ab2 (describe-char): Use glyph-char and glyph-face.
Kim F. Storm <storm@cua.dk>
parents: 75347
diff changeset
630 (insert (glyph-char (car (aref disp-vector i))) ?:
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")
75872
a527b46e9ab2 (describe-char): Use glyph-char and glyph-face.
Kim F. Storm <storm@cua.dk>
parents: 75347
diff changeset
637 (let ((face (glyph-face (car (aref disp-vector i)))))
a527b46e9ab2 (describe-char): Use glyph-char and glyph-face.
Kim F. Storm <storm@cua.dk>
parents: 75347
diff changeset
638 (when face
a527b46e9ab2 (describe-char): Use glyph-char and glyph-face.
Kim F. Storm <storm@cua.dk>
parents: 75347
diff changeset
639 (insert (propertize " " 'display '(space :align-to 5))
a527b46e9ab2 (describe-char): Use glyph-char and glyph-face.
Kim F. Storm <storm@cua.dk>
parents: 75347
diff changeset
640 "face: ")
a527b46e9ab2 (describe-char): Use glyph-char and glyph-face.
Kim F. Storm <storm@cua.dk>
parents: 75347
diff changeset
641 (insert (concat "`" (symbol-name face) "'"))
a527b46e9ab2 (describe-char): Use glyph-char and glyph-face.
Kim F. Storm <storm@cua.dk>
parents: 75347
diff changeset
642 (insert "\n")))))
52655
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
643 (insert "these terminal codes:\n")
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
644 (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
645 (insert (car (aref disp-vector i))
52655
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
646 (propertize " " 'display '(space :align-to 5))
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
647 (or (cdr (aref disp-vector i)) "-- not encodable --")
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
648 "\n"))))
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
649
45868
97041c98624e (describe-char): Moved from mule-diag.el, renamed
Richard M. Stallman <rms@gnu.org>
parents: 45700
diff changeset
650 (when composition
52655
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
651 (insert "\nComposed")
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
652 (if (car composition)
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
653 (if (cadr composition)
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
654 (insert " with the surrounding characters \""
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
655 (car composition) "\" and \""
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
656 (cadr composition) "\"")
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
657 (insert " with the preceding character(s) \""
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
658 (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 following character(s) \""
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
661 (cadr composition) "\"")))
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
662 (insert " by the rule:\n\t("
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
663 (mapconcat (lambda (x)
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
664 (format (if (consp x) "%S" "?%c") x))
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
665 (nth 2 composition)
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
666 " ")
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
667 ")")
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
668 (insert "\nThe component character(s) are displayed by ")
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
669 (if (display-graphic-p (selected-frame))
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
670 (progn
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
671 (insert "these fonts (glyph codes):")
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
672 (dolist (elt component-chars)
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
673 (insert "\n " (car elt) ?:
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
674 (propertize " " 'display '(space :align-to 5))
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
675 (if (cdr elt)
67035
0f0c4f1205cd (describe-char): Use Lisp-readable syntax for octal and hex.
Juri Linkov <juri@jurta.org>
parents: 65376
diff changeset
676 (format "%s (#x%02X)" (cadr elt) (cddr elt))
52655
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
677 "-- no font --"))))
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
678 (insert "these terminal codes:")
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
679 (dolist (elt component-chars)
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
680 (insert "\n " (car elt) ":"
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
681 (propertize " " 'display '(space :align-to 5))
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
682 (or (cdr elt) "-- not encodable --"))))
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
683 (insert "\nSee the variable `reference-point-alist' for "
8d4e6d1d7201 (describe-char-display): New function.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
684 "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
685
67542
c6a040f6797b (describe-char): Rework last fix to solve the problem
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67371
diff changeset
686 (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
687 (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
688 (toggle-read-only 1)
67855
d6290d5c2df4 (describe-char): Set help-xref-stack-item
Nick Roberts <nickrob@snap.net.nz>
parents: 67815
diff changeset
689 (print-help-return-message)))))
45022
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
690
51127
d68739c97632 (unicodedata-file): New.
Dave Love <fx@gnu.org>
parents: 49588
diff changeset
691 (defalias 'describe-char-after 'describe-char)
64495
524cffc1c27d (describe-char): Create link buttons for `charset'
Juri Linkov <juri@jurta.org>
parents: 64091
diff changeset
692 (make-obsolete 'describe-char-after 'describe-char "22.1")
51127
d68739c97632 (unicodedata-file): New.
Dave Love <fx@gnu.org>
parents: 49588
diff changeset
693
45700
a54155344566 (toplevel): Provide `descr-text'.
Colin Walters <walters@gnu.org>
parents: 45697
diff changeset
694 (provide 'descr-text)
a54155344566 (toplevel): Provide `descr-text'.
Colin Walters <walters@gnu.org>
parents: 45697
diff changeset
695
58416
28906724d6e3 (syntax-after): Undo last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58150
diff changeset
696 ;; arch-tag: fc55a498-f3e9-4312-b5bd-98cc02480af1
45022
4359b383982c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
697 ;;; descr-text.el ends here