Mercurial > emacs
comparison lisp/term/common-win.el @ 111191:ed5bac97776a
* 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) |