diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-02-04 06:46:02 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-02-04 06:46:02 +0000 |
commit | eb8767595540b9fdca461e7e6edd2196f400c8e5 (patch) | |
tree | 45e1da805714853aed0775f479d48b08edaaa02b /lisp/terminal.el | |
parent | 575b3b690490809eb547cedf22b537431cb2edcc (diff) | |
download | emacs-eb8767595540b9fdca461e7e6edd2196f400c8e5.tar.gz |
(te-escape-help, te-more-break-help, terminal-emulator):
Pass just one KEYMAP arg to where-is-internal.
Diffstat (limited to 'lisp/terminal.el')
-rw-r--r-- | lisp/terminal.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/terminal.el b/lisp/terminal.el index 195fc6321c1..256e51dcb70 100644 --- a/lisp/terminal.el +++ b/lisp/terminal.el @@ -202,7 +202,7 @@ Other chars following \"%s\" are interpreted as follows:\n" (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 @@ allowing the next page of output to appear" (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 @@ work with `terminfo' we will try to use it." (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) " "))) |