From 467412aa96a8c1d5f67868223cc3e89f20d0ab77 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 19 Dec 2001 16:33:16 +0000 Subject: [PATCH] (describe-language-environment): Fix calls to help-xref-button. --- lisp/ChangeLog | 5 +++++ lisp/international/mule-cmds.el | 9 +++------ 2 files changed, 8 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 92d5efc5f58..b10a54d5253 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-12-19 Richard M. Stallman + + * international/mule-cmds.el (describe-language-environment): + Fix calls to help-xref-button. + 2001-12-19 Miles Bader * international/fontset.el: Require `ind-util' when compiling. diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 47cac486fa0..3469b9ae023 100644 --- 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)) -- 2.39.5