procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(print-help-return-message): Handle cons cells

Browse source 
in special-display-regexps and special-display-buffer-names.
This commit is contained in:
Richard M. Stallman 1994-09-22 05:07:30 +00:00
parent 0a952b5763
commit 34b0ef48cb
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/help.el
View file

@ -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))