(Fset_keymap_parent): Check for cycles in keymap

inheritance.

diff --git a/src/ChangeLog b/src/ChangeLog
index 2ed9135264502f11e2b7c8827a8df2329a570a19..64cd6de2da0ebc34a471cae5ed686e912c59c3be 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2000-09-08  Gerd Moellmann  <gerd@gnu.org>
 
+       * keymap.c (Fset_keymap_parent): Check for cycles in keymap
+       inheritance.
+
        * xdisp.c (try_window_id): When trying to locate cursor in
        unchanged rows at the top, handle the case that we can't find it.
 

diff --git a/src/keymap.c b/src/keymap.c
index 410d38e54f40e63832946747e34015b6e52e2b96..26659410227fed0d7a3d90f48f528db4a03a1296 100644 (file)
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -307,6 +307,7 @@ DEFUN ("keymap-parent", Fkeymap_parent, Skeymap_parent, 1, 1, 0,
   return Qnil;
 }
 
+
 /* Set the parent keymap of MAP to PARENT.  */
 
 DEFUN ("set-keymap-parent", Fset_keymap_parent, Sset_keymap_parent, 2, 2, 0,
@@ -323,7 +324,18 @@ PARENT should be nil or another keymap.")
   GCPRO1 (keymap);
   
   if (!NILP (parent))
-    parent = get_keymap_1 (parent, 1, 1);
+    {
+      Lisp_Object k;
+      
+      parent = get_keymap_1 (parent, 1, 1);
+
+      /* Check for cycles.  */
+      k = parent;
+      while (KEYMAPP (k) && !EQ (keymap, k))
+       k = Fkeymap_parent (k);
+      if (EQ (keymap, k))
+       error ("Cyclic keymap inheritance");
+    }
 
   /* Skip past the initial element `keymap'.  */
   prev = keymap;