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 | fac8574121255ac51d76d1fadf65f29eb397b664 (patch) | |
| tree | 00fa7631eddba38069edfddf80ab376169944922 /src/fns.c | |
| parent | 93002f7a262ccb11be6cb09c1c45b5283dd86be6 (diff) | |
| download | emacs-fac8574121255ac51d76d1fadf65f29eb397b664.tar.gz | |
(internal_equal): Check the substructure.
Diffstat (limited to 'src/fns.c')
| -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; |