diff options
| -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." | |||
| 220 | ;; it's no use mentioning a command to scroll, so don't. | 220 | ;; it's no use mentioning a command to scroll, so don't. |
| 221 | (if (or (member (buffer-name standard-output) | 221 | (if (or (member (buffer-name standard-output) |
| 222 | special-display-buffer-names) | 222 | special-display-buffer-names) |
| 223 | (assoc (buffer-name standard-output) | ||
| 224 | special-display-buffer-names) | ||
| 223 | (memq t (mapcar '(lambda (elt) | 225 | (memq t (mapcar '(lambda (elt) |
| 226 | (if (consp elt) | ||
| 227 | (setq elt (car elt))) | ||
| 224 | (string-match elt (buffer-name standard-output))) | 228 | (string-match elt (buffer-name standard-output))) |
| 225 | special-display-regexps))) | 229 | special-display-regexps))) |
| 226 | nil | 230 | nil |
| 227 | (if (or (member (buffer-name standard-output) | 231 | (if (or (member (buffer-name standard-output) |
| 228 | same-window-buffer-names) | 232 | same-window-buffer-names) |
| 233 | (assoc (buffer-name standard-output) | ||
| 234 | same-window-buffer-names) | ||
| 229 | (memq t (mapcar '(lambda (elt) | 235 | (memq t (mapcar '(lambda (elt) |
| 236 | (if (consp elt) | ||
| 237 | (setq elt (car elt))) | ||
| 230 | (string-match elt (buffer-name standard-output))) | 238 | (string-match elt (buffer-name standard-output))) |
| 231 | same-window-regexps))) | 239 | same-window-regexps))) |
| 232 | ;; Say how to scroll this window. | 240 | ;; Say how to scroll this window. |