From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 15 Sep 2009 04:03:35 +0000 (+0000)
Subject: (byte-compile-refresh-preloaded): New function.
X-Git-Tag: emacs-pretest-23.1.90~1307
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=49fec531419726f3fd297f35ec1039bd1f7f0eda;p=emacs.git

(byte-compile-refresh-preloaded): New function.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index df7f76399fd..595f88462bf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2009-09-15  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* emacs-lisp/bytecomp.el (byte-compile-refresh-preloaded): New function.
+
 	* loadup.el: Use after-load-functions to GC after loading each file.
 	Remove the explicit GC calls that used to be sprinkled around.
 
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 60341974c5d..12052f7b4c6 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -4103,7 +4103,8 @@ that suppresses all warnings during execution of BODY."
     (byte-compile-form (cons 'progn (cdr form)))))
 
 ;; Warn about misuses of make-variable-buffer-local.
-(byte-defop-compiler-1 make-variable-buffer-local byte-compile-make-variable-buffer-local)
+(byte-defop-compiler-1 make-variable-buffer-local
+                       byte-compile-make-variable-buffer-local)
 (defun byte-compile-make-variable-buffer-local (form)
   (if (and (eq (car-safe (car-safe (cdr-safe form))) 'quote)
            (byte-compile-warning-enabled-p 'make-local))
@@ -4393,6 +4394,26 @@ already up-to-date."
 		(prin1-to-string (cdr err)))
        nil))))
 
+;;;###autoload
+(defun byte-compile-refresh-preloaded ()
+  "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)))
+        (message "Can't find %s to refresh preloaded Lisp files" argv0)
+      (dolist (f (reverse load-history))
+        (setq f (car f))
+        (if (string-match "elc\\'" f) (setq f (substring f 0 -1)))
+        (when (and (file-readable-p f)
+                   (file-newer-than-file-p f emacs-file))
+          (message "Reloading stale %s" (file-name-nondirectory f))
+          (condition-case nil
+              (load f 'noerror nil 'nosuffix)
+            ;; Probably shouldn't happen, but in case of an error, it seems
+            ;; at least as useful to ignore it as it is to stop compilation.
+            (error nil)))))))
+
 ;;;###autoload
 (defun batch-byte-recompile-directory (&optional arg)
   "Run `byte-recompile-directory' on the dirs remaining on the command line.