Mercurial > emacs

comparison lisp/term/common-win.el @ 111191:ed5bac97776a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* term/ns-win.el (ns-new-frame, ns-show-prefs): Don't add to global map. * term/common-win.el (x-setup-function-keys): Remove most of the keymappings. Comment on the remaining ones.
author Adrian Robert <Adrian.B.Robert@gmail.com>
date Tue, 26 Oct 2010 16:20:00 +0300
parents 050a28bd1797
children a514b8e891c0
comparison
equal deleted inserted replaced
111190:6174c15098f6 111191:ed5bac97776a
111 (when (featurep 'ns) 111 (when (featurep 'ns)
112 (setq interprogram-cut-function 'x-select-text 112 (setq interprogram-cut-function 'x-select-text
113 interprogram-paste-function 'x-selection-value 113 interprogram-paste-function 'x-selection-value
114 system-key-alist 114 system-key-alist
115 (list 115 (list
116 ;; These are special "keys" used to pass events from C to lisp.
116 (cons (logior (lsh 0 16) 1) 'ns-power-off) 117 (cons (logior (lsh 0 16) 1) 'ns-power-off)
117 (cons (logior (lsh 0 16) 2) 'ns-open-file) 118 (cons (logior (lsh 0 16) 2) 'ns-open-file)
118 (cons (logior (lsh 0 16) 3) 'ns-open-temp-file) 119 (cons (logior (lsh 0 16) 3) 'ns-open-temp-file)
119 (cons (logior (lsh 0 16) 4) 'ns-drag-file) 120 (cons (logior (lsh 0 16) 4) 'ns-drag-file)
120 (cons (logior (lsh 0 16) 5) 'ns-drag-color) 121 (cons (logior (lsh 0 16) 5) 'ns-drag-color)
122 (cons (logior (lsh 0 16) 7) 'ns-change-font) 123 (cons (logior (lsh 0 16) 7) 'ns-change-font)
123 (cons (logior (lsh 0 16) 8) 'ns-open-file-line) 124 (cons (logior (lsh 0 16) 8) 'ns-open-file-line)
124 ;;; (cons (logior (lsh 0 16) 9) 'ns-insert-working-text) 125 ;;; (cons (logior (lsh 0 16) 9) 'ns-insert-working-text)
125 ;;; (cons (logior (lsh 0 16) 10) 'ns-delete-working-text) 126 ;;; (cons (logior (lsh 0 16) 10) 'ns-delete-working-text)
126 (cons (logior (lsh 0 16) 11) 'ns-spi-service-call) 127 (cons (logior (lsh 0 16) 11) 'ns-spi-service-call)
127 (cons (logior (lsh 0 16) 12) 'ns-new-frame) 128 ;;; (cons (logior (lsh 0 16) 12) 'ns-new-frame)
128 (cons (logior (lsh 0 16) 13) 'ns-toggle-toolbar) 129 (cons (logior (lsh 0 16) 13) 'ns-toggle-toolbar)
129 (cons (logior (lsh 0 16) 14) 'ns-show-prefs) 130 ;;; (cons (logior (lsh 0 16) 14) 'ns-show-prefs)
130 (cons (logior (lsh 1 16) 32) 'f1) 131 ))))
131 (cons (logior (lsh 1 16) 33) 'f2)
132 (cons (logior (lsh 1 16) 34) 'f3)
133 (cons (logior (lsh 1 16) 35) 'f4)
134 (cons (logior (lsh 1 16) 36) 'f5)
135 (cons (logior (lsh 1 16) 37) 'f6)
136 (cons (logior (lsh 1 16) 38) 'f7)
137 (cons (logior (lsh 1 16) 39) 'f8)
138 (cons (logior (lsh 1 16) 40) 'f9)
139 (cons (logior (lsh 1 16) 41) 'f10)
140 (cons (logior (lsh 1 16) 42) 'f11)
141 (cons (logior (lsh 1 16) 43) 'f12)
142 (cons (logior (lsh 1 16) 44) 'kp-insert)
143 (cons (logior (lsh 1 16) 45) 'kp-delete)
144 (cons (logior (lsh 1 16) 46) 'kp-home)
145 (cons (logior (lsh 1 16) 47) 'kp-end)
146 (cons (logior (lsh 1 16) 48) 'kp-prior)
147 (cons (logior (lsh 1 16) 49) 'kp-next)
148 (cons (logior (lsh 1 16) 50) 'print-screen)
149 (cons (logior (lsh 1 16) 51) 'scroll-lock)
150 (cons (logior (lsh 1 16) 52) 'pause)
151 (cons (logior (lsh 1 16) 53) 'system)
152 (cons (logior (lsh 1 16) 54) 'break)
153 ;; Erm, this looks like a FIXME...
154 (cons (logior (lsh 1 16) 56)
155 'please-tell-carl-what-this-key-is-called-56)
156 (cons (logior (lsh 1 16) 61)
157 'please-tell-carl-what-this-key-is-called-61)
158 (cons (logior (lsh 1 16) 62)
159 'please-tell-carl-what-this-key-is-called-62)
160 (cons (logior (lsh 1 16) 63)
161 'please-tell-carl-what-this-key-is-called-63)
162 (cons (logior (lsh 1 16) 64)
163 'please-tell-carl-what-this-key-is-called-64)
164 (cons (logior (lsh 1 16) 69)
165 'please-tell-carl-what-this-key-is-called-69)
166 (cons (logior (lsh 1 16) 70)
167 'please-tell-carl-what-this-key-is-called-70)
168 (cons (logior (lsh 1 16) 71)
169 'please-tell-carl-what-this-key-is-called-71)
170 (cons (logior (lsh 1 16) 72)
171 'please-tell-carl-what-this-key-is-called-72)
172 (cons (logior (lsh 1 16) 73)
173 'please-tell-carl-what-this-key-is-called-73)
174 (cons (logior (lsh 2 16) 3) 'kp-enter)
175 (cons (logior (lsh 2 16) 9) 'kp-tab)
176 (cons (logior (lsh 2 16) 28) 'kp-quit)
177 (cons (logior (lsh 2 16) 35) 'kp-hash)
178 (cons (logior (lsh 2 16) 42) 'kp-multiply)
179 (cons (logior (lsh 2 16) 43) 'kp-add)
180 (cons (logior (lsh 2 16) 44) 'kp-separator)
181 (cons (logior (lsh 2 16) 45) 'kp-subtract)
182 (cons (logior (lsh 2 16) 46) 'kp-decimal)
183 (cons (logior (lsh 2 16) 47) 'kp-divide)
184 (cons (logior (lsh 2 16) 48) 'kp-0)
185 (cons (logior (lsh 2 16) 49) 'kp-1)
186 (cons (logior (lsh 2 16) 50) 'kp-2)
187 (cons (logior (lsh 2 16) 51) 'kp-3)
188 (cons (logior (lsh 2 16) 52) 'kp-4)
189 (cons (logior (lsh 2 16) 53) 'kp-5)
190 (cons (logior (lsh 2 16) 54) 'kp-6)
191 (cons (logior (lsh 2 16) 55) 'kp-7)
192 (cons (logior (lsh 2 16) 56) 'kp-8)
193 (cons (logior (lsh 2 16) 57) 'kp-9)
194 (cons (logior (lsh 2 16) 60) 'kp-less)
195 (cons (logior (lsh 2 16) 61) 'kp-equal)
196 (cons (logior (lsh 2 16) 62) 'kp-more)
197 (cons (logior (lsh 2 16) 64) 'kp-at)
198 (cons (logior (lsh 2 16) 92) 'kp-backslash)
199 (cons (logior (lsh 2 16) 96) 'kp-backtick)
200 (cons (logior (lsh 2 16) 124) 'kp-bar)
201 (cons (logior (lsh 2 16) 126) 'kp-tilde)
202 (cons (logior (lsh 2 16) 157) 'kp-mu)
203 (cons (logior (lsh 2 16) 165) 'kp-yen)
204 (cons (logior (lsh 2 16) 167) 'kp-paragraph)
205 (cons (logior (lsh 2 16) 172) 'left)
206 (cons (logior (lsh 2 16) 173) 'up)
207 (cons (logior (lsh 2 16) 174) 'right)
208 (cons (logior (lsh 2 16) 175) 'down)
209 (cons (logior (lsh 2 16) 176) 'kp-ring)
210 (cons (logior (lsh 2 16) 201) 'kp-square)
211 (cons (logior (lsh 2 16) 204) 'kp-cube)
212 (cons (logior (lsh 3 16) 8) 'backspace)
213 (cons (logior (lsh 3 16) 9) 'tab)
214 (cons (logior (lsh 3 16) 10) 'linefeed)
215 (cons (logior (lsh 3 16) 11) 'clear)
216 (cons (logior (lsh 3 16) 13) 'return)
217 (cons (logior (lsh 3 16) 18) 'pause)
218 (cons (logior (lsh 3 16) 25) 'S-tab)
219 (cons (logior (lsh 3 16) 27) 'escape)
220 (cons (logior (lsh 3 16) 127) 'delete)))))
221 (set-terminal-parameter frame 'x-setup-function-keys t))) 132 (set-terminal-parameter frame 'x-setup-function-keys t)))
222 133
223 (defvar x-invocation-args) 134 (defvar x-invocation-args)
224 135
225 (defvar x-command-line-resources nil) 136 (defvar x-command-line-resources nil)