diff options
| author | Richard M. Stallman | 1997-06-21 17:31:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-06-21 17:31:29 +0000 |
| commit | f992349954cbcd20313de55a70a8b170474a039c (patch) | |
| tree | 3433d36d087b4df6227717341d024ae8d8a621bc | |
| parent | 9dccd7efe5de031a6eeb976be41d9479695e39ad (diff) | |
| download | emacs-f992349954cbcd20313de55a70a8b170474a039c.tar.gz emacs-f992349954cbcd20313de55a70a8b170474a039c.zip | |
Comment change.
| -rw-r--r-- | lisp/wid-edit.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index ec9fdcdc596..898ad25924d 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el | |||
| @@ -2636,10 +2636,11 @@ when he invoked the menu." | |||
| 2636 | (concat "Describe the `" (widget-get widget :value) "' symbol.")) | 2636 | (concat "Describe the `" (widget-get widget :value) "' symbol.")) |
| 2637 | 2637 | ||
| 2638 | (defun widget-documentation-link-action (widget &optional event) | 2638 | (defun widget-documentation-link-action (widget &optional event) |
| 2639 | "Run apropos on WIDGET's value. Ignore optional argument EVENT." | 2639 | "Display documentation for WIDGET's value. Ignore optional argument EVENT." |
| 2640 | (let* ((string (widget-get widget :value)) | 2640 | (let* ((string (widget-get widget :value)) |
| 2641 | (symbol (intern string))) | 2641 | (symbol (intern string))) |
| 2642 | (if (and (fboundp symbol) (boundp symbol)) | 2642 | (if (and (fboundp symbol) (boundp symbol)) |
| 2643 | ;; If there are two doc strings, give the user a way to pick one. | ||
| 2643 | (apropos (concat "\\`" (regexp-quote string) "\\'")) | 2644 | (apropos (concat "\\`" (regexp-quote string) "\\'")) |
| 2644 | (if (fboundp symbol) | 2645 | (if (fboundp symbol) |
| 2645 | (describe-function symbol) | 2646 | (describe-function symbol) |