Mercurial > emacs

comparison src/keymap.c @ 12151:43b030e896eb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Flookup_key, Fdefine_key): Use Fevent_convert_list.
author Karl Heuer <kwzh@gnu.org>
date Fri, 09 Jun 1995 01:15:14 +0000
parents 4e0f3e3b4cc7
children a7d5578ebb25
comparison
equal deleted inserted replaced
12150:64b16f71a15c 12151:43b030e896eb
605 while (1) 605 while (1)
606 { 606 {
607 c = Faref (key, make_number (idx)); 607 c = Faref (key, make_number (idx));
608 608
609 if (CONSP (c) && lucid_event_type_list_p (c)) 609 if (CONSP (c) && lucid_event_type_list_p (c))
610 c = convert_event_type_list (c); 610 c = Fevent_convert_list (c);
611 611
612 if (INTEGERP (c) 612 if (INTEGERP (c)
613 && (XINT (c) & meta_bit) 613 && (XINT (c) & meta_bit)
614 && !metized) 614 && !metized)
615 { 615 {
699 while (1) 699 while (1)
700 { 700 {
701 c = Faref (key, make_number (idx)); 701 c = Faref (key, make_number (idx));
702 702
703 if (CONSP (c) && lucid_event_type_list_p (c)) 703 if (CONSP (c) && lucid_event_type_list_p (c))
704 c = convert_event_type_list (c); 704 c = Fevent_convert_list (c);
705 705
706 if (INTEGERP (c) 706 if (INTEGERP (c)
707 && (XINT (c) & meta_bit) 707 && (XINT (c) & meta_bit)
708 && !metized) 708 && !metized)
709 { 709 {