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