emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 082b431: * lisp/emacs-lisp/bytecomp.el: Fix minor regression intr


From: Stefan Monnier
Subject: master 082b431: * lisp/emacs-lisp/bytecomp.el: Fix minor regression introduced by pdump
Date: Sat, 27 Feb 2021 12:28:23 -0500 (EST)

branch: master
commit 082b431e62b5d1f835149874df95941268c8a763
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * lisp/emacs-lisp/bytecomp.el: Fix minor regression introduced by pdump
    
    After `rm **/*.elc; make` we'd sometimes get loads and loads of unnecessary
    "Reloading ...".
    
    (byte-compile-refresh-preloaded): Don't reload files that are more
    recent than `temacs` but older than the `.pdmp` file.
---
 lisp/emacs-lisp/bytecomp.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index f859795..a2fe37a 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -5225,8 +5225,9 @@ already up-to-date."
   "Reload any Lisp file that was changed since Emacs was dumped.
 Use with caution."
   (let* ((argv0 (car command-line-args))
-         (emacs-file (executable-find argv0)))
-    (if (not (and emacs-file (file-executable-p emacs-file)))
+         (emacs-file (or (cdr (nth 2 (pdumper-stats)))
+                         (executable-find argv0))))
+    (if (not (and emacs-file (file-exists-p emacs-file)))
         (message "Can't find %s to refresh preloaded Lisp files" argv0)
       (dolist (f (reverse load-history))
         (setq f (car f))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]