# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 798736400 0
# Node ID cafa503e806c30283ad8116b6264002e3195dd81
# Parent  fa1abeedc2d0481276ed6afe95c7b4aaae03b563
(print-help-return-message): Check same-window-buffer-names
and same-window-regexps.

diff -r fa1abeedc2d0 -r cafa503e806c lisp/help.el
--- a/lisp/help.el	Mon Apr 24 15:02:12 1995 +0000
+++ b/lisp/help.el	Mon Apr 24 15:13:20 1995 +0000
@@ -190,15 +190,25 @@
 		       (substitute-command-keys first-message)
 		     "")
 		   (if first-message "  " "")
+		   ;; If the help buffer will go in a separate frame,
+		   ;; it's no use mentioning a command to scroll, so don't.
 		   (if (or (member (buffer-name standard-output)
-				   same-window-buffer-names)
+				   special-display-buffer-names)
 			   (memq t (mapcar '(lambda (elt)
 					      (string-match elt (buffer-name standard-output)))
-					   same-window-regexps)))
+					   special-display-regexps)))
+		       nil
+		     (if (or (member (buffer-name standard-output)
+				     same-window-buffer-names)
+			     (memq t (mapcar '(lambda (elt)
+						(string-match elt (buffer-name standard-output)))
+					     same-window-regexps)))
+			 ;; Say how to scroll this window.
+			 (substitute-command-keys
+			  "\\[scroll-up] to scroll the help.")
+		       ;; Say how to scroll some other window.
 		       (substitute-command-keys
-			"\\[scroll-up] to scroll the help.")
-		     (substitute-command-keys
-		      "\\[scroll-other-window] to scroll the help.")))))))
+			"\\[scroll-other-window] to scroll the help."))))))))
 
 (defun describe-key (key)
   "Display documentation of the function invoked by KEY.  KEY is a string."