diff options
| author | Richard M. Stallman <[email protected]> | 1995-10-01 20:00:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1995-10-01 20:00:22 +0000 |
| commit | 5cabce210eeb1311146ceaa967c20f9ec5b94dd7 (patch) | |
| tree | fccbf456a845f4b457fc7148e7ca27b04e4c68ea | |
| parent | 3ed15d97b1b252b500cb2fb58e7286c3c55178f2 (diff) | |
(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
| -rw-r--r-- | lisp/help.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/help.el b/lisp/help.el index b32cf2dcc9..f9a689bf08 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. |