aboutsummaryrefslogtreecommitdiffstats
path: root/src/buffer.c
diff options
context:
space:
mode:
authorMattias EngdegÄrd2024-08-15 16:00:47 +0200
committerMattias EngdegÄrd2024-08-15 16:02:17 +0200
commit8db72a8d4b77ccdbb68f7361a52d7f2ebe78b656 (patch)
tree31462f8884d9a2cb5dcb253e82421ad1acc71d04 /src/buffer.c
parent03a791556af3b3683921799cce6df2f5ec81c1e7 (diff)
downloademacs-8db72a8d4b77ccdbb68f7361a52d7f2ebe78b656.tar.gz
emacs-8db72a8d4b77ccdbb68f7361a52d7f2ebe78b656.zip
Replace some EQ with BASE_EQ
* 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.
Diffstat (limited to 'src/buffer.c')
-rw-r--r--src/buffer.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/buffer.c b/src/buffer.c
index 6ec40aff646..78f1d977221 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -2036,7 +2036,7 @@ cleaning up all windows currently displaying the buffer to be killed. */)
2036 /* If the buffer now current is shown in the minibuffer and our buffer 2036 /* If the buffer now current is shown in the minibuffer and our buffer
2037 is the sole other buffer give up. */ 2037 is the sole other buffer give up. */
2038 XSETBUFFER (tem, current_buffer); 2038 XSETBUFFER (tem, current_buffer);
2039 if (EQ (tem, XWINDOW (minibuf_window)->contents) 2039 if (BASE_EQ (tem, XWINDOW (minibuf_window)->contents)
2040 && BASE_EQ (buffer, Fother_buffer (buffer, Qnil, Qnil))) 2040 && BASE_EQ (buffer, Fother_buffer (buffer, Qnil, Qnil)))
2041 return Qnil; 2041 return Qnil;
2042 2042
@@ -3175,7 +3175,7 @@ mouse_face_overlay_overlaps (Lisp_Object overlay)
3175 { 3175 {
3176 if (node->begin < end && node->end > start 3176 if (node->begin < end && node->end > start
3177 && node->begin < node->end 3177 && node->begin < node->end
3178 && !EQ (node->data, overlay) 3178 && !BASE_EQ (node->data, overlay)
3179 && (tem = Foverlay_get (overlay, Qmouse_face), 3179 && (tem = Foverlay_get (overlay, Qmouse_face),
3180 !NILP (tem))) 3180 !NILP (tem)))
3181 return true; 3181 return true;
@@ -3238,7 +3238,7 @@ compare_overlays (const void *v1, const void *v2)
3238 return s2->end < s1->end ? -1 : 1; 3238 return s2->end < s1->end ? -1 : 1;
3239 else if (s1->spriority != s2->spriority) 3239 else if (s1->spriority != s2->spriority)
3240 return (s1->spriority < s2->spriority ? -1 : 1); 3240 return (s1->spriority < s2->spriority ? -1 : 1);
3241 else if (EQ (s1->overlay, s2->overlay)) 3241 else if (BASE_EQ (s1->overlay, s2->overlay))
3242 return 0; 3242 return 0;
3243 else 3243 else
3244 /* Avoid the non-determinism of qsort by choosing an arbitrary ordering 3244 /* 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,
4090 Lisp_Object arg1, Lisp_Object arg2, Lisp_Object arg3) 4090 Lisp_Object arg1, Lisp_Object arg2, Lisp_Object arg3)
4091{ 4091{
4092 /* True if this change is an insertion. */ 4092 /* True if this change is an insertion. */
4093 bool insertion = (after ? XFIXNAT (arg3) == 0 : EQ (start, end)); 4093 bool insertion = (after ? XFIXNAT (arg3) == 0 : BASE_EQ (start, end));
4094 4094
4095 /* We used to run the functions as soon as we found them and only register 4095 /* We used to run the functions as soon as we found them and only register
4096 them in last_overlay_modification_hooks for the purpose of the `after' 4096 them in last_overlay_modification_hooks for the purpose of the `after'