(describe-language-environment): Fix calls to help-xref-button.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 92d5efc5f581d908d16fc4d39f2155d18512d0e0..b10a54d52530318bf756f858094df29274b3430a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-19  Richard M. Stallman  <rms@gnu.org>
+
+       * international/mule-cmds.el (describe-language-environment): 
+       Fix calls to help-xref-button.
+       
 2001-12-19  Miles Bader  <miles@gnu.org>
 
        * international/fontset.el: Require `ind-util' when compiling.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 47cac486fa012ed976dcb4bcdee2d1b0106aeec5..3469b9ae0238d73fa224953a0fba5289c5e857aa 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1606,8 +1606,7 @@ of buffer-file-coding-system set by this function."
            (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 @@ of buffer-file-coding-system set by this function."
            (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 @@ of buffer-file-coding-system set by this function."
            (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))