Mercurial > emacs

comparison src/keymap.c @ 59661:e7a8549bb201

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(access_keymap): Protect from bad value of meta_prefix_char.
author Richard M. Stallman <rms@gnu.org>
date Fri, 21 Jan 2005 00:31:40 +0000
parents 031c9a79c55a
children a9fbaec66c84 6d92d69fae33
comparison
equal deleted inserted replaced
59660:5ee7eaad2958 59661:e7a8549bb201
526 /* See if there is a meta-map. If there's none, there is 526 /* See if there is a meta-map. If there's none, there is
527 no binding for IDX, unless a default binding exists in MAP. */ 527 no binding for IDX, unless a default binding exists in MAP. */
528 struct gcpro gcpro1; 528 struct gcpro gcpro1;
529 Lisp_Object meta_map; 529 Lisp_Object meta_map;
530 GCPRO1 (map); 530 GCPRO1 (map);
531 /* A strange value in which Meta is set would cause
532 infinite recursion. Protect against that. */
533 if (meta_prefix_char & CHAR_META)
534 meta_prefix_char = make_number (27);
531 meta_map = get_keymap (access_keymap (map, meta_prefix_char, 535 meta_map = get_keymap (access_keymap (map, meta_prefix_char,
532 t_ok, noinherit, autoload), 536 t_ok, noinherit, autoload),
533 0, autoload); 537 0, autoload);
534 UNGCPRO; 538 UNGCPRO;
535 if (CONSP (meta_map)) 539 if (CONSP (meta_map))