Mercurial > hg > xemacs-beta

comparison src/keymap.c @ 197:acd284d43ca1 r20-3b25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b25
author cvs
date Mon, 13 Aug 2007 10:00:02 +0200
parents a2f645c6b9f8
children 850242ba4a81
comparison
equal deleted inserted replaced
196:58e0786448ca 197:acd284d43ca1
236 /* Lisp_Object Qsymbol; defined in general.c */ 236 /* Lisp_Object Qsymbol; defined in general.c */
237 Lisp_Object Qbutton0, Qbutton1, Qbutton2, Qbutton3, Qbutton4, Qbutton5, 237 Lisp_Object Qbutton0, Qbutton1, Qbutton2, Qbutton3, Qbutton4, Qbutton5,
238 Qbutton6, Qbutton7; 238 Qbutton6, Qbutton7;
239 Lisp_Object Qbutton0up, Qbutton1up, Qbutton2up, Qbutton3up, Qbutton4up, 239 Lisp_Object Qbutton0up, Qbutton1up, Qbutton2up, Qbutton3up, Qbutton4up,
240 Qbutton5up, Qbutton6up, Qbutton7up; 240 Qbutton5up, Qbutton6up, Qbutton7up;
241 #ifdef HAVE_OFFIX_DND
242 Lisp_Object Qdrop0, Qdrop1, Qdrop2, Qdrop3, Qdrop4, Qdrop5, Qdrop6, Qdrop7;
243 #endif
241 Lisp_Object Qmenu_selection; 244 Lisp_Object Qmenu_selection;
242 /* Emacs compatibility */ 245 /* Emacs compatibility */
243 Lisp_Object Qdown_mouse_1, Qdown_mouse_2, Qdown_mouse_3; 246 Lisp_Object Qdown_mouse_1, Qdown_mouse_2, Qdown_mouse_3;
244 Lisp_Object Qmouse_1, Qmouse_2, Qmouse_3; 247 Lisp_Object Qmouse_1, Qmouse_2, Qmouse_3;
245 248
1421 returned_value->keysym = (down ? Qbutton0 : Qbutton0up); break; 1424 returned_value->keysym = (down ? Qbutton0 : Qbutton0up); break;
1422 } 1425 }
1423 returned_value->modifiers = XEVENT (spec)->event.button.modifiers; 1426 returned_value->modifiers = XEVENT (spec)->event.button.modifiers;
1424 break; 1427 break;
1425 } 1428 }
1429 #ifdef HAVE_OFFIX_DND
1430 case dnd_drop_event:
1431 {
1432 switch (XEVENT (spec)->event.dnd_drop.button)
1433 {
1434 case 1:
1435 returned_value->keysym = Qdrop1; break;
1436 case 2:
1437 returned_value->keysym = Qdrop2; break;
1438 case 3:
1439 returned_value->keysym = Qdrop3; break;
1440 case 4:
1441 returned_value->keysym = Qdrop4; break;
1442 case 5:
1443 returned_value->keysym = Qdrop5; break;
1444 case 6:
1445 returned_value->keysym = Qdrop6; break;
1446 case 7:
1447 returned_value->keysym = Qdrop7; break;
1448 default:
1449 returned_value->keysym = Qdrop0; break;
1450 }
1451 returned_value->modifiers = XEVENT (spec)->event.dnd_drop.modifiers;
1452 break;
1453 }
1454 #endif
1426 default: 1455 default:
1427 signal_error (Qwrong_type_argument, 1456 signal_error (Qwrong_type_argument,
1428 list2 (build_translated_string 1457 list2 (build_translated_string
1429 ("unable to bind this type of event"), 1458 ("unable to bind this type of event"),
1430 spec)); 1459 spec));
1515 EQ (raw_key.keysym, Qbutton2) || EQ (raw_key.keysym, Qbutton2up) || 1544 EQ (raw_key.keysym, Qbutton2) || EQ (raw_key.keysym, Qbutton2up) ||
1516 EQ (raw_key.keysym, Qbutton3) || EQ (raw_key.keysym, Qbutton3up) || 1545 EQ (raw_key.keysym, Qbutton3) || EQ (raw_key.keysym, Qbutton3up) ||
1517 EQ (raw_key.keysym, Qbutton4) || EQ (raw_key.keysym, Qbutton4up) || 1546 EQ (raw_key.keysym, Qbutton4) || EQ (raw_key.keysym, Qbutton4up) ||
1518 EQ (raw_key.keysym, Qbutton5) || EQ (raw_key.keysym, Qbutton5up) || 1547 EQ (raw_key.keysym, Qbutton5) || EQ (raw_key.keysym, Qbutton5up) ||
1519 EQ (raw_key.keysym, Qbutton6) || EQ (raw_key.keysym, Qbutton6up) || 1548 EQ (raw_key.keysym, Qbutton6) || EQ (raw_key.keysym, Qbutton6up) ||
1520 EQ (raw_key.keysym, Qbutton7) || EQ (raw_key.keysym, Qbutton7up)) 1549 EQ (raw_key.keysym, Qbutton7) || EQ (raw_key.keysym, Qbutton7up)
1550 #ifdef HAVE_OFFIX_DND
1551 || EQ (raw_key.keysym, Qdrop0) || EQ (raw_key.keysym, Qdrop1) ||
1552 EQ (raw_key.keysym, Qdrop2) || EQ (raw_key.keysym, Qdrop3) ||
1553 EQ (raw_key.keysym, Qdrop4) || EQ (raw_key.keysym, Qdrop5) ||
1554 EQ (raw_key.keysym, Qdrop6) || EQ (raw_key.keysym, Qdrop7)
1555 #endif
1556 )
1521 error ("Mouse-clicks can't appear in saved keyboard macros."); 1557 error ("Mouse-clicks can't appear in saved keyboard macros.");
1522 1558
1523 XEVENT (event)->channel = Vselected_console; 1559 XEVENT (event)->channel = Vselected_console;
1524 XEVENT (event)->event_type = key_press_event; 1560 XEVENT (event)->event_type = key_press_event;
1525 XEVENT (event)->event.key.keysym = raw_key.keysym; 1561 XEVENT (event)->event.key.keysym = raw_key.keysym;
4232 defsymbol (&Qbutton3up, "button3up"); 4268 defsymbol (&Qbutton3up, "button3up");
4233 defsymbol (&Qbutton4up, "button4up"); 4269 defsymbol (&Qbutton4up, "button4up");
4234 defsymbol (&Qbutton5up, "button5up"); 4270 defsymbol (&Qbutton5up, "button5up");
4235 defsymbol (&Qbutton6up, "button6up"); 4271 defsymbol (&Qbutton6up, "button6up");
4236 defsymbol (&Qbutton7up, "button7up"); 4272 defsymbol (&Qbutton7up, "button7up");
4273 #ifdef HAVE_OFFIX_DND
4274 defsymbol (&Qdrop0, "drop0");
4275 defsymbol (&Qdrop1, "drop1");
4276 defsymbol (&Qdrop2, "drop2");
4277 defsymbol (&Qdrop3, "drop3");
4278 defsymbol (&Qdrop4, "drop4");
4279 defsymbol (&Qdrop5, "drop5");
4280 defsymbol (&Qdrop6, "drop6");
4281 defsymbol (&Qdrop7, "drop7");
4282 #endif
4237 defsymbol (&Qmouse_1, "mouse-1"); 4283 defsymbol (&Qmouse_1, "mouse-1");
4238 defsymbol (&Qmouse_2, "mouse-2"); 4284 defsymbol (&Qmouse_2, "mouse-2");
4239 defsymbol (&Qmouse_3, "mouse-3"); 4285 defsymbol (&Qmouse_3, "mouse-3");
4240 defsymbol (&Qdown_mouse_1, "down-mouse-1"); 4286 defsymbol (&Qdown_mouse_1, "down-mouse-1");
4241 defsymbol (&Qdown_mouse_2, "down-mouse-2"); 4287 defsymbol (&Qdown_mouse_2, "down-mouse-2");