You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

27 lines
781 B

(defun recompile-stale-elcs ()
(setq-local default-directory user-emacs-directory)
(let ((find-command (find-cmd '(prune (name ".git"))
'(name "*.elc"))))
(shell-command find-command t t))
(goto-char (point-min))
(setq more-lines t)
(while more-lines
(let ((start (progn (beginning-of-line)
(end (progn (end-of-line)
(let ((el (buffer-substring start (- end 1)))
(elc (buffer-substring start end)))
(if (file-newer-than-file-p el elc)
(byte-compile-file (buffer-substring start (- end 1))))))
(setq more-lines (= 0 (forward-line 1))))))