Mercurial > hg > xemacs-beta

comparison src/keymap.c @ 367:a4f53d9b3154 r21-1-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-13
author cvs
date Mon, 13 Aug 2007 11:01:07 +0200
parents 9ea74add5d37
children cc15677e0335
comparison
equal deleted inserted replaced
366:83d76f480a59 367:a4f53d9b3154
1547 1547
1548 int 1548 int
1549 event_matches_key_specifier_p (struct Lisp_Event *event, 1549 event_matches_key_specifier_p (struct Lisp_Event *event,
1550 Lisp_Object key_specifier) 1550 Lisp_Object key_specifier)
1551 { 1551 {
1552 Lisp_Object event2; 1552 Lisp_Object event2 = Qnil;
1553 int retval; 1553 int retval;
1554 struct gcpro gcpro1; 1554 struct gcpro gcpro1;
1555 1555
1556 if (event->event_type != key_press_event || NILP (key_specifier) || 1556 if (event->event_type != key_press_event || NILP (key_specifier) ||
1557 (INTP (key_specifier) && !CHAR_INTP (key_specifier))) 1557 (INTP (key_specifier) && !CHAR_INTP (key_specifier)))
2224 Does all manner of semi-hairy heuristics, like looking in the current 2224 Does all manner of semi-hairy heuristics, like looking in the current
2225 buffer's map before looking in the global map and looking in the local 2225 buffer's map before looking in the global map and looking in the local
2226 map of the buffer in which the mouse was clicked in event0 is a click. 2226 map of the buffer in which the mouse was clicked in event0 is a click.
2227 2227
2228 It would be kind of nice if this were in Lisp so that this semi-hairy 2228 It would be kind of nice if this were in Lisp so that this semi-hairy
2229 semi-heuristic command-lookup behaviour could be readily understood and 2229 semi-heuristic command-lookup behavior could be readily understood and
2230 customised. However, this needs to be pretty fast, or performance of 2230 customised. However, this needs to be pretty fast, or performance of
2231 keyboard macros goes to shit; putting this in lisp slows macros down 2231 keyboard macros goes to shit; putting this in lisp slows macros down
2232 2-3x. And they're already slower than v18 by 5-6x. 2232 2-3x. And they're already slower than v18 by 5-6x.
2233 */ 2233 */
2234 2234