diff options
author | Richard M. Stallman <[email protected]> | 2001-12-19 16:33:16 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 2001-12-19 16:33:16 +0000 |
commit | 467412aa96a8c1d5f67868223cc3e89f20d0ab77 (patch) | |
tree | a4326c0dbd090931bc453e39b7068cc6bb1ca4f8 /lisp/international/mule-cmds.el | |
parent | c513fc0381564b597b797085ed9fae1ce6883d20 (diff) |
(describe-language-environment): Fix calls to help-xref-button.
Diffstat (limited to 'lisp/international/mule-cmds.el')
-rw-r--r-- | lisp/international/mule-cmds.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 47cac486fa..3469b9ae02 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)) |