# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 781861594 0
# Node ID 539e7fe905ff21491197adff0be2fd08be5ac189
# Parent  d9dc17134dde340f119f057c5cdbe79f7f28bc8e
(internal_equal): Check the substructure.

diff -r d9dc17134dde -r 539e7fe905ff src/fns.c
--- a/src/fns.c	Tue Oct 11 07:46:22 1994 +0000
+++ b/src/fns.c	Tue Oct 11 07:46:34 1994 +0000
@@ -886,6 +886,7 @@
     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;