changeset 2079:51012c0f1227

(command-apropos): Print echo area message iff found symbols.
author Richard M. Stallman <rms@gnu.org>
date Tue, 09 Mar 1993 17:48:56 +0000
parents 4bf349812f55
children 6ee99287dbc6
files lisp/help.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help.el	Tue Mar 09 17:03:08 1993 +0000
+++ b/lisp/help.el	Tue Mar 09 17:48:56 1993 +0000
@@ -381,8 +381,8 @@
   (let ((message
 	 (let ((standard-output (get-buffer-create "*Help*")))
 	   (print-help-return-message 'identity))))
-    (apropos string t 'commandp)
-    (and message (message message))))
+    (if (apropos string t 'commandp)
+	(and message (message message)))))
 
 (defun locate-library (library &optional nosuffix)
   "Show the full path name of Emacs library LIBRARY.