Commit 5843fef3 authored by Richard M. Stallman's avatar Richard M. Stallman

(internal_equal): All markers in no buffer are equal.

parent ba2700db
...@@ -870,9 +870,10 @@ internal_equal (o1, o2, depth) ...@@ -870,9 +870,10 @@ internal_equal (o1, o2, depth)
} }
if (XTYPE (o1) == Lisp_Marker) if (XTYPE (o1) == Lisp_Marker)
{ {
return (XMARKER (o1)->buffer == XMARKER (o2)->buffer return ((XMARKER (o1)->buffer == XMARKER (o2)->buffer
&& XMARKER (o1)->bufpos == XMARKER (o2)->bufpos) && (NILP (XMARKER (o1)->buffer)
? Qt : Qnil; || XMARKER (o1)->bufpos == XMARKER (o2)->bufpos))
? Qt : Qnil);
} }
if (XTYPE (o1) == Lisp_Vector if (XTYPE (o1) == Lisp_Vector
|| XTYPE (o1) == Lisp_Compiled) || XTYPE (o1) == Lisp_Compiled)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment