From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 1 Oct 1995 20:00:22 +0000 (+0000)
Subject: (print-help-return-message): Handle lists in
X-Git-Tag: emacs-19.34~2761
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5cabce210eeb1311146ceaa967c20f9ec5b94dd7;p=emacs.git

(print-help-return-message): Handle lists in
special-display-regexps and same-window-regexps.  Also in
special-display-buffer-names and same-window-buffer-names
---

diff --git a/lisp/help.el b/lisp/help.el
index b32cf2dcc97..f9a689bf081 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -220,13 +220,21 @@ If FUNCTION is nil, applies `message' to it, thus printing it."
 		   ;; it's no use mentioning a command to scroll, so don't.
 		   (if (or (member (buffer-name standard-output)
 				   special-display-buffer-names)
+			   (assoc (buffer-name standard-output)
+				  special-display-buffer-names)
 			   (memq t (mapcar '(lambda (elt)
+					      (if (consp elt)
+						  (setq elt (car elt)))
 					      (string-match elt (buffer-name standard-output)))
 					   special-display-regexps)))
 		       nil
 		     (if (or (member (buffer-name standard-output)
 				     same-window-buffer-names)
+			     (assoc (buffer-name standard-output)
+				    same-window-buffer-names)
 			     (memq t (mapcar '(lambda (elt)
+						(if (consp elt)
+						    (setq elt (car elt)))
 						(string-match elt (buffer-name standard-output)))
 					     same-window-regexps)))
 			 ;; Say how to scroll this window.