Mercurial > emacs
changeset 13099:5ab611596c38
(print-help-return-message): Handle lists in
special-display-regexps and same-window-regexps. Also in
special-display-buffer-names and same-window-buffer-names
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 01 Oct 1995 20:00:22 +0000 |
| parents | e1d400bc526e |
| children | 4f0f50fc3aaf |
| files | lisp/help.el |
| diffstat | 1 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Sun Oct 01 07:14:42 1995 +0000 +++ b/lisp/help.el Sun Oct 01 20:00:22 1995 +0000 @@ -220,13 +220,21 @@ ;; 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.