# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 761867402 0
# Node ID de651e959736be1197f5437c0e2d053dab1ed547
# Parent  f6fd4af420021965b744574ad4490e929fb50b6c
(get_keyelt): Cached equiv-key data is now a sublist.

diff -r f6fd4af42002 -r de651e959736 src/keymap.c
--- a/src/keymap.c	Mon Feb 21 21:41:01 1994 +0000
+++ b/src/keymap.c	Mon Feb 21 21:50:02 1994 +0000
@@ -371,14 +371,13 @@
 	  if (XTYPE (object) == Lisp_Cons
 	      && XTYPE (XCONS (object)->car) == Lisp_String)
 	    object = XCONS (object)->cdr;
-	  /* Also remove the vector that caches key equivalences, if any.  */
-	  if (XTYPE (object) == Lisp_Cons
-	      && XTYPE (XCONS (object)->car) == Lisp_Vector)
+	  /* Also remove the sublist that caches key equivalences, if any.  */
+	  if (CONSP (object)
+	      && CONSP (XCONS (object)->car))
 	    {
-	      object = XCONS (object)->cdr;
-	      /* Also remove the key's description.  */
-	      if (XTYPE (object) == Lisp_Cons
-		  && XTYPE (XCONS (object)->car) == Lisp_String)
+	      Lisp_Object carcar;
+	      carcar = XCONS (XCONS (object)->car)->car;
+	      if (NILP (carcar) || VECTORP (carcar))
 		object = XCONS (object)->cdr;
 	    }
 	}