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

(command-apropos): Print echo area message iff found symbols.

parent 11a364d9
......@@ -381,8 +381,8 @@ documentation found."
(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.
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