diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-10-11 07:46:34 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-10-11 07:46:34 +0000 |
| commit | 7f064f5c1a48bd7cb445c72f57ccafa3d2a2a6c9 (patch) | |
| tree | 02d4cc8a4ff41d48cd55bae5ed14955a6009ee09 /src | |
| parent | c51e6d8c26fa55f9959e0b2f76dba4ffd3b134a2 (diff) | |
| download | emacs-7f064f5c1a48bd7cb445c72f57ccafa3d2a2a6c9.tar.gz | |
(internal_equal): Check the substructure.
Diffstat (limited to 'src')
| -rw-r--r-- | src/fns.c | 1 |
1 files changed, 1 insertions, 0 deletions
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; |