Mercurial > emacs

comparison lisp/help.el @ 13099:5ab611596c38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 6a91723f2a8c
children 7fd22a2485f2
comparison
equal deleted inserted replaced
13098:e1d400bc526e 13099:5ab611596c38
218 (if first-message " " "") 218 (if first-message " " "")
219 ;; If the help buffer will go in a separate frame, 219 ;; If the help buffer will go in a separate frame,
220 ;; it's no use mentioning a command to scroll, so don't. 220 ;; it's no use mentioning a command to scroll, so don't.
221 (if (or (member (buffer-name standard-output) 221 (if (or (member (buffer-name standard-output)
222 special-display-buffer-names) 222 special-display-buffer-names)
223 (assoc (buffer-name standard-output)
224 special-display-buffer-names)
223 (memq t (mapcar '(lambda (elt) 225 (memq t (mapcar '(lambda (elt)
226 (if (consp elt)
227 (setq elt (car elt)))
224 (string-match elt (buffer-name standard-output))) 228 (string-match elt (buffer-name standard-output)))
225 special-display-regexps))) 229 special-display-regexps)))
226 nil 230 nil
227 (if (or (member (buffer-name standard-output) 231 (if (or (member (buffer-name standard-output)
228 same-window-buffer-names) 232 same-window-buffer-names)
233 (assoc (buffer-name standard-output)
234 same-window-buffer-names)
229 (memq t (mapcar '(lambda (elt) 235 (memq t (mapcar '(lambda (elt)
236 (if (consp elt)
237 (setq elt (car elt)))
230 (string-match elt (buffer-name standard-output))) 238 (string-match elt (buffer-name standard-output)))
231 same-window-regexps))) 239 same-window-regexps)))
232 ;; Say how to scroll this window. 240 ;; Say how to scroll this window.
233 (substitute-command-keys 241 (substitute-command-keys
234 "\\[scroll-up] to scroll the help.") 242 "\\[scroll-up] to scroll the help.")