# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 812577622 0
# Node ID 5ab611596c38a8d178ee173239f86a31a2e9cda5
# Parent  e1d400bc526e0dd54025305a901ec7cd8a324d9f
(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 -r e1d400bc526e -r 5ab611596c38 lisp/help.el
--- a/lisp/help.el	Sun Oct 01 07:14:42 1995 +0000
+++ b/lisp/help.el	Sun Oct 01 20:00:22 1995 +0000
@@ -220,13 +220,21 @@
 		   ;; 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.