Mercurial > emacs

changeset 42186:e77f859d031b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-language-environment): Fix calls to help-xref-button.
author Richard M. Stallman <rms@gnu.org>
date Wed, 19 Dec 2001 16:33:06 +0000
parents 4b38369fc9f3
children 54140e704be7
files lisp/international/mule-cmds.el
diffstat 1 files changed, 3 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el	Wed Dec 19 16:08:23 2001 +0000
+++ b/lisp/international/mule-cmds.el	Wed Dec 19 16:33:06 2001 +0000
@@ -1606,8 +1606,7 @@
 	    (when (string= language-name (nth 1 (car l)))
 	      (insert "  " (car (car l)))
 	      (search-backward (car (car l)))
-	      (help-xref-button 0 #'describe-input-method (car (car l))
-				"mouse-2, RET: describe this input method")
+	      (help-xref-button 0 'help-input-method (car (car l)))
 	      (goto-char (point-max))
 	      (insert " (\""
 		      (if (stringp (nth 3 (car l)))
@@ -1623,8 +1622,7 @@
 	    (while l
 	      (insert "  " (symbol-name (car l)))
 	      (search-backward (symbol-name (car l)))
-	      (help-xref-button 0 #'describe-character-set (car l)
-				"mouse-2, RET: describe this character set")
+	      (help-xref-button 0 'help-character-set (car l))
 	      (goto-char (point-max))
 	      (insert ": " (charset-description (car l)) "\n")
 	      (setq l (cdr l)))))
@@ -1636,8 +1634,7 @@
 	    (while l
 	      (insert "  " (symbol-name (car l)))
 	      (search-backward (symbol-name (car l)))
-	      (help-xref-button 0 #'describe-coding-system (car l)
-				"mouse-2, RET: describe this coding system")
+	      (help-xref-button 0 'help-coding-system (car l))
 	      (goto-char (point-max))
 	      (insert " (`"
 		      (coding-system-mnemonic (car l))