(access_keymap): Protect from bad value of meta_prefix_char.

1 files changed, 4 insertions, 0 deletions

diff --git a/src/keymap.c b/src/keymap.c
index f5675d563ee..ff7836ce23b 100644
--- 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);