mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(te-escape-help, te-more-break-help, terminal-emulator):

Browse Source 
Pass just one KEYMAP arg to where-is-internal.
This commit is contained in:
Richard M. Stallman 1994-02-04 06:46:02 +00:00
parent 16f6355451
commit bc69c9c292
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/terminal.el
View File

@ -202,7 +202,7 @@ Other chars following \"%s\" are interpreted as follows:\n"
(princ (substitute-command-keys "\\{terminal-escape-map}\n")) (princ (substitute-command-keys "\\{terminal-escape-map}\n"))
(princ (format "\nSubcommands of \"%s\" (%s)\n" (princ (format "\nSubcommands of \"%s\" (%s)\n"
(where-is-internal 'te-escape-extended-command (where-is-internal 'te-escape-extended-command
terminal-escape-map nil t) terminal-escape-map t)
'te-escape-extended-command)) 'te-escape-extended-command))
(let ((l (if (fboundp 'sortcar) (let ((l (if (fboundp 'sortcar)
(sortcar (copy-sequence te-escape-command-alist) (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 "Terminal-emulator more break.\n\n")
(princ (format "Type \"%s\" (te-more-break-resume)\n%s\n" (princ (format "Type \"%s\" (te-more-break-resume)\n%s\n"
(where-is-internal 'te-more-break-resume (where-is-internal 'te-more-break-resume
terminal-more-break-map nil t) terminal-more-break-map t)
(documentation 'te-more-break-resume))) (documentation 'te-more-break-resume)))
(princ (substitute-command-keys "\\{terminal-more-break-map}\n")) (princ (substitute-command-keys "\\{terminal-more-break-map}\n"))
(princ "Any other key is passed through to the program (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" (message "Entering emacs terminal-emulator... Type %s %s for help"
(single-key-description terminal-escape-char) (single-key-description terminal-escape-char)
(mapconcat 'single-key-description (mapconcat 'single-key-description
(where-is-internal 'te-escape-help (where-is-internal 'te-escape-help terminal-escape-map t)
terminal-escape-map
nil t)
" "))) " ")))