Mercurial > emacs
changeset 5774:b57901dfbd40
(te-escape-help, te-more-break-help, terminal-emulator):
Pass just one KEYMAP arg to where-is-internal.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 04 Feb 1994 06:46:02 +0000 |
| parents | 54baa5a15850 |
| children | 07a36e38e514 |
| files | lisp/terminal.el |
| diffstat | 1 files changed, 3 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/terminal.el Fri Feb 04 06:45:41 1994 +0000 +++ b/lisp/terminal.el Fri Feb 04 06:46:02 1994 +0000 @@ -202,7 +202,7 @@ (princ (substitute-command-keys "\\{terminal-escape-map}\n")) (princ (format "\nSubcommands of \"%s\" (%s)\n" (where-is-internal 'te-escape-extended-command - terminal-escape-map nil t) + terminal-escape-map t) 'te-escape-extended-command)) (let ((l (if (fboundp 'sortcar) (sortcar (copy-sequence te-escape-command-alist) @@ -377,7 +377,7 @@ (princ "Terminal-emulator more break.\n\n") (princ (format "Type \"%s\" (te-more-break-resume)\n%s\n" (where-is-internal 'te-more-break-resume - terminal-more-break-map nil t) + terminal-more-break-map t) (documentation 'te-more-break-resume))) (princ (substitute-command-keys "\\{terminal-more-break-map}\n")) (princ "Any other key is passed through to the program @@ -1140,9 +1140,7 @@ (message "Entering emacs terminal-emulator... Type %s %s for help" (single-key-description terminal-escape-char) (mapconcat 'single-key-description - (where-is-internal 'te-escape-help - terminal-escape-map - nil t) + (where-is-internal 'te-escape-help terminal-escape-map t) " ")))