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

(te-escape, te-escape-help): Handle non-ASCII events.

Browse Source
This commit is contained in:
Karl Heuer 1995-09-21 20:54:35 +00:00
parent 8e183d5bf2
commit be934b539d
1 changed files with 29 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
lisp/terminal.el
View File

@ -168,26 +168,39 @@ performance.")
(defun te-escape ()
(interactive)
(let (s
(local (current-local-map))
(global (current-global-map)))
(local ((defun te-escape ()
(interactive)
(let (s
(local (current-local-map))
(global (current-global-map)))
(unwind-protect
(progn
(use-global-map terminal-escape-map)
(use-local-map terminal-escape-map)
(setq s (read-key-sequence
(if current-prefix-arg
(format "Emacs Terminal escape> %d "
(prefix-numeric-value current-prefix-arg))
"Emacs Terminal escape> "))))
(progn
(use-global-map terminal-escape-map)
(use-local-map terminal-escape-map)
(setq s (read-key-sequence
(if current-prefix-arg
(format "Emacs Terminal escape> %d "
(prefix-numeric-value current-prefix-arg))
"Emacs Terminal escape> "))))
(use-global-map global)
(use-local-map local))
(message "")
(cond ((string= s (make-string 1 terminal-escape-char))
(setq last-command-char terminal-escape-char)
(let ((terminal-escape-char -259))
(te-pass-through)))
((setq s (lookup-key terminal-escape-map s))
(call-interactively s)))))
(cond
;; Certain keys give vector notation, like [escape] when
;; you hit esc key...
((and (stringp s)
(string= s (make-string 1 terminal-escape-char)))
(setq last-command-char terminal-escape-char)
(let ((terminal-escape-char -259))
(te-pass-through)))
((setq s (lookup-key terminal-escape-map s))
(call-interactively s)))
))
(defun te-escape-help ()
"Provide help on commands available after terminal-escape-char is typed."