]> git.eshelyaron.com Git - emacs.git/commitdiff
Replace some EQ with BASE_EQ
authorMattias EngdegÄrd <mattiase@acm.org>
Thu, 15 Aug 2024 14:00:47 +0000 (16:00 +0200)
committerEshel Yaron <me@eshelyaron.com>
Fri, 16 Aug 2024 06:44:46 +0000 (08:44 +0200)
* 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.

(cherry picked from commit 8db72a8d4b77ccdbb68f7361a52d7f2ebe78b656)

src/buffer.c
src/data.c
src/eval.c

index 6ec40aff646a3eef18fe01b82b95cb4b8b3b81b9..78f1d9772219a2a00d6aac98935355a6980261d4 100644 (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'
index d947d2008706e7bbeeb28dbbe093e93e5e6c3a99..6fa543c97cf3e6a1964114fa40c7a032780aa579 100644 (file)
@@ -82,7 +82,7 @@ XOBJFWD (lispfwd a)
 static void
 set_blv_found (struct Lisp_Buffer_Local_Value *blv, int found)
 {
-  eassert (found == !EQ (blv->defcell, blv->valcell));
+  eassert (found == !BASE_EQ (blv->defcell, blv->valcell));
   blv->found = found;
 }
 
@@ -1697,9 +1697,9 @@ set_internal (Lisp_Object symbol, Lisp_Object newval, Lisp_Object where,
           loaded, or if it's a Lisp_Buffer_Local_Value and
           the default binding is loaded, the loaded binding may be the
           wrong one.  */
-       if (!EQ (blv->where, where)
+       if (!BASE_EQ (blv->where, where)
            /* Also unload a global binding (if the var is local_if_set).  */
-           || (EQ (blv->valcell, blv->defcell)))
+           || (BASE_EQ (blv->valcell, blv->defcell)))
          {
            /* The currently loaded binding is not necessarily valid.
               We need to unload it, and choose a new binding.  */
@@ -1940,7 +1940,7 @@ default_value (Lisp_Object symbol)
           But the `realvalue' slot may be more up to date, since
           ordinary setq stores just that slot.  So use that.  */
        struct Lisp_Buffer_Local_Value *blv = SYMBOL_BLV (sym);
-       if (blv->fwd.fwdptr && EQ (blv->valcell, blv->defcell))
+       if (blv->fwd.fwdptr && BASE_EQ (blv->valcell, blv->defcell))
          return do_symval_forwarding (blv->fwd);
        else
          return XCDR (blv->defcell);
@@ -2035,7 +2035,7 @@ set_default_internal (Lisp_Object symbol, Lisp_Object value,
        XSETCDR (blv->defcell, value);
 
        /* If the default binding is now loaded, set the REALVALUE slot too.  */
-       if (blv->fwd.fwdptr && EQ (blv->defcell, blv->valcell))
+       if (blv->fwd.fwdptr && BASE_EQ (blv->defcell, blv->valcell))
          store_symval_forwarding (blv->fwd, value, NULL);
         return;
       }
@@ -2401,7 +2401,7 @@ Also see `buffer-local-boundp'.*/)
        XSETBUFFER (tmp, buf);
        XSETSYMBOL (variable, sym); /* Update in case of aliasing.  */
 
-       if (EQ (blv->where, tmp)) /* The binding is already loaded.  */
+       if (BASE_EQ (blv->where, tmp)) /* The binding is already loaded.  */
          return blv_found (blv) ? Qt : Qnil;
        else
          return NILP (assq_no_quit (variable, BVAR (buf, local_var_alist)))
index 16ece744f427f564977454ffe14a935f496ad3e1..b4103acd28f8b172764a7f5b323bdd869873c472 100644 (file)
@@ -1026,7 +1026,7 @@ usage: (let* VARLIST BODY...)  */)
        {
          Lisp_Object newenv
            = Fcons (Fcons (var, val), Vinternal_interpreter_environment);
-         if (EQ (Vinternal_interpreter_environment, lexenv))
+         if (BASE_EQ (Vinternal_interpreter_environment, lexenv))
            /* Save the old lexical environment on the specpdl stack,
               but only for the first lexical binding, since we'll never
               need to revert to one of the intermediate ones.  */
@@ -1102,7 +1102,7 @@ usage: (let VARLIST BODY...)  */)
        specbind (var, tem);
     }
 
-  if (!EQ (lexenv, Vinternal_interpreter_environment))
+  if (!BASE_EQ (lexenv, Vinternal_interpreter_environment))
     /* Instantiate a new lexical environment.  */
     specbind (Qinternal_interpreter_environment, lexenv);
 
@@ -3320,7 +3320,7 @@ funcall_lambda (Lisp_Object fun, ptrdiff_t nargs, Lisp_Object *arg_vector)
   else if (i < nargs)
     xsignal2 (Qwrong_number_of_arguments, fun, make_fixnum (nargs));
 
-  if (!EQ (lexenv, Vinternal_interpreter_environment))
+  if (!BASE_EQ (lexenv, Vinternal_interpreter_environment))
     /* Instantiate a new lexical environment.  */
     specbind (Qinternal_interpreter_environment, lexenv);
 
@@ -3471,7 +3471,7 @@ let_shadows_buffer_binding_p (struct Lisp_Symbol *symbol)
        eassert (let_bound_symbol->u.s.redirect != SYMBOL_VARALIAS);
        if (symbol == let_bound_symbol
            && p->kind != SPECPDL_LET_LOCAL /* bug#62419 */
-           && EQ (specpdl_where (p), buf))
+           && BASE_EQ (specpdl_where (p), buf))
          return 1;
       }