Mercurial > emacs

changeset 27953:8b485e43ac51

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(list-character-sets): Call help-setup-xref. Add help-echo to xrefs. (list-character-sets-1): Add help-echo to xrefs.
author Dave Love <fx@gnu.org>
date Thu, 02 Mar 2000 10:32:17 +0000
parents 3f3529de0422
children cd22ab1878f2
files lisp/international/mule-diag.el
diffstat 1 files changed, 7 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-diag.el	Thu Mar 02 10:27:35 2000 +0000
+++ b/lisp/international/mule-diag.el	Thu Mar 02 10:32:17 2000 +0000
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
 
-;; Keywords: multilingual, charset, coding system, fontset, diagnosis
+;; Keywords: multilingual, charset, coding system, fontset, diagnosis, i18n
 
 ;; This file is part of GNU Emacs.
 
@@ -90,14 +90,16 @@
 	      (insert (car (car columns)))
 	      (search-backward (car (car columns)))
 	      (help-xref-button 0 'sort-listed-character-sets
-				(cdr (car columns)))
+				(cdr (car columns))
+				"mouse-2, C-c: sort on this column")
 	      (goto-char (point-max)))
 	    (setq columns (cdr columns)))
 	  (insert "\n"))
 	(insert "------\t------------\t\t\t--------------\t- -- ----------\n")
 
 	;; Insert body sorted by charset IDs.
-	(list-character-sets-1 'id)))))
+	(list-character-sets-1 'id)
+	(help-setup-xref (list #'list-character-sets arg) (interactive-p))))))
 
 
 ;; Sort character set list by SORT-KEY.
@@ -175,7 +177,8 @@
       (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))
+      (help-xref-button 0 'list-charset-chars (nth 1 elt)
+			"mouse-2, RET: show table of this character set")
       (goto-char (point-max))
       (insert "\t")
       (indent-to 40)