mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00
Code Issues Releases Activity

; Avoid assertion violations in "temacs -Q"

Browse Source 
* src/lread.c (build_load_history): Use Fequal to compare strings.
This commit is contained in:
Eli Zaretskii 2024-11-18 20:54:15 +02:00
parent 8dc9dfdc38
commit 9c484d5101
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/lread.c
View File

@ -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. */