# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1008779586 0
# Node ID e77f859d031b3bda669ac3711824c59be0c5ded9
# Parent  4b38369fc9f31190c65e7cc2afceba871ddb064f
(describe-language-environment): Fix calls to help-xref-button.

diff -r 4b38369fc9f3 -r e77f859d031b lisp/international/mule-cmds.el
--- 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))