Commit f9923499 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Comment change.

parent 9dccd7ef
...@@ -2636,10 +2636,11 @@ when he invoked the menu." ...@@ -2636,10 +2636,11 @@ when he invoked the menu."
(concat "Describe the `" (widget-get widget :value) "' symbol.")) (concat "Describe the `" (widget-get widget :value) "' symbol."))
(defun widget-documentation-link-action (widget &optional event) (defun widget-documentation-link-action (widget &optional event)
"Run apropos on WIDGET's value. Ignore optional argument EVENT." "Display documentation for WIDGET's value. Ignore optional argument EVENT."
(let* ((string (widget-get widget :value)) (let* ((string (widget-get widget :value))
(symbol (intern string))) (symbol (intern string)))
(if (and (fboundp symbol) (boundp symbol)) (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) "\\'")) (apropos (concat "\\`" (regexp-quote string) "\\'"))
(if (fboundp symbol) (if (fboundp symbol)
(describe-function symbol) (describe-function symbol)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment