diff options
| -rw-r--r-- | lisp/help.el | 7 |
1 files changed, 6 insertions, 1 deletions
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." | |||
| 139 | (let ((first-message | 139 | (let ((first-message |
| 140 | (cond ((or (member (buffer-name standard-output) | 140 | (cond ((or (member (buffer-name standard-output) |
| 141 | special-display-buffer-names) | 141 | special-display-buffer-names) |
| 142 | (assoc (buffer-name standard-output) | ||
| 143 | special-display-buffer-names) | ||
| 142 | (let (found | 144 | (let (found |
| 143 | (tail special-display-regexps) | 145 | (tail special-display-regexps) |
| 144 | (name (buffer-name standard-output))) | 146 | (name (buffer-name standard-output))) |
| 145 | (while (and tail (not found)) | 147 | (while (and tail (not found)) |
| 146 | (if (string-match (car tail) name) | 148 | (if (or (and (consp (car taiul)) |
| 149 | (string-match (car (car tail)) name)) | ||
| 150 | (and (stringp (car tail)) | ||
| 151 | (string-match (car tail) name))) | ||
| 147 | (setq found t)) | 152 | (setq found t)) |
| 148 | (setq tail (cdr tail))) | 153 | (setq tail (cdr tail))) |
| 149 | found)) | 154 | found)) |