changeset 9439:539e7fe905ff

(internal_equal): Check the substructure.
author Karl Heuer <kwzh@gnu.org>
date Tue, 11 Oct 1994 07:46:34 +0000
parents d9dc17134dde
children 5d7438b61dd5
files src/fns.c
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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;