diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-09-22 05:07:30 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-09-22 05:07:30 +0000 |
commit | 34b0ef48cbde21e2e9e71639dc7df5943dea2614 (patch) | |
tree | a1a64460645302912a8e4daf04fdc75c86ced104 /lisp/help.el | |
parent | 0a952b5763c4a75da9dd0fbfa3c44878f1db2239 (diff) | |
download | emacs-34b0ef48cbde21e2e9e71639dc7df5943dea2614.tar.gz |
(print-help-return-message): Handle cons cells
in special-display-regexps and special-display-buffer-names.
Diffstat (limited to 'lisp/help.el')
-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." (let ((first-message (cond ((or (member (buffer-name standard-output) special-display-buffer-names) + (assoc (buffer-name standard-output) + special-display-buffer-names) (let (found (tail special-display-regexps) (name (buffer-name standard-output))) (while (and tail (not found)) - (if (string-match (car tail) name) + (if (or (and (consp (car taiul)) + (string-match (car (car tail)) name)) + (and (stringp (car tail)) + (string-match (car tail) name))) (setq found t)) (setq tail (cdr tail))) found)) |