mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-03 04:21:28 -08:00
Code Issues Projects Releases Wiki Activity

Replace some EQ with BASE_EQ

Browse source 
* src/eval.c (FletX, Flet, funcall_lambda)
(let_shadows_buffer_binding_p):
* src/data.c (set_blv_found, set_internal, default_value)
(set_default_internal, Flocal_variable_p):
* src/buffer.c (Fkill_buffer):
(mouse_face_overlay_overlaps, compare_overlays)
(report_overlay_modification):
BASE_EQ is safe because we don't actually compare symbols here.
This commit is contained in:
Mattias Engdegård 2024-08-15 16:00:47 +02:00
parent 03a791556a
commit 8db72a8d4b
3 changed files with 14 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/buffer.c
View file

@ -2036,7 +2036,7 @@ cleaning up all windows currently displaying the buffer to be killed. */)
/* If the buffer now current is shown in the minibuffer and our buffer
is the sole other buffer give up. */
XSETBUFFER (tem, current_buffer);
if (EQ (tem, XWINDOW (minibuf_window)->contents)
if (BASE_EQ (tem, XWINDOW (minibuf_window)->contents)
&& BASE_EQ (buffer, Fother_buffer (buffer, Qnil, Qnil)))
return Qnil;
@ -3175,7 +3175,7 @@ mouse_face_overlay_overlaps (Lisp_Object overlay)
{
if (node->begin < end && node->end > start
&& node->begin < node->end
&& !EQ (node->data, overlay)
&& !BASE_EQ (node->data, overlay)
&& (tem = Foverlay_get (overlay, Qmouse_face),
!NILP (tem)))
return true;
@ -3238,7 +3238,7 @@ compare_overlays (const void *v1, const void *v2)
return s2->end < s1->end ? -1 : 1;
else if (s1->spriority != s2->spriority)
return (s1->spriority < s2->spriority ? -1 : 1);
else if (EQ (s1->overlay, s2->overlay))
else if (BASE_EQ (s1->overlay, s2->overlay))
return 0;
else
/* Avoid the non-determinism of qsort by choosing an arbitrary ordering
@ -4090,7 +4090,7 @@ report_overlay_modification (Lisp_Object start, Lisp_Object end, bool after,
Lisp_Object arg1, Lisp_Object arg2, Lisp_Object arg3)
{
/* True if this change is an insertion. */
bool insertion = (after ? XFIXNAT (arg3) == 0 : EQ (start, end));
bool insertion = (after ? XFIXNAT (arg3) == 0 : BASE_EQ (start, end));
/* We used to run the functions as soon as we found them and only register
them in last_overlay_modification_hooks for the purpose of the `after'