Mercurial > hg > xemacs-beta

comparison src/keymap.c @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 576fb035e263
children c33ae14dd6d0
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
1540 1540
1541 1541
1542 int 1542 int
1543 event_matches_key_specifier_p (Lisp_Event *event, Lisp_Object key_specifier) 1543 event_matches_key_specifier_p (Lisp_Event *event, Lisp_Object key_specifier)
1544 { 1544 {
1545 Lisp_Object event2; 1545 Lisp_Object event2 = Qnil;
1546 int retval; 1546 int retval;
1547 struct gcpro gcpro1; 1547 struct gcpro gcpro1;
1548 1548
1549 if (event->event_type != key_press_event || NILP (key_specifier) || 1549 if (event->event_type != key_press_event || NILP (key_specifier) ||
1550 (INTP (key_specifier) && !CHAR_INTP (key_specifier))) 1550 (INTP (key_specifier) && !CHAR_INTP (key_specifier)))