From 5cabce210eeb1311146ceaa967c20f9ec5b94dd7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 1 Oct 1995 20:00:22 +0000 Subject: [PATCH] (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 --- lisp/help.el | 8 ++++++++ 1 file changed, 8 insertions(+) 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. -- 2.39.2