diff options
Diffstat (limited to 'lisp/help.el')
| -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 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. |