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." ...@@ -381,8 +381,8 @@ documentation found."
(let ((message (let ((message
(let ((standard-output (get-buffer-create "*Help*"))) (let ((standard-output (get-buffer-create "*Help*")))
(print-help-return-message 'identity)))) (print-help-return-message 'identity))))
(apropos string t 'commandp) (if (apropos string t 'commandp)
(and message (message message)))) (and message (message message)))))
(defun locate-library (library &optional nosuffix) (defun locate-library (library &optional nosuffix)
"Show the full path name of Emacs library LIBRARY. "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