![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to unixpc.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 unixpc.el CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp / term |
1.1 ! root 1: ;;; AT&T UnixPC keyboard definitions ! 2: ;;; Brant Cheikes ([email protected], manta!brant) ! 3: ;;; 4 August 1987 ! 4: ;;; ! 5: ;;; Tested on: GNU Emacs 18.47.1 of Fri Jul 24 1987 on manta (usg-unix-v) ! 6: ;;; ! 7: ;;; The AT&T Unix PC (aka PC7300, 3B1) has a bizarre keyboard with ! 8: ;;; lots of interestingly labeled function keys. This file tries to ! 9: ;;; assign useful actions to the function keys. Note that the Shift ! 10: ;;; and Ctrl keys have the same effect on function keys, so Shift-F1 ! 11: ;;; is the same as Ctrl-F1. ! 12: ;;; ! 13: ;;; Most of the information needed to create this file was taken from ! 14: ;;; documentation found in lisp/keypad.el ! 15: ;;; ! 16: ;;; Bug: The "Beg" and "End" (unshifted) keys are not supported because ! 17: ;;; they generate <esc>9 and <esc>0 respectively, and I know not how to ! 18: ;;; deal with them. ! 19: ! 20: (require 'keypad) ! 21: ! 22: ;;; There seem to be three prefixes for AT&T UnixPC function keys: ! 23: ;;; "<esc>O", "<esc>N", and "<esc>[". There seem to be a couple ! 24: ;;; keys that just generate "<esc><digit>". ! 25: ;;; ! 26: ;;; Note: for each mapping, I indicate the key on the Unix PC followed ! 27: ;;; by the Emacs command it is bound to (if any). Note that when I ! 28: ;;; couldn't figure out anything useful to do with a key, I simply bound ! 29: ;;; it to 'previous-line, arbitrarily. My goal was to get keys to do ! 30: ;;; "mnemonic" things. ! 31: ! 32: (defvar ATT-map-1 nil ! 33: "The bulk of the function keys on the AT&T Unix PC.") ! 34: (defvar ATT-map-2 nil ! 35: "A few other random function keys on the AT&T Unix PC.") ! 36: (defvar ATT-map-3 nil ! 37: "Some really random function keys on the AT&T Unix PC.") ! 38: ! 39: (defun enable-unixpc-keys () ! 40: "Enable the use of the AT&T Unix PC function keys. Because of the ! 41: nature of the Unix PC, this unavoidably breaks several standard Emacs ! 42: prefixes; therefore, it is not done by default, but only if you give ! 43: this command." ! 44: (interactive) ! 45: (global-set-key "\eO" ATT-map-1) ! 46: (global-set-key "\eN" ATT-map-2) ! 47: (global-set-key "\e[" ATT-map-3)) ! 48: ! 49: ;;; Create a few new keypad defaults. Here's what I think I'm doing here: ! 50: ;;; I look through "keypad.el" to find any unused entries in function-keymap ! 51: ;;; and then create my own bindings for them here. Then I use the newly ! 52: ;;; created ?x string in the setup-terminal-keymap. ! 53: ! 54: (keypad-default "2" 'advertised-undo) ! 55: (keypad-default "4" 'save-buffers-kill-emacs) ! 56: (keypad-default "5" 'save-buffer) ! 57: (keypad-default "6" 'beginning-of-buffer) ! 58: (keypad-default "8" 'end-of-buffer) ! 59: (keypad-default "w" 'kill-word) ! 60: (keypad-default "p" 'fill-paragraph) ! 61: (keypad-default "," 'copy-region-as-kill) ! 62: ! 63: (if ATT-map-1 ! 64: nil ! 65: (setq ATT-map-1 (make-keymap)) ; <ESC>O commands ! 66: (setup-terminal-keymap ATT-map-1 ! 67: '(("a" . ?\^d) ; Clear Line (kill-line) ! 68: ("A" . ?\^d) ; Shift-Clear Line (kill-line) ! 69: ("b" . ?u) ; Ref ! 70: ("B" . ?u) ; Rstrt ! 71: ("c" . ?u) ; F1 ! 72: ("d" . ?u) ; F2 ! 73: ("e" . ?u) ; F3 ! 74: ("f" . ?u) ; F4 ! 75: ("g" . ?u) ; F5 ! 76: ("h" . ?u) ; F6 ! 77: ("i" . ?u) ; F7 ! 78: ("j" . ?u) ; F8 ! 79: ("k" . ?4) ; Exit (save-buffers-kill-emacs) ! 80: ("K" . ?4) ; Shift-Exit (save-buffers-kill-emacs) ! 81: ("m" . ??) ; Help (help-command) ! 82: ("M" . ??) ; Shift-Help (help-command) ! 83: ("n" . ?u) ; Creat ! 84: ("N" . ?u) ; Shift-Creat ! 85: ("o" . ?5) ; Save (save-buffer) ! 86: ("O" . ?5) ; Shift-Save (save-buffer) ! 87: ("r" . ?u) ; Opts ! 88: ("R" . ?u) ; Shift-Opts ! 89: ("s" . ?2) ; Undo (advertised-undo) ! 90: ("S" . ?2) ; Shift-Undo (advertised-undo) ! 91: ("t" . ?p) ; Redo (fill-paragraph) ! 92: ("T" . ?p) ; Shift-Redo (fill-paragraph) ! 93: ("u" . ?u) ; Cmd ! 94: ("U" . ?u) ; Shift-Cmd ! 95: ("v" . ?e) ; Open (open-line) ! 96: ("V" . ?\^d) ; Close (kill-line) ! 97: ("w" . ?u) ; Cancl ! 98: ("W" . ?u) ; Shift-Cancl ! 99: ("x" . ?\^c) ; Find (isearch-forward) ! 100: ("X" . ?f) ; Shift-Find (re-search-forward) ! 101: ("y" . ?0) ; Rplac (yank) ! 102: ("Y" . ?0) ; Shift-Rplac (yank) ! 103: ("z" . ?u) ; Print ! 104: ))) ! 105: ! 106: (if ATT-map-2 ! 107: nil ! 108: (setq ATT-map-2 (make-keymap)) ; <ESC>N commands ! 109: (setup-terminal-keymap ATT-map-2 ! 110: '(("a" . ?C) ; Rfrsh (recenter) ! 111: ("B" . ?6) ; Shift-Beg (beginning-of-buffer) ! 112: ("c" . ?0) ; Move (yank) ! 113: ("C" . ?0) ; Shift-Move (yank) ! 114: ("d" . ?,) ; Copy (copy-region-as-kill) ! 115: ("D" . ?,) ; Shift-Copy (copy-region-as-kill) ! 116: ("e" . ?k) ; Dlete (kill-region) ! 117: ("E" . ?k) ; Shift-Dlete (kill-region) ! 118: ("f" . ?.) ; Dlete Char (delete-char) ! 119: ("F" . ?w) ; Shift-Dlete Char (kill-word) ! 120: ("g" . ?P) ; Prev (scroll-down) ! 121: ("G" . ?P) ; Shift-Prev (scroll-down) ! 122: ("h" . ?N) ; Next (scroll-up) ! 123: ("H" . ?N) ; Shift-Next (scroll-up) ! 124: ("i" . ?s) ; Mark (set-mark-command) ! 125: ("I" . ?s) ; Slect (set-mark-command) ! 126: ("j" . ?u) ; Input Mode ! 127: ("J" . ?u) ; Shift-Input Mode ! 128: ("K" . ?1) ; Shift-LeftArrow (backward-word) ! 129: ("L" . ?3) ; Shift-RightArrow (forward-word) ! 130: ("M" . ?h) ; Shift-Home (move-to-window-line) ! 131: ("N" . ?8) ; Shift-End (end-of-buffer) ! 132: ))) ! 133: ! 134: (if ATT-map-3 ! 135: nil ! 136: (setq ATT-map-3 (make-keymap)) ; <ESC>[ commands ! 137: (setup-terminal-keymap ATT-map-3 ! 138: '(("A" . ?u) ; Up Arrow (previous-line) ! 139: ("B" . ?d) ; Down Arrow (next-line) ! 140: ("C" . ?r) ; Right Arrow (forward-char) ! 141: ("D" . ?l) ; Left Arrow (backward-char) ! 142: ("H" . ?h) ; Home (move-to-window-line) ! 143: ("J" . ?C) ; Clear (recenter) ! 144: ("S" . ?9) ; Shift-DownArrow (forward-paragraph) ! 145: ("T" . ?7) ; Shift-UpArrow (backward-paragraph) ! 146: ("U" . ?N) ; Page (scroll-up) ! 147: ("V" . ?P) ; Shift-Page (scroll-down) ! 148: )))
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.