(access_keymap): Protect from bad value of meta_prefix_char.

diff --git a/src/keymap.c b/src/keymap.c
index f5675d563ee4d95b5dc2d3ff5e0c3aeca8cee3cb..ff7836ce23b374ea74af745c92769a595d1df04b 100644 (file)
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -528,6 +528,10 @@ access_keymap (map, idx, t_ok, noinherit, autoload)
       struct gcpro gcpro1;
       Lisp_Object meta_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,
                                            t_ok, noinherit, autoload),
                             0, autoload);