From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 11 Oct 1994 07:46:34 +0000 (+0000)
Subject: (internal_equal): Check the substructure.
X-Git-Tag: emacs-19.34~6415
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7f064f5c1a48bd7cb445c72f57ccafa3d2a2a6c9;p=emacs.git

(internal_equal): Check the substructure.
---

diff --git a/src/fns.c b/src/fns.c
index 3f678439be9..d70d5e8daa8 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -886,6 +886,7 @@ do_cdr:
     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;