Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
be934b53
Commit
be934b53
authored
Sep 21, 1995
by
Karl Heuer
Browse files
(te-escape, te-escape-help): Handle non-ASCII events.
parent
8e183d5b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
29 additions
and
16 deletions
+29
-16
lisp/terminal.el
lisp/terminal.el
+29
-16
No files found.
lisp/terminal.el
View file @
be934b53
...
...
@@ -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."
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment