From 5843fef34696e776b9605735b1e24c98bfc89b3a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 14 Aug 1993 03:50:26 +0000 Subject: (internal_equal): All markers in no buffer are equal. --- src/fns.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/fns.c') diff --git a/src/fns.c b/src/fns.c index 192711ec27c..556aaa38f28 100644 --- a/src/fns.c +++ b/src/fns.c @@ -870,9 +870,10 @@ do_cdr: } if (XTYPE (o1) == Lisp_Marker) { - return (XMARKER (o1)->buffer == XMARKER (o2)->buffer - && XMARKER (o1)->bufpos == XMARKER (o2)->bufpos) - ? Qt : Qnil; + return ((XMARKER (o1)->buffer == XMARKER (o2)->buffer + && (NILP (XMARKER (o1)->buffer) + || XMARKER (o1)->bufpos == XMARKER (o2)->bufpos)) + ? Qt : Qnil); } if (XTYPE (o1) == Lisp_Vector || XTYPE (o1) == Lisp_Compiled) -- cgit v1.2.1