konath@sj.ate.slb.com (Kannan Konath) (02/08/91)
We just shifted from Sun3s to SPARC SLC. I now find that my key bindings
for the R1-R15 keys and L1-L10 do not work anymore when I load "openwin"
and GNU emacs therafter. The surprising part is that the key bindings
work when I exit the windowing environment. These key bindings used
to work earlier on the Sun3s. The Sun3s ran SunOS 4.0.3 while the
Sparc SLCs run 4.1.1.
When shifting from Sun3 to Sparc SLC I also recompiled the latest version
of GNU Emacs 18.57. I compiled the emacs without HAVE_X_WINDOWS being
defined. I tried this by loading emacs into an xterm window.
I haven't changed much of the default characteristics of OpenWindows.
The only thing that seemed to me to be remotely connected to this
problem is xmodmap in /usr/openwin/lib/openwin-sys:
xmodmap -e 'add mod1 = Meta_L Meta_R' \
-e 'add mod2 = F13 F16 F18 F19 F20 \
-e 'add mod3 = Mode_switch \
-e 'add mod4 = Num_Lock
I am not sure if this has anything to do with the problem but just in case
someone figures there is a connection between the two.
I really would appreciate any help in figuring this out. I am appending
the portion of my ".emacs" file pertaining to the key bindings.
Thanks
kannan
konath@sj.ate.slb.com
(setq sun-raw-map-hooks
'((define-key sun-raw-map "193z" 'ispell-word) ;L2
(define-key sun-raw-map "194z" 'load-library) ;L3
(define-key sun-raw-map "195z" 'ispell-buffer) ;L4
(define-key sun-raw-map "196z" 'start-kbd-macro) ;L5
(define-key sun-raw-map "197z" 'end-kbd-macro) ;L6
(define-key sun-raw-map "198z" 'call-last-kbd-macro) ;L7
(define-key sun-raw-map "199z" 'query-replace) ;L8
(define-key sun-raw-map "200z" 'rmail) ;L9
(define-key sun-raw-map "208z" 'new-beg-of-buff) ;R1
(define-key sun-raw-map "209z" 'find-alternate-file) ;R2
(define-key sun-raw-map "210z" 'new-end-of-buff) ;R3
(define-key sun-raw-map "211z" 'scroll-down) ;R4
(define-key sun-raw-map "212z" 'scroll-other-window) ;R5
(define-key sun-raw-map "213z" 'scroll-up) ;R6
(define-key sun-raw-map "214z" 'scroll-down-n-times) ;R7
(define-key sun-raw-map "A" 'previous-line) ;R8 (up-arrow)
(define-key sun-raw-map "215z" 'previous-line) ;R8 (up-arrow)
(define-key sun-raw-map "216z" 'scroll-up-n-times) ;R9
(define-key sun-raw-map "D" 'backward-char) ;R10 (left-arrow)
(define-key sun-raw-map "217z" 'backward-char) ;R10 (left-arrow)
(define-key sun-raw-map "218z" 'mult-arg) ;R11
(define-key sun-raw-map "C" 'forward-char) ;R12 (right-arrow)
(define-key sun-raw-map "219z" 'forward-char) ;R12 (right-arrow)
(define-key sun-raw-map "|" 'backward-word) ;R13
(define-key sun-raw-map "B" 'next-line) ;R14 (down-arrow)
(define-key sun-raw-map "221z" 'next-line) ;R14 (down-arrow)
(define-key sun-raw-map "222z" 'forward-word) ;R15
;;; (define-key sun-raw-map "225z" 'delete-window) ;F2
;;; (define-key sun-raw-map "226z" 'delete-other-windows) ;F3
;;; (define-key sun-raw-map "227z" 'prev-window) ;F4
(define-key sun-raw-map "228z" 'overwrite-mode) ;F5
(define-key sun-raw-map "229z" 'set-fill-prefix) ;F6
(define-key sun-raw-map "230z" 'fill-paragraph) ;F7
(define-key sun-raw-map "231z" 'what-line) ;F8
(define-key sun-raw-map "232z" 'goto-line) ;F9
))
(setq sun-esc-bracket t)