mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1993-08-14 03:50:26 +00:00
parent ba2700dbbe
commit 5843fef346
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/fns.c
View File

@ -870,9 +870,10 @@ internal_equal (o1, o2, depth)
}
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)