Mercurial > emacs
comparison lisp/term/vt100.el @ 466:a5749ca987d0
Initial revision
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Fri, 20 Dec 1991 08:24:06 +0000 |
parents | |
children | 393e90d2071b |
comparison
equal
deleted
inserted
replaced
465:36359663b6d8 | 466:a5749ca987d0 |
---|---|
1 ;;;; Define VT100 function key escape sequences in function-key-map. | |
2 | |
3 | |
4 ;;; CSI sequences - those that start with "\e[". | |
5 (define-prefix-command 'vt100-CSI-prefix 'vt100-CSI-map) | |
6 (define-key function-key-map "\e[" 'vt100-CSI-prefix) | |
7 | |
8 (define-key vt100-CSI-map "A" [up]) | |
9 (define-key vt100-CSI-map "B" [down]) | |
10 (define-key vt100-CSI-map "C" [right]) | |
11 (define-key vt100-CSI-map "D" [left]) | |
12 | |
13 (defun enable-arrow-keys () | |
14 "Enable the use of the VT100 arrow keys for cursor motion. | |
15 Because of the nature of the VT100, this unavoidably breaks | |
16 the standard Emacs command ESC [; therefore, it is not done by default, | |
17 but only if you give this command." | |
18 (interactive) | |
19 (global-unset-key "\e[")) | |
20 | |
21 | |
22 | |
23 ;;; SS3 sequences - those that start with "\eO". | |
24 (define-prefix-command 'vt100-SS3-prefix 'vt100-SS3-map) | |
25 (define-key function-key-map "\eO" 'vt100-SS3-prefix) | |
26 | |
27 (define-key vt100-SS3-map "A" [up]) | |
28 (define-key vt100-SS3-map "B" [down]) ; down-arrow | |
29 (define-key vt100-SS3-map "C" [right]) ; right-arrow | |
30 (define-key vt100-SS3-map "D" [left]) ; left-arrow | |
31 (define-key vt100-SS3-map "M" [kp-enter]) ; Enter | |
32 (define-key vt100-SS3-map "P" [kp-f1]) ; PF1 | |
33 (define-key vt100-SS3-map "Q" [kp-f2]) ; PF2 | |
34 (define-key vt100-SS3-map "R" [kp-f3]) ; PF3 | |
35 (define-key vt100-SS3-map "S" [kp-f4]) ; PF4 | |
36 (define-key vt100-SS3-map "l" [kp-separator]) ; , | |
37 (define-key vt100-SS3-map "m" [kp-subtract]) ; - | |
38 (define-key vt100-SS3-map "n" [kp-period]) ; . | |
39 (define-key vt100-SS3-map "p" [kp-0]) ; 0 | |
40 (define-key vt100-SS3-map "q" [kp-1]) ; 1 | |
41 (define-key vt100-SS3-map "r" [kp-2]) ; 2 | |
42 (define-key vt100-SS3-map "s" [kp-3]) ; 3 | |
43 (define-key vt100-SS3-map "t" [kp-4]) ; 4 | |
44 (define-key vt100-SS3-map "u" [kp-5]) ; 5 | |
45 (define-key vt100-SS3-map "v" [kp-6]) ; 6 | |
46 (define-key vt100-SS3-map "w" [kp-7]) ; 7 | |
47 (define-key vt100-SS3-map "x" [kp-8]) ; 8 | |
48 (define-key vt100-SS3-map "y" [kp-9]) ; 9 | |
49 | |
50 | |
51 ;;; Controlling the screen width. | |
52 (defconst vt100-wide-mode (= (screen-width) 132) | |
53 "t if vt100 is in 132-column mode.") | |
54 | |
55 (defun vt100-wide-mode (&optional arg) | |
56 "Toggle 132/80 column mode for vt100s." | |
57 (interactive "P") | |
58 (setq vt100-wide-mode | |
59 (if (null arg) (not vt100-wide-mode) | |
60 (> (prefix-numeric-value arg) 0))) | |
61 (send-string-to-terminal (if vt100-wide-mode "\e[?3h" "\e[?3l")) | |
62 (set-screen-width (if vt100-wide-mode 132 80))) |