Fix following doc-links in `widget-documentation-link-action'
* lisp/wid-edit.el (widget-documentation-link-action): Make following doc-links less simplistic (Bug#20398).
This commit is contained in:
parent
557c7d6fc6
commit
62fe329762
1 changed files with 11 additions and 3 deletions
|
@ -2846,9 +2846,17 @@ The following properties have special meanings for this widget:
|
|||
(if (and (fboundp symbol) (boundp symbol))
|
||||
;; If there are two doc strings, give the user a way to pick one.
|
||||
(apropos (concat "\\`" (regexp-quote string) "\\'"))
|
||||
(if (fboundp symbol)
|
||||
(describe-function symbol)
|
||||
(describe-variable symbol)))))
|
||||
(cond
|
||||
((fboundp symbol)
|
||||
(describe-function symbol))
|
||||
((facep symbol)
|
||||
(describe-face symbol))
|
||||
((featurep symbol)
|
||||
(describe-package symbol))
|
||||
((or (boundp symbol) (get symbol 'variable-documentation))
|
||||
(describe-variable symbol))
|
||||
(t
|
||||
(message "No documentation available for %s" symbol))))))
|
||||
|
||||
(defcustom widget-documentation-links t
|
||||
"Add hyperlinks to documentation strings when non-nil."
|
||||
|
|
Loading…
Add table
Reference in a new issue