Mercurial > emacs
comparison lisp/help.el @ 11524:cafa503e806c
(print-help-return-message): Check same-window-buffer-names
and same-window-regexps.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 24 Apr 1995 15:13:20 +0000 |
| parents | d39d8e8b6d20 |
| children | 543a76aa50b9 |
comparison
equal
deleted
inserted
replaced
| 11523:fa1abeedc2d0 | 11524:cafa503e806c |
|---|---|
| 188 (concat | 188 (concat |
| 189 (if first-message | 189 (if first-message |
| 190 (substitute-command-keys first-message) | 190 (substitute-command-keys first-message) |
| 191 "") | 191 "") |
| 192 (if first-message " " "") | 192 (if first-message " " "") |
| 193 ;; If the help buffer will go in a separate frame, | |
| 194 ;; it's no use mentioning a command to scroll, so don't. | |
| 193 (if (or (member (buffer-name standard-output) | 195 (if (or (member (buffer-name standard-output) |
| 194 same-window-buffer-names) | 196 special-display-buffer-names) |
| 195 (memq t (mapcar '(lambda (elt) | 197 (memq t (mapcar '(lambda (elt) |
| 196 (string-match elt (buffer-name standard-output))) | 198 (string-match elt (buffer-name standard-output))) |
| 197 same-window-regexps))) | 199 special-display-regexps))) |
| 200 nil | |
| 201 (if (or (member (buffer-name standard-output) | |
| 202 same-window-buffer-names) | |
| 203 (memq t (mapcar '(lambda (elt) | |
| 204 (string-match elt (buffer-name standard-output))) | |
| 205 same-window-regexps))) | |
| 206 ;; Say how to scroll this window. | |
| 207 (substitute-command-keys | |
| 208 "\\[scroll-up] to scroll the help.") | |
| 209 ;; Say how to scroll some other window. | |
| 198 (substitute-command-keys | 210 (substitute-command-keys |
| 199 "\\[scroll-up] to scroll the help.") | 211 "\\[scroll-other-window] to scroll the help.")))))))) |
| 200 (substitute-command-keys | |
| 201 "\\[scroll-other-window] to scroll the help."))))))) | |
| 202 | 212 |
| 203 (defun describe-key (key) | 213 (defun describe-key (key) |
| 204 "Display documentation of the function invoked by KEY. KEY is a string." | 214 "Display documentation of the function invoked by KEY. KEY is a string." |
| 205 (interactive "kDescribe key: ") | 215 (interactive "kDescribe key: ") |
| 206 ;; If this key seq ends with a down event, discard the | 216 ;; If this key seq ends with a down event, discard the |