changeset 13099:5ab611596c38

(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
author Richard M. Stallman <rms@gnu.org>
date Sun, 01 Oct 1995 20:00:22 +0000
parents e1d400bc526e
children 4f0f50fc3aaf
files lisp/help.el
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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.