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

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.