From 9dccd7efe5de031a6eeb976be41d9479695e39ad Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 21 Jun 1997 17:30:26 +0000 Subject: [PATCH] (widget-documentation-link-action): Use describe-function or describe-variable in simple cases. --- lisp/wid-edit.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index f7926ba3d45..ec9fdcdc596 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -2637,7 +2637,13 @@ when he invoked the menu." (defun widget-documentation-link-action (widget &optional event) "Run apropos on WIDGET's value. Ignore optional argument EVENT." - (apropos (concat "\\`" (regexp-quote (widget-get widget :value)) "\\'"))) + (let* ((string (widget-get widget :value)) + (symbol (intern string))) + (if (and (fboundp symbol) (boundp symbol)) + (apropos (concat "\\`" (regexp-quote string) "\\'")) + (if (fboundp symbol) + (describe-function symbol) + (describe-variable symbol))))) (defcustom widget-documentation-links t "Add hyperlinks to documentation strings when non-nil." -- 2.39.5