Commit 7f064f5c authored by Karl Heuer's avatar Karl Heuer
Browse files

(internal_equal): Check the substructure.

parent c51e6d8c
......@@ -886,6 +886,7 @@ internal_equal (o1, o2, depth)
return (extract_float (o1) == extract_float (o2)) ? Qt : Qnil;
#endif
if (XTYPE (o1) != XTYPE (o2)) return Qnil;
if (MISCP (o1) && XMISC (o1)->type != XMISC (o2)->type) return Qnil;
if (CONSP (o1) || OVERLAYP (o1))
{
Lisp_Object v1;
......
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