diff options
| author | Daniel MartÃn <mardani29@yahoo.es> | 2021-01-10 13:45:44 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-01-10 13:45:44 +0100 |
| commit | e62f71988f8e75de676ea5e0775c97eab1d8793a (patch) | |
| tree | 356e5c3189a775e342bffffac632ef71a9e5d01d /lisp | |
| parent | 14a1a84a33a500d49ce23124f549ff28bd007f41 (diff) | |
| download | emacs-e62f71988f8e75de676ea5e0775c97eab1d8793a.tar.gz emacs-e62f71988f8e75de676ea5e0775c97eab1d8793a.tar.bz2 emacs-e62f71988f8e75de676ea5e0775c97eab1d8793a.zip | |
Minor shortdoc link improvements
* lisp/emacs-lisp/shortdoc.el (shortdoc--display-function): Use
describe-function as a fallback link when a function is not documented
in any Info manual. Also make the link respond to mouse-1, like the
rest of *Help* links, and add a proper help-echo property.
* lisp/help-fns.el (help-fns--mention-shortdoc-groups): Same link
improvement as described before, this time for the shortdoc groups
(bug#45750).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/shortdoc.el | 13 | ||||
| -rw-r--r-- | lisp/help-fns.el | 4 |
2 files changed, 14 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el index 698467e939e..39e69f5aab9 100644 --- a/lisp/emacs-lisp/shortdoc.el +++ b/lisp/emacs-lisp/shortdoc.el @@ -1126,12 +1126,21 @@ There can be any number of :example/:result elements." (insert (propertize "(" 'shortdoc-function t)) (if (plist-get data :no-manual) - (insert (symbol-name function)) + (insert-text-button + (symbol-name function) + 'face 'button + 'action (lambda (_) + (describe-function function)) + 'follow-link t + 'help-echo (purecopy "mouse-1, RET: describe function")) (insert-text-button (symbol-name function) 'face 'button 'action (lambda (_) - (info-lookup-symbol function 'emacs-lisp-mode)))) + (info-lookup-symbol function 'emacs-lisp-mode)) + 'follow-link t + 'help-echo (purecopy "mouse-1, RET: show \ +function's documentation in the Info manual"))) (setq arglist-start (point)) (insert ")\n") ;; Doc string. diff --git a/lisp/help-fns.el b/lisp/help-fns.el index afbb5e3649e..d559221a827 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -713,7 +713,9 @@ FILE is the file where FUNCTION was probably defined." (insert-text-button (symbol-name group) 'action (lambda (_) - (shortdoc-display-group group)))) + (shortdoc-display-group group)) + 'follow-link t + 'help-echo (purecopy "mouse-1, RET: show documentation group"))) groups) (insert (if (= (length groups) 1) " group.\n" |