Return to vt200.el CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp / term

Annotation of 43BSDReno/contrib/emacs-18.55/lisp/term/vt200.el, revision 1.1.1.1

1.1       root        1: ;; vt200 series terminal stuff.
                      2: ;; April 1985, Joe Kelsey
                      3: 
                      4: (require 'keypad)
                      5: 
                      6: (defvar CSI-map nil
                      7:   "The CSI-map maps the CSI function keys on the VT200 keyboard.
                      8: The CSI keys are the dark function keys, and are only active in
                      9: VT200-mode, except for the arrow keys.")
                     10: 
                     11: (defun enable-arrow-keys ()
                     12:   "Enable the use of the VT200 arrow keys and dark function keys.
                     13: Because of the nature of the VT200, this unavoidably breaks
                     14: the standard Emacs command ESC [; therefore, it is not done by default,
                     15: but only if you give this command."
                     16:   (interactive)
                     17:   (global-set-key "\e[" CSI-map))
                     18: 
                     19: ;; I suggest that someone establish standard mappings for all of
                     20: ;; the VT200 CSI function keys into the function-keymap.
                     21: 
                     22: (if CSI-map
                     23:     nil
                     24:   (setq CSI-map (make-keymap))         ; <ESC>[ commands
                     25:   (setup-terminal-keymap CSI-map
                     26:            '(("A" . ?u)           ; up arrow
                     27:              ("B" . ?d)           ; down-arrow
                     28:              ("C" . ?r)           ; right-arrow
                     29:              ("D" . ?l)           ; left-arrow
                     30:              ("1~" . ?f)          ; Find
                     31:              ("2~" . ?I)          ; Insert Here
                     32:              ("3~" . ?k)          ; Re-move
                     33:              ("4~" . ?s)          ; Select
                     34:              ("5~" . ?P)          ; Prev Screen
                     35:              ("6~" . ?N)          ; Next Screen
                     36:              ("17~" . ?\C-f)      ; F6
                     37:              ("18~" . ?\C-g)      ; F7
                     38:              ("19~" . ?\C-h)      ; F8
                     39:              ("20~" . ?\C-i)      ; F9
                     40:              ("21~" . ?\C-j)      ; F10
                     41:              ("23~" . ESC-prefix) ; F11 (ESC)
                     42:              ("24~" . ?\C-l)      ; F12
                     43:              ("25~" . ?\C-m)      ; F13
                     44:              ("26~" . ?\C-n)      ; F14
                     45:              ("31~" . ?\C-q)      ; F17
                     46:              ("32~" . ?\C-r)      ; F18
                     47:              ("33~" . ?\C-s)      ; F19
                     48:              ("34~" . ?\C-t)      ; F20
                     49:              ("28~" . ??)         ; Help
                     50:              ("29~" . ?x))))      ; Do
                     51: 
                     52: (defvar SS3-map nil
                     53:   "SS3-map maps the SS3 function keys on the VT200 keyboard.
                     54: The SS3 keys are the numeric keypad keys in keypad application mode
                     55: \(DECKPAM).  SS3 is DEC's name for the sequence <ESC>O which is
                     56: the common prefix of what these keys transmit.")
                     57: 
                     58: (if SS3-map
                     59:     nil
                     60:   (setq SS3-map (make-keymap))         ; <ESC>O commands
                     61:   (setup-terminal-keymap SS3-map
                     62:            '(("A" . ?u)           ; up arrow
                     63:              ("B" . ?d)           ; down-arrow
                     64:              ("C" . ?r)           ; right-arrow
                     65:              ("D" . ?l)           ; left-arrow
                     66:              ("M" . ?e)           ; Enter
                     67:              ("P" . ?\C-a)        ; PF1
                     68:              ("Q" . ?\C-b)        ; PF2
                     69:              ("R" . ?\C-c)        ; PF3
                     70:              ("S" . ?\C-d)        ; PF4
                     71:              ("l" . ?,)           ; ,
                     72:              ("m" . ?-)           ; -
                     73:              ("n" . ?.)           ; .
                     74:              ("p" . ?0)           ; 0
                     75:              ("q" . ?1)           ; 1
                     76:              ("r" . ?2)           ; 2
                     77:              ("s" . ?3)           ; 3
                     78:              ("t" . ?4)           ; 4
                     79:              ("u" . ?5)           ; 5
                     80:              ("v" . ?6)           ; 6
                     81:              ("w" . ?7)           ; 7
                     82:              ("x" . ?8)           ; 8
                     83:              ("y" . ?9)))         ; 9
                     84: 
                     85:      (define-key global-map "\eO" SS3-map))

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.