diff options
| author | Richard M. Stallman | 1993-03-09 17:48:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-03-09 17:48:56 +0000 |
| commit | 78e3ef3ce66a4f6f5b53fdc920370915bd07b08f (patch) | |
| tree | d3e36e61e8fbb05c043b1d09cc8968f316487550 | |
| parent | 11a364d9f2aa70ad32927bae8a32db9f25ce958d (diff) | |
| download | emacs-78e3ef3ce66a4f6f5b53fdc920370915bd07b08f.tar.gz emacs-78e3ef3ce66a4f6f5b53fdc920370915bd07b08f.zip | |
(command-apropos): Print echo area message iff found symbols.
| -rw-r--r-- | lisp/help.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/help.el b/lisp/help.el index 95d08297361..3be32b6ce57 100644 --- a/lisp/help.el +++ b/lisp/help.el | |||
| @@ -381,8 +381,8 @@ documentation found." | |||
| 381 | (let ((message | 381 | (let ((message |
| 382 | (let ((standard-output (get-buffer-create "*Help*"))) | 382 | (let ((standard-output (get-buffer-create "*Help*"))) |
| 383 | (print-help-return-message 'identity)))) | 383 | (print-help-return-message 'identity)))) |
| 384 | (apropos string t 'commandp) | 384 | (if (apropos string t 'commandp) |
| 385 | (and message (message message)))) | 385 | (and message (message message))))) |
| 386 | 386 | ||
| 387 | (defun locate-library (library &optional nosuffix) | 387 | (defun locate-library (library &optional nosuffix) |
| 388 | "Show the full path name of Emacs library LIBRARY. | 388 | "Show the full path name of Emacs library LIBRARY. |