Mercurial > hg > xemacs-beta

comparison lisp/x11/x-win-sun.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 461c7ba8286a
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
91 ;; insert is ok 91 ;; insert is ok
92 ;; delete is ok 92 ;; delete is ok
93 ;; kp_enter is ok 93 ;; kp_enter is ok
94 (append 94 (append
95 ;; Sun Function keys 95 ;; Sun Function keys
96 (cond ((x-keysym-on-keyboard-p "F21")
97 '((f21 . pause)
98 (f22 . print)
99 (f23 . scroll_lock))))
100
96 (cond ((x-keysym-on-keyboard-p "SunCut") ; X11 R6 mappings 101 (cond ((x-keysym-on-keyboard-p "SunCut") ; X11 R6 mappings
97 '((SunProps . props) (Undo . undo) 102 '((SunProps . props) (Undo . undo)
98 (SunFront . front) (SunCopy . copy) 103 (SunFront . front) (SunCopy . copy)
99 (SunOpen . open) (SunPaste . paste) 104 (SunOpen . open) (SunPaste . paste)
100 (SunFind . find) (SunCut . cut) 105 (SunFind . find) (SunCut . cut)
112 (f22 . prsc) 117 (f22 . prsc)
113 (f23 . scroll) 118 (f23 . scroll)
114 (f25 . kp_divide) 119 (f25 . kp_divide)
115 (f26 . kp_multiply) 120 (f26 . kp_multiply)
116 (f31 . kp_5)) 121 (f31 . kp_5))
122
123 ;; Map f33 and r13 to end or kp_end
124 (cond
125 ((not (x-keysym-on-keyboard-p "End"))
126 '((f33 . end) (r13 . end)))
127 ((not (x-keysym-on-keyboard-p "KP_End"))
128 '((f33 . kp_end) (r13 . kp_end))))
129
117 (if (x-keysym-on-keyboard-p "F36") 130 (if (x-keysym-on-keyboard-p "F36")
118 '((f36 . stop) (f37 . again)) ; MIT Type 5 name 131 '((f36 . stop) (f37 . again)) ; MIT Type 5 name
119 '((f11 . stop) (f12 . again))))) ; Sun name or MIT Type 4 name 132 '((f11 . stop) (f12 . again))) ; Sun name or MIT Type 4 name
120 133
121 ;; Type 4 keyboards have a real kp_subtract and a f24 labelled `=' 134 ;; Type 4 keyboards have a real kp_subtract and a f24 labelled `='
122 ;; Type 5 keyboards have no key labelled `=' and a f24 labelled `-' 135 ;; Type 5 keyboards have no key labelled `=' and a f24 labelled `-'
123 (if (x-keysym-on-keyboard-p "F24") 136 (if (x-keysym-on-keyboard-p "F24")
124 (if (x-keysym-on-keyboard-p "KP_Subtract") 137 (if (x-keysym-on-keyboard-p "KP_Subtract")
125 '((f24 . kp_equal)) 138 '((f24 . kp_equal))
126 '((f24 . kp_subtract)))) 139 '((f24 . kp_subtract))))
127 140
128 ;; Map f33 (Sun name) or r13 (MIT name) to end or kp_end 141 ;; Map f27 to home or kp_home, as appropriate
129 (cond ((x-keysym-on-keyboard-p "F33") 142 (cond ((not (x-keysym-on-keyboard-p "Home")) '((f27 . home)))
130 (cond ((not (x-keysym-on-keyboard-p "End")) '((f33 . end))) 143 ((not (x-keysym-on-keyboard-p "KP_Home")) '((f27 . kp_home))))
131 ((not (x-keysym-on-keyboard-p "KP_End")) '((f33 . kp_end))))) 144
132 ((x-keysym-on-keyboard-p "R13") 145 ;; Map f29 to prior or kp_prior, as appropriate
133 (cond ((not (x-keysym-on-keyboard-p "End")) '((r13 . end))) 146 (cond ((not (x-keysym-on-keyboard-p "Prior")) '((f29 . prior)))
134 ((not (x-keysym-on-keyboard-p "KP_End")) '((r13 . kp_end)))))) 147 ((not (x-keysym-on-keyboard-p "KP_Prior")) '((f29 . kp_prior))))
135 148
136 ;; Map f27 to home or kp_home, as appropriate 149 ;; Map f35 to next or kp_next, as appropriate
137 (cond ((not (x-keysym-on-keyboard-p "Home")) '((f27 . home))) 150 (cond ((not (x-keysym-on-keyboard-p "Next")) '((f35 . next)))
138 ((not (x-keysym-on-keyboard-p "KP_Home")) '((f27 . kp_home)))) 151 ((not (x-keysym-on-keyboard-p "KP_Next")) '((f35 . kp_next))))
139 152 ))
140 ;; Map f29 to prior or kp_prior, as appropriate
141 (cond ((not (x-keysym-on-keyboard-p "Prior")) '((f29 . prior)))
142 ((not (x-keysym-on-keyboard-p "KP_Prior")) '((f29 . kp_prior))))
143
144 ;; Map f35 to next or kp_next, as appropriate
145 (cond ((not (x-keysym-on-keyboard-p "Next")) '((f35 . next)))
146 ((not (x-keysym-on-keyboard-p "KP_Next")) '((f35 . kp_next))))
147 153
148 (cond ((x-keysym-on-keyboard-p "apRead") ; SunOS 4.1.1 154 (cond ((x-keysym-on-keyboard-p "apRead") ; SunOS 4.1.1
149 '((apRead . f11) (apEdit . f12))) 155 '((apRead . f11) (apEdit . f12)))
150 ((x-keysym-on-keyboard-p "SunF36") ; SunOS 5 156 ((x-keysym-on-keyboard-p "SunF36") ; SunOS 5
151 '((SunF36 . f11) (SunF37 . f12)))) 157 '((SunF36 . f11) (SunF37 . f12))))
158
159 ;; !@#$ SunOS 4 with SunOS5 X server
160 (if (string-match "sunos4.1" system-configuration)
161 '((unknown_keysym_0xFF9A . kp_prior)
162 (unknown_keysym_0xFF9B . kp_next)
163 (unknown_keysym_0xFF95 . kp_home)
164 (unknown_keysym_0xFF9C . kp_end)
165 (unknown_keysym_0xFF96 . kp_left)
166 (unknown_keysym_0xFF97 . kp_up)
167 (unknown_keysym_0xFF98 . kp_right)
168 (unknown_keysym_0xFF99 . kp_down)
169 (unknown_keysym_0xFF9E . kp_insert)))
152 )) 170 ))
153 171
154 (fmakunbound 'x11-remap-keysyms-using-function-key-map) 172 (fmakunbound 'x11-remap-keysyms-using-function-key-map)
155 173
156 174