# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1106267500 0
# Node ID e7a8549bb201c6acc9fcbe181ba75bf50eb7bf5f
# Parent  5ee7eaad295815212d714bc628df122ce2eb875d
(access_keymap): Protect from bad value of meta_prefix_char.

diff -r 5ee7eaad2958 -r e7a8549bb201 src/keymap.c
--- a/src/keymap.c	Fri Jan 21 00:30:56 2005 +0000
+++ b/src/keymap.c	Fri Jan 21 00:31:40 2005 +0000
@@ -528,6 +528,10 @@
       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);