Return to vt100.el CVS log

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

Annotation of 43BSD/contrib/emacs/lisp/term/vt100.el, revision 1.1

1.1     ! root        1: ;; vt100 series terminal stuff.
        !             2: ;; April 1985, Joe Kelsey
        !             3: 
        !             4: (defvar SS3-map nil
        !             5:   "SS3-map maps the SS3 function keys on the VT100 keyboard.
        !             6: The SS3 keys are the numeric keypad keys in keypad application mode
        !             7: (DECKPAM).  SS3 is the ASCII-8bit character for the 7-bit escape
        !             8: sequence <ESC>O.  The functions provided are:
        !             9: 
        !            10:   -----------------------------------------------------------------
        !            11:   |PF1            |PF2            |PF3            |PF4            |
        !            12:   |beginning-of-  |               |               |               |
        !            13:   |line           |end-of-line    |isearch-forward|kill-line      |
        !            14:   |---------------+---------------+---------------+---------------|
        !            15:   |7              |8              |9              |-              |
        !            16:   |forward-       |backward-      |               |               |
        !            17:   |paragraph      |paragraph      |kill-region    |kill-word      |
        !            18:   |---------------+---------------+---------------+---------------|
        !            19:   |4              |5              |6              |,              |
        !            20:   |               |beginning-of-  |               |               |
        !            21:   |end-of-buffer  |buffer         |yank           |delete-char    |
        !            22:   |---------------+---------------+---------------+---------------|
        !            23:   |1              |2              |3              |Enter          |
        !            24:   |               |               |               |               |
        !            25:   |forward-word   |backward-word  |quoted-insert  |               |
        !            26:   |---------------+---------------+---------------|               | 
        !            27:   |0                              |.              |               |
        !            28:   |                               |beginning-of-  |               |
        !            29:   |beginning-of-next-line         |previous-line  |open-line      |
        !            30:   -----------------------------------------------------------------")
        !            31: 
        !            32: (if (not SS3-map)
        !            33:     (progn
        !            34: 
        !            35:      (setq SS3-map (make-keymap))  ;; <ESC>O commands
        !            36: 
        !            37:      (define-key SS3-map "A" 'previous-line)               ;; up arrow
        !            38:      (define-key SS3-map "B" 'next-line)                   ;; down-arrow
        !            39:      (define-key SS3-map "C" 'forward-char)                ;; right-arrow
        !            40:      (define-key SS3-map "D" 'backward-char)               ;; left-arrow
        !            41: 
        !            42:      (define-key SS3-map "M" 'open-line)                   ;; Enter
        !            43: 
        !            44:      (define-key SS3-map "P" 'beginning-of-line)           ;; PF1
        !            45:      (define-key SS3-map "Q" 'end-of-line)                 ;; PF2
        !            46:      (define-key SS3-map "R" 'isearch-forward)             ;; PF3
        !            47:      (define-key SS3-map "S" 'kill-line)                   ;; PF4
        !            48: 
        !            49:      (define-key SS3-map "l" 'delete-char)                 ;; ,
        !            50:      (define-key SS3-map "m" 'kill-word)                   ;; -
        !            51: 
        !            52:      (define-key SS3-map "n" 'beginning-of-previous-line)  ;; .
        !            53:      (define-key SS3-map "p" 'beginning-of-next-line)      ;; 0
        !            54: 
        !            55:      (define-key SS3-map "q" 'forward-word)                ;; 1
        !            56:      (define-key SS3-map "r" 'backward-word)               ;; 2
        !            57:      (define-key SS3-map "s" 'quoted-insert)               ;; 3
        !            58: 
        !            59:      (define-key SS3-map "t" 'end-of-buffer)               ;; 4
        !            60:      (define-key SS3-map "u" 'beginning-of-buffer)         ;; 5
        !            61:      (define-key SS3-map "v" 'yank)                        ;; 6
        !            62: 
        !            63:      (define-key SS3-map "w" 'forward-paragraph)           ;; 7
        !            64:      (define-key SS3-map "x" 'backward-paragraph)          ;; 8
        !            65:      (define-key SS3-map "y" 'kill-region)                 ;; 9
        !            66: 
        !            67:      (define-key global-map "\eO" SS3-map)))
        !            68: 
        !            69: (defun beginning-of-next-line ()
        !            70:   "Move to the beginning of the next line."
        !            71:   (interactive)
        !            72:   (forward-line 1))
        !            73: 
        !            74: (defun beginning-of-previous-line ()
        !            75:   "Move to the beginning of the previous line."
        !            76:   (interactive)
        !            77:   (forward-line -1))

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