Commit 7f3e8859 authored by Richard M. Stallman's avatar Richard M. Stallman

(access_keymap): Protect from bad value of meta_prefix_char.

parent 0e73312b
...@@ -528,6 +528,10 @@ access_keymap (map, idx, t_ok, noinherit, autoload) ...@@ -528,6 +528,10 @@ access_keymap (map, idx, t_ok, noinherit, autoload)
struct gcpro gcpro1; struct gcpro gcpro1;
Lisp_Object meta_map; Lisp_Object meta_map;
GCPRO1 (map); GCPRO1 (map);
/* A strange value in which Meta is set would cause
infinite recursion. Protect against that. */
if (meta_prefix_char & CHAR_META)
meta_prefix_char = make_number (27);
meta_map = get_keymap (access_keymap (map, meta_prefix_char, meta_map = get_keymap (access_keymap (map, meta_prefix_char,
t_ok, noinherit, autoload), t_ok, noinherit, autoload),
0, autoload); 0, autoload);
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment