# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 866914289 0
# Node ID 2aaa07c437385fdb8fc0352b7dea9ca6057bdebb
# Parent  ceb9388fe67f4919e04ff471f1ab6676fcec83ba
Comment change.

diff -r ceb9388fe67f -r 2aaa07c43738 lisp/wid-edit.el
--- a/lisp/wid-edit.el	Sat Jun 21 17:30:26 1997 +0000
+++ b/lisp/wid-edit.el	Sat Jun 21 17:31:29 1997 +0000
@@ -2636,10 +2636,11 @@
   (concat "Describe the `" (widget-get widget :value) "' symbol."))
 
 (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))
 	 (symbol (intern string)))
     (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)