diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-07-21 08:56:59 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-07-21 09:23:20 +0200 |
| commit | 204d9f976dc4c0f3680bc9ef3392b35701617197 (patch) | |
| tree | 827e9eb58237077180bfdeb21d5c347c3231e782 /lisp/net/dictionary.el | |
| parent | c8a586c1db7fe7c848fe29a01277acdeac8999b1 (diff) | |
| download | emacs-204d9f976dc4c0f3680bc9ef3392b35701617197.tar.gz | |
Make dictionary-help obsolete in favor of describe-mode
* lisp/net/dictionary.el (dictionary-help): Make obsolete in favor
of describe-mode. Update uses.
Diffstat (limited to 'lisp/net/dictionary.el')
| -rw-r--r-- | lisp/net/dictionary.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/net/dictionary.el b/lisp/net/dictionary.el index d0936150194..9143c7d111c 100644 --- a/lisp/net/dictionary.el +++ b/lisp/net/dictionary.el @@ -330,7 +330,7 @@ is utf-8" :doc "Keymap for the dictionary mode." :suppress t :parent button-buffer-map "q" #'dictionary-close - "h" #'dictionary-help + "h" #'describe-mode "s" #'dictionary-search "d" #'dictionary-lookup-definition "D" #'dictionary-select-dictionary @@ -379,7 +379,7 @@ protocol defined in RFC 2229. This is a quick reference to this mode describing the default key bindings: \\<dictionary-mode-map> * \\[dictionary-close] close the dictionary buffer -* \\[dictionary-help] display this help information +* \\[describe-mode] display this help information * \\[dictionary-search] ask for a new word to search * \\[dictionary-lookup-definition] search the word at point * \\[forward-button] or TAB place point to the next link @@ -389,7 +389,7 @@ This is a quick reference to this mode describing the default key bindings: * \\[dictionary-select-dictionary] select the default dictionary * \\[dictionary-select-strategy] select the default search strategy -* RET or <mouse-2> visit that link" +* \\`RET' or \\`<mouse-2>' visit that link" (unless (eq major-mode 'dictionary-mode) (cl-incf dictionary-instances)) @@ -1184,7 +1184,8 @@ allows editing it." (defun dictionary-help () "Display a little help." - (interactive) + (declare (obsolete describe-mode "29.1")) + (interactive nil dictionary-mode) (describe-function 'dictionary-mode)) ;;;###autoload |