![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to s4.el CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp / term|
Return to s4.el CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp / term |
1.1 ! root 1: ;; Map s4 function key escape sequences ! 2: ;; into the standard slots in function-keymap where we can; ! 3: ;; set up terminal-specific bindings where we must ! 4: ;; ! 5: ;; by: Eric S. Raymond == {ihnp4,rutgers,seismo}!cbmvax!snark!eric ! 6: ! 7: (require 'keypad) ! 8: ! 9: ;; First, map as many keys as possible to terminal-independent keycaps ! 10: ! 11: (defvar META-RB-map nil ! 12: "The META-RB-map maps the ESC-[ function keys on the s4 keyboard.") ! 13: ! 14: (if (not META-RB-map) ! 15: (progn ! 16: (setq META-RB-map (lookup-key global-map "\e[")) ! 17: (if (not (keymapp META-RB-map)) ! 18: (setq META-RB-map (make-sparse-keymap))) ;; <ESC>[ commands ! 19: ! 20: (setup-terminal-keymap META-RB-map ! 21: '(("A" . ?u) ; up arrow ! 22: ("B" . ?d) ; down-arrow ! 23: ("C" . ?r) ; right-arrow ! 24: ("D" . ?l) ; left-arrow ! 25: ("U" . ?N) ; 'Page' -> next page ! 26: ("V" . ?P) ; 'Shift-Page' -> prev page ! 27: ("H" . ?h) ; 'Home' -> home-key ! 28: ;; ("J" . ??) ; 'Clear' -> unmapped ! 29: )))) ! 30: ! 31: (defun enable-arrow-keys () ! 32: "Enable the use of the s4 arrow keys for cursor motion. ! 33: Because of the nature of the s4, this unavoidably breaks ! 34: the standard Emacs command ESC [; therefore, it is not done by default, ! 35: but only if you give this command in your .emacs." ! 36: (global-set-key "\e[" META-RB-map)) ! 37: ! 38: (defvar META-N-map nil ! 39: "META-N-map maps the ESC-N function keys on the s4 keyboard.") ! 40: ! 41: (if (not META-N-map) ! 42: (progn ! 43: ! 44: (setq META-N-map (lookup-key global-map "\eN")) ! 45: (if (not (keymapp META-N-map)) ! 46: (setq META-N-map (make-sparse-keymap))) ;; <ESC>N commands ! 47: (setup-terminal-keymap META-N-map '( ! 48: ("a" . ?C) ; 'Rfrsh' -> redraw screen ! 49: ;; ("A" . ??) ; 'Clear' -> unmapped ! 50: ;; ("c" . ??) ; 'Move' -> unmapped ! 51: ;; ("d" . ??) ; 'Copy' -> unmapped ! 52: ;; ("B" . ??) ; 'Shift-Beg' -> unmapped ! 53: ;; ("M" . ??) ; 'Shift-Home' -> unmapped ! 54: ;; ("N" . ??) ; 'Shift-End' -> unmapped ! 55: ("e" . ?k) ; 'Dlete' -> generic delete (kill-region) ! 56: ("f" . ?.) ; 'Dlete Char' -> keypad . ! 57: ("g" . ?1) ; 'Prev' -> keypad 1 (backward-word) ! 58: ("h" . ?3) ; 'Next' -> keypad 3 (forward-word) ! 59: ("i" . ?s) ; 'Mark' -> select ! 60: ;; ("I" . ??) ; 'Select' -> MAPPED BELOW ! 61: ;; ("j" . ??) ; 'Input Mode' -> unmapped ! 62: )) ! 63: ! 64: (define-key global-map "\eN" META-N-map))) ! 65: ! 66: (defvar META-O-map nil ! 67: "META-O-map maps the META-O function keys on the s4 keyboard.") ! 68: ! 69: (if (not META-O-map) ! 70: (progn ! 71: ! 72: (setq META-O-map (lookup-key global-map "\eO")) ! 73: (if (not (keymapp META-O-map)) ! 74: (setq META-O-map (make-sparse-keymap))) ;; <ESC>O commands ! 75: (setup-terminal-keymap META-O-map '( ! 76: ("a" . ?E) ; 'Clear-Line' -> Clear to EOL ! 77: ("A" . ?S) ; 'Shift-Clear-Line' -> Clear to EOS ! 78: ("b" . ?\C-@) ; 'Ref' -> function key 0 ! 79: ("c" . ?\C-a) ; 'F1' -> function key 1 ! 80: ("d" . ?\C-b) ; 'F2' -> function key 2 ! 81: ("e" . ?\C-c) ; 'F3' -> function key 3 ! 82: ("f" . ?\C-d) ; 'F4' -> function key 4 ! 83: ("g" . ?\C-e) ; 'F5' -> function key 5 ! 84: ("h" . ?\C-f) ; 'F6' -> function key 6 ! 85: ("i" . ?\C-g) ; 'F7' -> function key 7 ! 86: ("j" . ?\C-h) ; 'F8' -> function key 8 ! 87: ;; ("k" . ??) ; 'Exit' -> MAPPED BELOW ! 88: ("m" . ??) ; 'Help' -> help-command ! 89: ;; ("n" . ??) ; 'Creat' -> unmapped ! 90: ;; ("o" . ??) ; 'Save' -> MAPPED BELOW ! 91: ;; ("r" . ??) ; 'Opts' -> unmapped ! 92: ;; ("s" . ??) ; 'Undo' -> MAPPED BELOW ! 93: ("t" . ?x) ; 'Redo' -> 'do' key ! 94: ;; ("u" . ??) ; 'Cmd' -> MAPPED BELOW ! 95: ;; ("v" . ??) ; 'Open' -> MAPPED BELOW ! 96: ;; ("V" . ??) ; 'Close' -> unmapped ! 97: ;; ("w" . ??) ; 'Cancel' -> MAPPED BELOW ! 98: ("x" . ?f) ; 'Find' -> find/replace ! 99: ;; ("y" . ??) ; 'Rplac' -> MAPPED BELOW ! 100: ;; ("z" . ??) ; 'Print' -> MAPPED BELOW ! 101: )) ! 102: ! 103: (define-key global-map "\eO" META-O-map))) ! 104: ! 105: (defvar META-P-map nil ! 106: "META-P-map maps the META-P function keys on the s4 keyboard.") ! 107: ! 108: (if (not META-P-map) ! 109: (progn ! 110: ! 111: (setq META-P-map (lookup-key global-map "\eP")) ! 112: (if (not (keymapp META-P-map)) ! 113: (setq META-P-map (make-sparse-keymap))) ;; <ESC>P commands ! 114: (setup-terminal-keymap META-P-map '( ! 115: ("a" . ?1) ; Ctrl-1 -> keypad 1 ! 116: ("b" . ?2) ; Ctrl-2 -> keypad 2 ! 117: ("c" . ?3) ; Ctrl-3 -> keypad 3 ! 118: ("d" . ?4) ; Ctrl-4 -> keypad 4 ! 119: ("e" . ?5) ; Ctrl-5 -> keypad 5 ! 120: ("f" . ?6) ; Ctrl-6 -> keypad 6 ! 121: ("g" . ?7) ; Ctrl-7 -> keypad 7 ! 122: ("h" . ?8) ; Ctrl-8 -> keypad 8 ! 123: ("i" . ?9) ; Ctrl-9 -> keypad 9 ! 124: ("j" . ?0) ; Ctrl-0 -> keypad 0 ! 125: ("k" . ?-) ; Ctrl-- -> keypad - ! 126: )) ! 127: ! 128: (define-key global-map "\eP" META-P-map))) ! 129: ! 130: ;; Now do terminal-specific mappings of keys with no standard-keycap equivalent ! 131: ! 132: ;;;(define-key esc-map "9" 'beginning-of-buffer) ;'Begin' ! 133: ;;;(define-key esc-map "0" 'end-of-buffer) ;'End' ! 134: (define-key META-N-map "I" 'narrow-to-region) ;'Select' ! 135: (define-key META-O-map "k" 'save-buffers-kill-emacs) ;'Exit' ! 136: (define-key META-O-map "o" 'save-buffer) ;'Save' ! 137: (define-key META-O-map "s" 'undo) ;'Undo' ! 138: (define-key META-O-map "u" 'execute-extended-command) ;'Cmd' ! 139: (define-key META-O-map "v" 'find-file) ;'Open' ! 140: (define-key META-O-map "w" 'keyboard-quit) ;'Cancl' ! 141: (define-key META-O-map "y" 'replace-regexp) ;'Rplac' ! 142: (define-key META-O-map "z" 'lpr-buffer) ;'Print'
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.