mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 13:40:59 -08:00
Code Issues Projects Releases Wiki Activity

(apropos-print): Use buffer *Apropos*, not *Help*.

Browse source 
(apropos-follow): Don't print a "how to get back" message.

(apropos-follow): Fix error message.
This commit is contained in:
Richard M. Stallman 1995-11-10 17:08:38 +00:00
parent fd4ea9a214
commit 09e32aaf27
1 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/apropos.el
View file

@ -421,7 +421,7 @@ found."
(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 @@ found."
(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 @@ found."
(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)))