Commit 6e7f5182 authored by Richard M. Stallman's avatar Richard M. Stallman

(print-help-return-message): Check same-window-buffer-names

and same-window-regexps.
parent 73dc5198
......@@ -190,8 +190,15 @@ If FUNCTION is nil, applies `message' to it, thus printing it."
(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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment