Mercurial > emacs
changeset 11428:d39d8e8b6d20
(print-help-return-message): Check same-window-buffer-names
and same-window-regexps.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 13 Apr 1995 18:15:01 +0000 |
| parents | c4ee56df7173 |
| children | 7d21c8a45da0 |
| files | lisp/help.el |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Thu Apr 13 18:06:46 1995 +0000 +++ b/lisp/help.el Thu Apr 13 18:15:01 1995 +0000 @@ -190,8 +190,15 @@ (substitute-command-keys first-message) "") (if first-message " " "") - (substitute-command-keys - "\\[scroll-other-window] to scroll the help.")))))) + (if (or (member (buffer-name standard-output) + same-window-buffer-names) + (memq t (mapcar '(lambda (elt) + (string-match elt (buffer-name standard-output))) + same-window-regexps))) + (substitute-command-keys + "\\[scroll-up] to scroll the help.") + (substitute-command-keys + "\\[scroll-other-window] to scroll the help."))))))) (defun describe-key (key) "Display documentation of the function invoked by KEY. KEY is a string."