From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 18 Nov 2024 18:54:15 +0000 (+0200)
Subject: ; Avoid assertion violations in "temacs -Q"
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~262
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=9c484d510121e0d545f952bc016586ead61d3f10;p=emacs.git

; Avoid assertion violations in "temacs -Q"

* src/lread.c (build_load_history): Use Fequal to compare strings.
---

diff --git a/src/lread.c b/src/lread.c
index 854aaa784ad..c4d8d706872 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2313,7 +2313,7 @@ build_load_history (Lisp_Object filename, bool entire)
   if (entire || !foundit)
     {
       Lisp_Object tem = Fnreverse (Vcurrent_load_list);
-      eassert (EQ (filename, Fcar (tem)));
+      eassert (!NILP (Fequal (filename, Fcar (tem))));
       Vload_history = Fcons (tem, Vload_history);
       /* FIXME: There should be an unbind_to right after calling us which
          should re-establish the previous value of Vcurrent_load_list.  */