mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

(list-character-sets): Make help-echo

Browse source 
string by substitute-command-keys.
(list-character-sets): Likewise.
(sort-listed-character-sets): Call help-setup-xref.
This commit is contained in:
Kenichi Handa 2000-03-03 04:17:09 +00:00
parent 0d56cdff96
commit e5b99cff11
1 changed files with 17 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lisp/international/mule-diag.el
View file

@ -70,12 +70,13 @@ but still shows the full information."
;; Insert header.
(insert
(substitute-command-keys
(concat
"Use "
(if (display-mouse-p) "\\[help-follow-mouse] or ")
"\\[help-follow] on a title of column\nto sort by that title.")))
(concat "Use "
(if (display-mouse-p) "\\[help-follow-mouse] or ")
"\\[help-follow]:\n")))
(insert " on a column title to sort by that title,")
(indent-to 56)
(insert "+----DIMENSION\n")
(insert " on a charset name to list characters.")
(indent-to 56)
(insert "| +--CHARS\n")
(let ((columns '(("ID-NUM" . id) "\t"
@ -83,6 +84,10 @@ but still shows the full information."
("MULTIBYTE-FORM" . id) "\t"
("D CH FINAL-CHAR" . iso-spec)))
(help-highlight-face 'region)
(help-echo
(substitute-command-keys
(concat (if (display-mouse-p) "\\[help-follow-mouse], ")
"\\[help-follow]: sort on this column")))
pos)
(while columns
(if (stringp (car columns))
@ -91,7 +96,7 @@ but still shows the full information."
(search-backward (car (car columns)))
(help-xref-button 0 'sort-listed-character-sets
(cdr (car columns))
"mouse-2, C-c: sort on this column")
help-echo)
(goto-char (point-max)))
(setq columns (cdr columns)))
(insert "\n"))
@ -112,8 +117,8 @@ but still shows the full information."
(re-search-forward "[0-9][0-9][0-9]")
(beginning-of-line)
(delete-region (point) (point-max))
(list-character-sets-1 sort-key)))))
(list-character-sets-1 sort-key)
(help-setup-xref (list #'list-character-sets nil) t)))))
;; Insert a list of character sets sorted by SORT-KEY. SORT-KEY
;; should be one of `id', `name', and `iso-spec'. If SORT-KEY is nil,
@ -123,6 +128,10 @@ but still shows the full information."
(or sort-key
(setq sort-key 'id))
(let ((tail (charset-list))
(help-echo
(substitute-command-keys
(concat (if (display-mouse-p) "\\[help-follow-mouse], ")
"\\[help-follow]: show table of this character set")))
charset-info-list elt charset info sort-func)
(while tail
(setq charset (car tail) tail (cdr tail)
@ -177,8 +186,7 @@ but still shows the full information."
(indent-to 8)
(insert (symbol-name (nth 1 elt))) ; CHARSET-NAME
(search-backward (symbol-name (nth 1 elt)))
(help-xref-button 0 'list-charset-chars (nth 1 elt)
"mouse-2, RET: show table of this character set")
(help-xref-button 0 'list-charset-chars (nth 1 elt) help-echo)
(goto-char (point-max))
(insert "\t")
(indent-to 40)