From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 22 Sep 1994 05:07:30 +0000 (+0000)
Subject: (print-help-return-message): Handle cons cells
X-Git-Tag: emacs-19.34~6862
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=34b0ef48cbde21e2e9e71639dc7df5943dea2614;p=emacs.git

(print-help-return-message): Handle cons cells
in special-display-regexps and special-display-buffer-names.
---

diff --git a/lisp/help.el b/lisp/help.el
index 80cbdcea6f6..220b35ae497 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -139,11 +139,16 @@ If FUNCTION is nil, applies `message' to it, thus printing it."
        (let ((first-message
 	      (cond ((or (member (buffer-name standard-output)
 				 special-display-buffer-names)
+			 (assoc (buffer-name standard-output)
+				special-display-buffer-names)
 			 (let (found
 			       (tail special-display-regexps)
 			       (name (buffer-name standard-output)))
 			   (while (and tail (not found))
-			     (if (string-match (car tail) name)
+			     (if (or (and (consp (car taiul))
+					  (string-match (car (car tail)) name))
+				     (and (stringp (car tail))
+					  (string-match (car tail) name)))
 				 (setq found t))
 			     (setq tail (cdr tail)))
 			   found))