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
dbe38b32
Commit
dbe38b32
authored
Jan 15, 1992
by
Jim Blandy
Browse files
*** empty log message ***
parent
efb859b4
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
57 additions
and
57 deletions
+57
-57
lisp/term/news.el
lisp/term/news.el
+29
-29
lisp/term/vt100.el
lisp/term/vt100.el
+28
-28
No files found.
lisp/term/news.el
View file @
dbe38b32
...
...
@@ -22,34 +22,34 @@
;; sequences of various keypad and function keys, binding them to
;; their symbolic forms.
(
define-prefix-command
'news-fkey-prefix
'news-fkey-map
)
(
define-prefix-command
'news-fkey-prefix
)
(
define-key
function-key-map
"\eO"
'news-fkey-prefix
)
(
define-key
news-fkey-
map
"P"
[f1]
)
(
define-key
news-fkey-
map
"Q"
[f2]
)
(
define-key
news-fkey-
map
"R"
[f3]
)
(
define-key
news-fkey-
map
"S"
[f4]
)
(
define-key
news-fkey-
map
"T"
[f5]
)
(
define-key
news-fkey-
map
"U"
[f6]
)
(
define-key
news-fkey-
map
"V"
[f7]
)
(
define-key
news-fkey-
map
"W"
[f8]
)
(
define-key
news-fkey-
map
"X"
[f9]
)
(
define-key
news-fkey-
map
"Y"
[f10]
)
(
define-key
news-fkey-
map
"m"
[kp-subtract]
)
(
define-key
news-fkey-
map
"k"
[kp-add]
)
(
define-key
news-fkey-
map
"l"
[kp-separator]
)
(
define-key
news-fkey-
map
"n"
[kp-period]
)
(
define-key
news-fkey-
map
"M"
[kp-enter]
)
(
define-key
news-fkey-
map
"p"
[kp-0]
)
(
define-key
news-fkey-
map
"q"
[kp-1]
)
(
define-key
news-fkey-
map
"r"
[kp-2]
)
(
define-key
news-fkey-
map
"s"
[kp-3]
)
(
define-key
news-fkey-
map
"t"
[kp-4]
)
(
define-key
news-fkey-
map
"u"
[kp-5]
)
(
define-key
news-fkey-
map
"v"
[kp-6]
)
(
define-key
news-fkey-
map
"w"
[kp-7]
)
(
define-key
news-fkey-
map
"x"
[kp-8]
)
(
define-key
news-fkey-
map
"y"
[kp-9]
)
(
define-key
news-fkey-
map
"a"
[execute]
)
(
define-key
news-fkey-
map
"b"
[select]
)
(
define-key
news-fkey-
map
"c"
[cancel]
)
(
define-key
news-fkey-
prefix
"P"
[f1]
)
(
define-key
news-fkey-
prefix
"Q"
[f2]
)
(
define-key
news-fkey-
prefix
"R"
[f3]
)
(
define-key
news-fkey-
prefix
"S"
[f4]
)
(
define-key
news-fkey-
prefix
"T"
[f5]
)
(
define-key
news-fkey-
prefix
"U"
[f6]
)
(
define-key
news-fkey-
prefix
"V"
[f7]
)
(
define-key
news-fkey-
prefix
"W"
[f8]
)
(
define-key
news-fkey-
prefix
"X"
[f9]
)
(
define-key
news-fkey-
prefix
"Y"
[f10]
)
(
define-key
news-fkey-
prefix
"m"
[kp-subtract]
)
(
define-key
news-fkey-
prefix
"k"
[kp-add]
)
(
define-key
news-fkey-
prefix
"l"
[kp-separator]
)
(
define-key
news-fkey-
prefix
"n"
[kp-period]
)
(
define-key
news-fkey-
prefix
"M"
[kp-enter]
)
(
define-key
news-fkey-
prefix
"p"
[kp-0]
)
(
define-key
news-fkey-
prefix
"q"
[kp-1]
)
(
define-key
news-fkey-
prefix
"r"
[kp-2]
)
(
define-key
news-fkey-
prefix
"s"
[kp-3]
)
(
define-key
news-fkey-
prefix
"t"
[kp-4]
)
(
define-key
news-fkey-
prefix
"u"
[kp-5]
)
(
define-key
news-fkey-
prefix
"v"
[kp-6]
)
(
define-key
news-fkey-
prefix
"w"
[kp-7]
)
(
define-key
news-fkey-
prefix
"x"
[kp-8]
)
(
define-key
news-fkey-
prefix
"y"
[kp-9]
)
(
define-key
news-fkey-
prefix
"a"
[execute]
)
(
define-key
news-fkey-
prefix
"b"
[select]
)
(
define-key
news-fkey-
prefix
"c"
[cancel]
)
lisp/term/vt100.el
View file @
dbe38b32
...
...
@@ -2,13 +2,13 @@
;;; CSI sequences - those that start with "\e[".
(
define-prefix-command
'vt100-CSI-prefix
'vt100-CSI-map
)
(
define-prefix-command
'vt100-CSI-prefix
)
(
define-key
function-key-map
"\e["
'vt100-CSI-prefix
)
(
define-key
vt100-CSI-
map
"A"
[up]
)
(
define-key
vt100-CSI-
map
"B"
[down]
)
(
define-key
vt100-CSI-
map
"C"
[right]
)
(
define-key
vt100-CSI-
map
"D"
[left]
)
(
define-key
vt100-CSI-
prefix
"A"
[up]
)
(
define-key
vt100-CSI-
prefix
"B"
[down]
)
(
define-key
vt100-CSI-
prefix
"C"
[right]
)
(
define-key
vt100-CSI-
prefix
"D"
[left]
)
(
defun
enable-arrow-keys
()
"Enable the use of the VT100 arrow keys for cursor motion.
...
...
@@ -21,31 +21,31 @@ but only if you give this command."
;;; SS3 sequences - those that start with "\eO".
(
define-prefix-command
'vt100-SS3-prefix
'vt100-SS3-map
)
(
define-prefix-command
'vt100-SS3-prefix
)
(
define-key
function-key-map
"\eO"
'vt100-SS3-prefix
)
(
define-key
vt100-SS3-
map
"A"
[up]
)
(
define-key
vt100-SS3-
map
"B"
[down]
)
; down-arrow
(
define-key
vt100-SS3-
map
"C"
[right]
)
; right-arrow
(
define-key
vt100-SS3-
map
"D"
[left]
)
; left-arrow
(
define-key
vt100-SS3-
map
"M"
[kp-enter]
)
; Enter
(
define-key
vt100-SS3-
map
"P"
[kp-f1]
)
; PF1
(
define-key
vt100-SS3-
map
"Q"
[kp-f2]
)
; PF2
(
define-key
vt100-SS3-
map
"R"
[kp-f3]
)
; PF3
(
define-key
vt100-SS3-
map
"S"
[kp-f4]
)
; PF4
(
define-key
vt100-SS3-
map
"l"
[kp-separator]
)
; ,
(
define-key
vt100-SS3-
map
"m"
[kp-subtract]
)
; -
(
define-key
vt100-SS3-
map
"n"
[kp-period]
)
; .
(
define-key
vt100-SS3-
map
"p"
[kp-0]
)
; 0
(
define-key
vt100-SS3-
map
"q"
[kp-1]
)
; 1
(
define-key
vt100-SS3-
map
"r"
[kp-2]
)
; 2
(
define-key
vt100-SS3-
map
"s"
[kp-3]
)
; 3
(
define-key
vt100-SS3-
map
"t"
[kp-4]
)
; 4
(
define-key
vt100-SS3-
map
"u"
[kp-5]
)
; 5
(
define-key
vt100-SS3-
map
"v"
[kp-6]
)
; 6
(
define-key
vt100-SS3-
map
"w"
[kp-7]
)
; 7
(
define-key
vt100-SS3-
map
"x"
[kp-8]
)
; 8
(
define-key
vt100-SS3-
map
"y"
[kp-9]
)
; 9
(
define-key
vt100-SS3-
prefix
"A"
[up]
)
(
define-key
vt100-SS3-
prefix
"B"
[down]
)
; down-arrow
(
define-key
vt100-SS3-
prefix
"C"
[right]
)
; right-arrow
(
define-key
vt100-SS3-
prefix
"D"
[left]
)
; left-arrow
(
define-key
vt100-SS3-
prefix
"M"
[kp-enter]
)
; Enter
(
define-key
vt100-SS3-
prefix
"P"
[kp-f1]
)
; PF1
(
define-key
vt100-SS3-
prefix
"Q"
[kp-f2]
)
; PF2
(
define-key
vt100-SS3-
prefix
"R"
[kp-f3]
)
; PF3
(
define-key
vt100-SS3-
prefix
"S"
[kp-f4]
)
; PF4
(
define-key
vt100-SS3-
prefix
"l"
[kp-separator]
)
; ,
(
define-key
vt100-SS3-
prefix
"m"
[kp-subtract]
)
; -
(
define-key
vt100-SS3-
prefix
"n"
[kp-period]
)
; .
(
define-key
vt100-SS3-
prefix
"p"
[kp-0]
)
; 0
(
define-key
vt100-SS3-
prefix
"q"
[kp-1]
)
; 1
(
define-key
vt100-SS3-
prefix
"r"
[kp-2]
)
; 2
(
define-key
vt100-SS3-
prefix
"s"
[kp-3]
)
; 3
(
define-key
vt100-SS3-
prefix
"t"
[kp-4]
)
; 4
(
define-key
vt100-SS3-
prefix
"u"
[kp-5]
)
; 5
(
define-key
vt100-SS3-
prefix
"v"
[kp-6]
)
; 6
(
define-key
vt100-SS3-
prefix
"w"
[kp-7]
)
; 7
(
define-key
vt100-SS3-
prefix
"x"
[kp-8]
)
; 8
(
define-key
vt100-SS3-
prefix
"y"
[kp-9]
)
; 9
;;; Controlling the screen width.
...
...
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