Mercurial > emacs
changeset 13470:0bfd3ae57234
(apropos-print): Use buffer *Apropos*, not *Help*.
(apropos-follow): Don't print a "how to get back" message.
(apropos-follow): Fix error message.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 10 Nov 1995 17:08:38 +0000 |
| parents | 5bda9e4d85eb |
| children | 0fe6457bc953 |
| files | lisp/apropos.el |
| diffstat | 1 files changed, 3 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/apropos.el Fri Nov 10 17:06:28 1995 +0000 +++ b/lisp/apropos.el Fri Nov 10 17:08:38 1995 +0000 @@ -421,7 +421,7 @@ (symbolp apropos-label-face) (setq apropos-label-face `(face ,apropos-label-face mouse-face highlight))) - (with-output-to-temp-buffer "*Help*" + (with-output-to-temp-buffer "*Apropos*" (let ((p apropos-accumulator) (old-buffer (current-buffer)) symbol item point1 point2) @@ -537,7 +537,7 @@ (1+ (next-single-property-change (point) 'item))))) 'item))) (if (consp item) - (error "%s is just a lonely smbol." (car item))) + (error "%s is just a lonely symbol" (car item))) (while (if (setq action-point (next-single-property-change (point) 'action)) (<= action-point point)) @@ -546,10 +546,7 @@ (funcall (prog1 (get-text-property (or action action-point (point)) 'action) (if other (set-buffer other))) - item)) - (message "%sype %s (undo) to get back to apropos-listing." - (if other "In *Help* buffer t" "T") - (key-description (where-is-internal 'undo nil 1)))) + item)))