![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to vt200.el CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / emacs / lisp / term|
Return to vt200.el CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / emacs / lisp / term |
1.1 ! root 1: ;; vt200 series terminal stuff. ! 2: ;; April 1985, Joe Kelsey ! 3: ! 4: (defvar CSI-map nil ! 5: "The CSI-map maps the CSI function keys on the VT201 keyboard. ! 6: The CSI keys are the dark function keys, and are only active in ! 7: VT200-mode, except for the arrow keys. The functions provided are: ! 8: ! 9: Arrows: The obvious definitions: backward-char, next-line, forward-char, ! 10: previous-line. ! 11: ! 12: Editing Keys: ! 13: Find re-search-forward ! 14: Insert Here open-line ! 15: Remove kill-region ! 16: Select set-mark-command ! 17: Prev Screen scroll-up ! 18: Next Screen scroll-down ! 19: ! 20: Top row keys: ! 21: F11 ESC-prefix ! 22: Help help-command ! 23: Do eval-expression ! 24: ! 25: You can bind other function keys by doing: ! 26: (define-key CSI-map \"<key>\" '<function>) ! 27: where <key> is the function key with the CSI (<ESC>[) stripped off ! 28: and <function> is the name of the function to map the key to.") ! 29: ! 30: (defvar SS3-map nil ! 31: "SS3-map maps the SS3 function keys on the VT201 keyboard. ! 32: The SS3 keys are the numeric keypad keys in keypad application mode ! 33: (DECKPAM). SS3 is the ASCII-8bit character for the 7-bit escape ! 34: sequence <ESC>O. The functions provided are: ! 35: ! 36: ----------------------------------------------------------------- ! 37: |PF1 |PF2 |PF3 |PF4 | ! 38: |beginning-of- | | | | ! 39: |line |end-of-line |isearch-forward|kill-line | ! 40: |---------------+---------------+---------------+---------------| ! 41: |7 |8 |9 |- | ! 42: |forward- |backward- | | | ! 43: |paragraph |paragraph |kill-region |kill-word | ! 44: |---------------+---------------+---------------+---------------| ! 45: |4 |5 |6 |, | ! 46: | |beginning-of- | | | ! 47: |end-of-buffer |buffer |yank |delete-char | ! 48: |---------------+---------------+---------------+---------------| ! 49: |1 |2 |3 |Enter | ! 50: | | | | | ! 51: |forward-word |backward-word |quoted-insert | | ! 52: |---------------+---------------+---------------| | ! 53: |0 |. | | ! 54: | |beginning-of- | | ! 55: |beginning-of-next-line |previous-line |open-line | ! 56: -----------------------------------------------------------------") ! 57: ! 58: (if (not CSI-map) ! 59: (progn ! 60: (setq CSI-map (make-keymap)) ;; <ESC>[ commands ! 61: ! 62: (define-key CSI-map "A" 'previous-line) ;; up arrow ! 63: (define-key CSI-map "B" 'next-line) ;; down-arrow ! 64: (define-key CSI-map "C" 'forward-char) ;; right-arrow ! 65: (define-key CSI-map "D" 'backward-char) ;; left-arrow ! 66: ! 67: (define-key CSI-map "1~" 're-search-forward) ;; Find ! 68: (define-key CSI-map "2~" 'open-line) ;; Insert Here ! 69: (define-key CSI-map "3~" 'kill-region) ;; Re-move ! 70: ! 71: (define-key CSI-map "4~" 'set-mark-command) ;; Select ! 72: (define-key CSI-map "5~" 'scroll-down) ;; Prev Screen ! 73: (define-key CSI-map "6~" 'scroll-up) ;; Next Screen ! 74: ! 75: (define-key CSI-map "23~" 'ESC-prefix) ;; F11 (ESC) ! 76: ! 77: (define-key CSI-map "28~" 'help-command) ;; Help ! 78: (define-key CSI-map "29~" 'eval-expression) ;; Do ! 79: ! 80: (setq SS3-map (make-keymap)) ;; <ESC>O commands ! 81: ! 82: (define-key SS3-map "A" 'previous-line) ;; up arrow ! 83: (define-key SS3-map "B" 'next-line) ;; down-arrow ! 84: (define-key SS3-map "C" 'forward-char) ;; right-arrow ! 85: (define-key SS3-map "D" 'backward-char) ;; left-arrow ! 86: ! 87: (define-key SS3-map "M" 'open-line) ;; Enter ! 88: ! 89: (define-key SS3-map "P" 'beginning-of-line) ;; PF1 ! 90: (define-key SS3-map "Q" 'end-of-line) ;; PF2 ! 91: (define-key SS3-map "R" 'isearch-forward) ;; PF3 ! 92: (define-key SS3-map "S" 'kill-line) ;; PF4 ! 93: ! 94: (define-key SS3-map "l" 'delete-char) ;; , ! 95: (define-key SS3-map "m" 'kill-word) ;; - ! 96: ! 97: (define-key SS3-map "n" 'beginning-of-previous-line) ;; . ! 98: (define-key SS3-map "p" 'beginning-of-next-line) ;; 0 ! 99: ! 100: (define-key SS3-map "q" 'forward-word) ;; 1 ! 101: (define-key SS3-map "r" 'backward-word) ;; 2 ! 102: (define-key SS3-map "s" 'quoted-insert) ;; 3 ! 103: ! 104: (define-key SS3-map "t" 'end-of-buffer) ;; 4 ! 105: (define-key SS3-map "u" 'beginning-of-buffer) ;; 5 ! 106: (define-key SS3-map "v" 'yank) ;; 6 ! 107: ! 108: (define-key SS3-map "w" 'forward-paragraph) ;; 7 ! 109: (define-key SS3-map "x" 'backward-paragraph) ;; 8 ! 110: (define-key SS3-map "y" 'kill-region) ;; 9 ! 111: ! 112: (define-key global-map "\eO" SS3-map) ! 113: )) ! 114: ! 115: (defun vt200-enable-arrows () ! 116: "Redefine Emacs so that VT200 arrow keys and function keys work. ! 117: This is not done automatically because it inescapably causes the ! 118: standard Emacs command ESC [ to stop working normally." ! 119: (interactive) ! 120: (define-key global-map "\e[" CSI-map)) ! 121: ! 122: ! 123: (defun beginning-of-next-line () ! 124: "Move to the beginning of the next line." ! 125: (interactive) ! 126: (forward-line 1)) ! 127: ! 128: (defun beginning-of-previous-line () ! 129: "Move to the beginning of the previous line." ! 130: (interactive) ! 131: (forward-line -1))
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.