Mercurial > hg > xemacs-beta

comparison lisp/x11/x-win-sun.el @ 193:f53b5ca2e663 r20-3b23

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b23
author cvs
date Mon, 13 Aug 2007 09:58:30 +0200
parents 489f57a838ef
children
comparison
equal deleted inserted replaced
192:9d35321dd38c 193:f53b5ca2e663
85 ;; insert is ok 85 ;; insert is ok
86 ;; delete is ok 86 ;; delete is ok
87 ;; kp-enter is ok 87 ;; kp-enter is ok
88 ;; Sun Function keys 88 ;; Sun Function keys
89 (loop for (x-name from-key to-key) in 89 (loop for (x-name from-key to-key) in
90 `(("F21" f21 pause) 90 `(("F21" f21 pause)
91 ("F22" f22 print) 91 ("F22" f22 print)
92 ("F23" f23 scroll_lock) 92 ("F23" f23 scroll_lock)
93 93
94 ;; X11 R6 mappings 94 ;; X11 R6 mappings
95 ("SunProps" SunProps props) 95 ("SunProps" SunProps props)
96 ("SunFront" SunFront front) 96 ("SunFront" SunFront front)
97 ("SunOpen" SunOpen open) 97 ("SunOpen" SunOpen open)
98 ("SunFind" SunFind find) 98 ("SunFind" SunFind find)
99 ("Cancel" cancel stop) 99 ("Cancel" cancel stop)
100 ("Undo" Undo undo) 100 ("Undo" Undo undo)
101 ("SunCopy" SunCopy copy) 101 ("SunCopy" SunCopy copy)
102 ("SunPaste" SunPaste paste) 102 ("SunPaste" SunPaste paste)
103 ("SunCut" SunCut cut) 103 ("SunCut" SunCut cut)
104 104
105 ("F13" f13 props) 105 ("F13" f13 props)
106 ("F14" f14 undo) 106 ("F14" f14 undo)
107 ("F15" f15 front) 107 ("F15" f15 front)
108 ("F16" f16 copy) 108 ("F16" f16 copy)
109 ("F17" f17 open) 109 ("F17" f17 open)
110 ("F18" f18 paste) 110 ("F18" f18 paste)
111 ("F19" f19 find) 111 ("F19" f19 find)
112 ("F20" f20 cut) 112 ("F20" f20 cut)
113 113
114 ("F25" f25 kp-divide) 114 ("F25" f25 kp-divide)
115 ("F26" f26 kp-multiply) 115 ("F26" f26 kp-multiply)
116 ("F31" f31 kp-5) 116 ("F31" f31 kp-5)
117 117
118 ;; Map f33 and r13 to end or kp-end 118 ;; Map f33 and r13 to end or kp-end
119 ,@(cond 119 ,@(cond
120 ((not (x-keysym-on-keyboard-sans-modifiers-p "End")) 120 ((not (x-keysym-on-keyboard-sans-modifiers-p "End"))
121 '(("F33" f33 end) 121 '(("F33" f33 end)
122 ("R13" r13 end))) 122 ("R13" r13 end)))
123 ((not (x-keysym-on-keyboard-sans-modifiers-p "KP_End")) 123 ((not (x-keysym-on-keyboard-sans-modifiers-p "KP_End"))
124 '(("F33" f33 kp-end) 124 '(("F33" f33 kp-end)
125 ("R13" r13 kp-end)))) 125 ("R13" r13 kp-end))))
126 126
127 ,@(if (x-keysym-on-keyboard-sans-modifiers-p "F36") 127 ,@(if (x-keysym-on-keyboard-sans-modifiers-p "F36")
128 '(("F36" f36 stop) 128 '(("F36" f36 stop)
129 ("F37" f37 again))) 129 ("F37" f37 again)))
130 130
131 ;; Type 4 keyboards have a real kp-subtract and a f24 labelled `=' 131 ;; Type 4 keyboards have a real kp-subtract and a f24 labelled `='
132 ;; Type 5 keyboards have no key labelled `=' and a f24 labelled `-' 132 ;; Type 5 keyboards have no key labelled `=' and a f24 labelled `-'
133 ,@(when (x-keysym-on-keyboard-sans-modifiers-p "F24") 133 ,@(when (x-keysym-on-keyboard-sans-modifiers-p "F24")
134 `(("F24" f24 ,(if (x-keysym-on-keyboard-sans-modifiers-p "KP_Subtract") 134 `(("F24" f24 ,(if (x-keysym-on-keyboard-sans-modifiers-p "KP_Subtract")
135 'kp-equal 135 'kp-equal
136 'kp-subtract)))) 136 'kp-subtract))))
137 137
138 ;; Map f27 to home or kp-home, as appropriate 138 ;; Map f27 to home or kp-home, as appropriate
139 ,@(cond ((not (x-keysym-on-keyboard-sans-modifiers-p "Home")) 139 ,@(cond ((not (x-keysym-on-keyboard-sans-modifiers-p "Home"))
140 '(("F27" f27 home))) 140 '(("F27" f27 home)))
141 ((not (x-keysym-on-keyboard-sans-modifiers-p "KP_Home")) 141 ((not (x-keysym-on-keyboard-sans-modifiers-p "KP_Home"))
142 '(("F27" f27 kp-home)))) 142 '(("F27" f27 kp-home))))
143 143
144 ;; Map f29 to prior or kp-prior, as appropriate 144 ;; Map f29 to prior or kp-prior, as appropriate
145 ,@(cond ((not (x-keysym-on-keyboard-sans-modifiers-p "Prior")) 145 ,@(cond ((not (x-keysym-on-keyboard-sans-modifiers-p "Prior"))
146 '(("F29" f29 prior))) 146 '(("F29" f29 prior)))
147 ((not (x-keysym-on-keyboard-sans-modifiers-p "KP_Prior")) 147 ((not (x-keysym-on-keyboard-sans-modifiers-p "KP_Prior"))
148 '(("F29" f29 kp-prior)))) 148 '(("F29" f29 kp-prior))))
149 149
150 ;; Map f35 to next or kp-next, as appropriate 150 ;; Map f35 to next or kp-next, as appropriate
151 ,@(cond ((not (x-keysym-on-keyboard-sans-modifiers-p "Next")) 151 ,@(cond ((not (x-keysym-on-keyboard-sans-modifiers-p "Next"))
152 '(("F35" f35 next))) 152 '(("F35" f35 next)))
153 ((not (x-keysym-on-keyboard-sans-modifiers-p "KP_Next")) 153 ((not (x-keysym-on-keyboard-sans-modifiers-p "KP_Next"))
154 '(("F35" f35 kp-next)))) 154 '(("F35" f35 kp-next))))
155 155
156 ,@(cond ((x-keysym-on-keyboard-sans-modifiers-p "apRead") ; SunOS 4.1.1 156 ,@(cond ((x-keysym-on-keyboard-sans-modifiers-p "apRead") ; SunOS 4.1.1
157 '(("apRead" apRead f11) ("apEdit" apEdit f12))) 157 '(("apRead" apRead f11) ("apEdit" apEdit f12)))
158 ((x-keysym-on-keyboard-sans-modifiers-p "SunF36") ; SunOS 5 158 ((x-keysym-on-keyboard-sans-modifiers-p "SunF36") ; SunOS 5
159 '(("SunF36" SunF36 f11) 159 '(("SunF36" SunF36 f11)
160 ("SunF37" SunF37 f12) 160 ("SunF37" SunF37 f12)
161 ("F11" f11 stop) 161 ("F11" f11 stop)
162 ("F12" f12 again)))) 162 ("F12" f12 again))))
163 ) 163 )
164 do (when (x-keysym-on-keyboard-sans-modifiers-p x-name) 164 do (when (x-keysym-on-keyboard-sans-modifiers-p x-name)
165 (x-remap-keysyms-using-function-key-map from-key to-key))) 165 (x-remap-keysyms-using-function-key-map from-key to-key)))
166 166
167 (unintern 'x-remap-keysyms-using-function-key-map) 167 (unintern 'x-remap-keysyms-using-function-key-map)
168 168
169 ;; for each element in the left column of the above table, alias it 169 ;; for each element in the left column of the above table, alias it
170 ;; to the thing in the right column. Then do the same for many, but 170 ;; to the thing in the right column. Then do the same for many, but