diff options
| author | Mattias EngdegÄrd | 2024-08-15 16:00:47 +0200 |
|---|---|---|
| committer | Mattias EngdegÄrd | 2024-08-15 16:02:17 +0200 |
| commit | 8db72a8d4b77ccdbb68f7361a52d7f2ebe78b656 (patch) | |
| tree | 31462f8884d9a2cb5dcb253e82421ad1acc71d04 /src/buffer.c | |
| parent | 03a791556af3b3683921799cce6df2f5ec81c1e7 (diff) | |
| download | emacs-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.c | 8 |
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' |