Mercurial > hg > xemacs-beta

comparison src/keymap.c @ 458:c33ae14dd6d0 r21-2-44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-44
author cvs
date Mon, 13 Aug 2007 11:42:25 +0200
parents 1ccc32a20af4
children 5aa1854ad537
comparison
equal deleted inserted replaced
457:4b9290a33024 458:c33ae14dd6d0
187 187
188 /* This is incremented whenever a change is made to a keymap. This is 188 /* This is incremented whenever a change is made to a keymap. This is
189 so that things which care (such as the menubar code) can recompute 189 so that things which care (such as the menubar code) can recompute
190 privately-cached data when the user has changed keybindings. 190 privately-cached data when the user has changed keybindings.
191 */ 191 */
192 int keymap_tick; 192 Fixnum keymap_tick;
193 193
194 /* Prefixing a key with this character is the same as sending a meta bit. */ 194 /* Prefixing a key with this character is the same as sending a meta bit. */
195 Lisp_Object Vmeta_prefix_char; 195 Lisp_Object Vmeta_prefix_char;
196 196
197 Lisp_Object Qkeymapp; 197 Lisp_Object Qkeymapp;
219 Lisp_Object Qbutton0up, Qbutton1up, Qbutton2up, Qbutton3up; 219 Lisp_Object Qbutton0up, Qbutton1up, Qbutton2up, Qbutton3up;
220 Lisp_Object Qbutton4up, Qbutton5up, Qbutton6up, Qbutton7up; 220 Lisp_Object Qbutton4up, Qbutton5up, Qbutton6up, Qbutton7up;
221 221
222 Lisp_Object Qmenu_selection; 222 Lisp_Object Qmenu_selection;
223 /* Emacs compatibility */ 223 /* Emacs compatibility */
224 Lisp_Object Qdown_mouse_1, Qdown_mouse_2, Qdown_mouse_3, Qdown_mouse_4, 224 Lisp_Object Qdown_mouse_1, Qmouse_1;
225 Qdown_mouse_5; 225 Lisp_Object Qdown_mouse_2, Qmouse_2;
226 Lisp_Object Qmouse_1, Qmouse_2, Qmouse_3, Qmouse_4, Qmouse_5; 226 Lisp_Object Qdown_mouse_3, Qmouse_3;
227 Lisp_Object Qdown_mouse_4, Qmouse_4;
228 Lisp_Object Qdown_mouse_5, Qmouse_5;
229 Lisp_Object Qdown_mouse_6, Qmouse_6;
230 Lisp_Object Qdown_mouse_7, Qmouse_7;
227 231
228 /* Kludge kludge kludge */ 232 /* Kludge kludge kludge */
229 Lisp_Object QLFD, QTAB, QRET, QESC, QDEL, QSPC, QBS; 233 Lisp_Object QLFD, QTAB, QRET, QESC, QDEL, QSPC, QBS;
230 234
231 235
1364 *keysym = Qbutton3; 1368 *keysym = Qbutton3;
1365 else if (EQ(*keysym, Qdown_mouse_4)) 1369 else if (EQ(*keysym, Qdown_mouse_4))
1366 *keysym = Qbutton4; 1370 *keysym = Qbutton4;
1367 else if (EQ(*keysym, Qdown_mouse_5)) 1371 else if (EQ(*keysym, Qdown_mouse_5))
1368 *keysym = Qbutton5; 1372 *keysym = Qbutton5;
1373 else if (EQ(*keysym, Qdown_mouse_6))
1374 *keysym = Qbutton6;
1375 else if (EQ(*keysym, Qdown_mouse_7))
1376 *keysym = Qbutton7;
1369 else if (EQ(*keysym, Qmouse_1)) 1377 else if (EQ(*keysym, Qmouse_1))
1370 *keysym = Qbutton1up; 1378 *keysym = Qbutton1up;
1371 else if (EQ(*keysym, Qmouse_2)) 1379 else if (EQ(*keysym, Qmouse_2))
1372 *keysym = Qbutton2up; 1380 *keysym = Qbutton2up;
1373 else if (EQ(*keysym, Qmouse_3)) 1381 else if (EQ(*keysym, Qmouse_3))
1374 *keysym = Qbutton3up; 1382 *keysym = Qbutton3up;
1375 else if (EQ(*keysym, Qmouse_4)) 1383 else if (EQ(*keysym, Qmouse_4))
1376 *keysym = Qbutton4up; 1384 *keysym = Qbutton4up;
1377 else if (EQ(*keysym, Qmouse_5)) 1385 else if (EQ(*keysym, Qmouse_5))
1378 *keysym = Qbutton5up; 1386 *keysym = Qbutton5up;
1387 else if (EQ(*keysym, Qmouse_6))
1388 *keysym = Qbutton6up;
1389 else if (EQ(*keysym, Qmouse_7))
1390 *keysym = Qbutton7up;
1379 } 1391 }
1380 } 1392 }
1381 1393
1382 1394
1383 /* Given any kind of key-specifier, return a keysym and modifier mask. 1395 /* Given any kind of key-specifier, return a keysym and modifier mask.
4279 defsymbol (&Qmouse_1, "mouse-1"); 4291 defsymbol (&Qmouse_1, "mouse-1");
4280 defsymbol (&Qmouse_2, "mouse-2"); 4292 defsymbol (&Qmouse_2, "mouse-2");
4281 defsymbol (&Qmouse_3, "mouse-3"); 4293 defsymbol (&Qmouse_3, "mouse-3");
4282 defsymbol (&Qmouse_4, "mouse-4"); 4294 defsymbol (&Qmouse_4, "mouse-4");
4283 defsymbol (&Qmouse_5, "mouse-5"); 4295 defsymbol (&Qmouse_5, "mouse-5");
4296 defsymbol (&Qmouse_6, "mouse-6");
4297 defsymbol (&Qmouse_7, "mouse-7");
4284 defsymbol (&Qdown_mouse_1, "down-mouse-1"); 4298 defsymbol (&Qdown_mouse_1, "down-mouse-1");
4285 defsymbol (&Qdown_mouse_2, "down-mouse-2"); 4299 defsymbol (&Qdown_mouse_2, "down-mouse-2");
4286 defsymbol (&Qdown_mouse_3, "down-mouse-3"); 4300 defsymbol (&Qdown_mouse_3, "down-mouse-3");
4287 defsymbol (&Qdown_mouse_4, "down-mouse-4"); 4301 defsymbol (&Qdown_mouse_4, "down-mouse-4");
4288 defsymbol (&Qdown_mouse_5, "down-mouse-5"); 4302 defsymbol (&Qdown_mouse_5, "down-mouse-5");
4303 defsymbol (&Qdown_mouse_6, "down-mouse-6");
4304 defsymbol (&Qdown_mouse_7, "down-mouse-7");
4289 defsymbol (&Qmenu_selection, "menu-selection"); 4305 defsymbol (&Qmenu_selection, "menu-selection");
4290 defsymbol (&QLFD, "LFD"); 4306 defsymbol (&QLFD, "LFD");
4291 defsymbol (&QTAB, "TAB"); 4307 defsymbol (&QTAB, "TAB");
4292 defsymbol (&QRET, "RET"); 4308 defsymbol (&QRET, "RET");
4293 defsymbol (&QESC, "ESC"); 4309 defsymbol (&QESC, "ESC");