From 3a4df6e5167ffe855a5add59e2cd8457c158fab0 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 2 Mar 2000 10:32:17 +0000 Subject: [PATCH] (list-character-sets): Call help-setup-xref. Add help-echo to xrefs. (list-character-sets-1): Add help-echo to xrefs. --- lisp/international/mule-diag.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index b501bfe2190..b91b06b1bf8 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el @@ -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 @@ but still shows the full information." (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 @@ 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)) + (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) -- 2.39.5