From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 21 Jan 2005 00:31:40 +0000 (+0000)
Subject: (access_keymap): Protect from bad value of meta_prefix_char.
X-Git-Tag: ttn-vms-21-2-B4~2650
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7f3e88596faedd51438f86487504ed6093a9a483;p=emacs.git

(access_keymap): Protect from bad value of meta_prefix_char.
---

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);