From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 10 Nov 1995 17:08:38 +0000 (+0000)
Subject: (apropos-print): Use buffer *Apropos*, not *Help*.
X-Git-Tag: emacs-19.34~2390
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=09e32aaf275c49e2fd6ea7a4396cf41679c8a397;p=emacs.git

(apropos-print): Use buffer *Apropos*, not *Help*.
(apropos-follow): Don't print a "how to get back" message.

(apropos-follow): Fix error message.
---

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 4a5e16391a8..a51db667874 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -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)))