Commit c6ec9f6e authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(get_keyelt): Cached equiv-key data is now a sublist.

parent 0da7cff1
...@@ -371,14 +371,13 @@ get_keyelt (object) ...@@ -371,14 +371,13 @@ get_keyelt (object)
if (XTYPE (object) == Lisp_Cons if (XTYPE (object) == Lisp_Cons
&& XTYPE (XCONS (object)->car) == Lisp_String) && XTYPE (XCONS (object)->car) == Lisp_String)
object = XCONS (object)->cdr; object = XCONS (object)->cdr;
/* Also remove the vector that caches key equivalences, if any. */ /* Also remove the sublist that caches key equivalences, if any. */
if (XTYPE (object) == Lisp_Cons if (CONSP (object)
&& XTYPE (XCONS (object)->car) == Lisp_Vector) && CONSP (XCONS (object)->car))
{ {
object = XCONS (object)->cdr; Lisp_Object carcar;
/* Also remove the key's description. */ carcar = XCONS (XCONS (object)->car)->car;
if (XTYPE (object) == Lisp_Cons if (NILP (carcar) || VECTORP (carcar))
&& XTYPE (XCONS (object)->car) == Lisp_String)
object = XCONS (object)->cdr; object = XCONS (object)->cdr;
} }
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment