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

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

parent 0da7cff1
......@@ -371,14 +371,13 @@ get_keyelt (object)
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;
}
}
......
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