gudeman@arizona.edu (David Gudeman) (06/30/87)
For anyone who tried to use the wy75.el setup file posted earlier today, I really know better than to add harmless changes to a file and then post it without testing. I really do. Really. Sorry for any trouble this caused. Here are the diffs to make wy75.el work correctly (i.e.: not die a horrible death): *** wy75old.el Mon Jun 29 16:18:29 1987 --- wy75.el Mon Jun 29 21:55:50 1987 *************** *** 42,47 **** --- 42,48 ---- (or keypad-map (keymapp (lookup-key global-map "\eO")) (progn + (setq keypad-map (make-keymap)) (setup-terminal-keymap keypad-map '(("A" . ?u) ; up arrow *************** *** 82,88 **** ("h" . ?\C-r) ; F7S ("i" . ?\C-s) ; F8S ("j" . ?\C-t) ; F9S ! ("k" . ?\C-u)) ; F10S (define-key global-map "\eO" keypad-map) (define-key global-map "\eG" keypad-map))); ESC-G is frequently recieved ; instead of ESC-O. Probably --- 83,89 ---- ("h" . ?\C-r) ; F7S ("i" . ?\C-s) ; F8S ("j" . ?\C-t) ; F9S ! ("k" . ?\C-u))) ; F10S (define-key global-map "\eO" keypad-map) (define-key global-map "\eG" keypad-map))); ESC-G is frequently recieved ; instead of ESC-O. Probably *************** *** 128,134 **** ("26~" . ?\C-n) ("4~" . ?s) ; F14 ("28~" . ??) ("5~" . ?P) ; F15 ("29~" . ?x) ("6~" . ?N))) ; F16 ! (define-key esc-map "[" Fkey-map)))) (defun wy75-reset-keys (arg) "Set wyse 75 function keys F6 to F16 and shifted F6 to F10 to use ESC-O --- 129,135 ---- ("26~" . ?\C-n) ("4~" . ?s) ; F14 ("28~" . ??) ("5~" . ?P) ; F15 ("29~" . ?x) ("6~" . ?N))) ; F16 ! (define-key esc-map "[" Fkey-map))) (defun wy75-reset-keys (arg) "Set wyse 75 function keys F6 to F16 and shifted F6 to F10 to use ESC-O