Commit 49fec531 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent 0e328d37
2009-09-15 Stefan Monnier <>
* 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.
......@@ -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
(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)))
(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)))))))
(defun batch-byte-recompile-directory (&optional arg)
"Run `byte-recompile-directory' on the dirs remaining on the command line.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment