mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(print-help-return-message): Handle lists in

Browse source 
special-display-regexps and same-window-regexps.  Also in
special-display-buffer-names and same-window-buffer-names
This commit is contained in:
Richard M. Stallman 1995-10-01 20:00:22 +00:00
parent 3ed15d97b1
commit 5cabce210e
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/help.el
View file

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