diff options
author | Tom Willemsen | 2011-04-14 20:48:36 +0200 |
---|---|---|
committer | Tom Willemsen | 2011-04-14 20:49:49 +0200 |
commit | d2ce5467c31ea4b505c1414307fdf374ab53f550 (patch) | |
tree | d8ebc8d6b45fa203a0aeeede8409b4685c80c035 /emacs | |
parent | 93ba50adafe2de70c16f4ca4b8db86d25bbe7a4f (diff) | |
download | dotfiles-d2ce5467c31ea4b505c1414307fdf374ab53f550.tar.gz dotfiles-d2ce5467c31ea4b505c1414307fdf374ab53f550.zip |
Bytecompile
Byte-compile and recompile all modules in .emacs.d and .emacs.d/elisp
Diffstat (limited to 'emacs')
-rw-r--r-- | emacs | 28 |
1 files changed, 21 insertions, 7 deletions
@@ -1,14 +1,28 @@ ;; -*- mode: Emacs-Lisp; -*- (setq load-dir "~/.emacs.d/") -(setq myfiles (directory-files load-dir nil "^[0-9]\\{2\\}-\.*el$")) +(setq elisp-dir (concat load-dir "elisp/")) -(while myfiles - (let ((myfilename (concat load-dir (car myfiles)))) - (if (not (file-exists-p (concat myfilename "c"))) - (byte-compile-file myfilename)) - (load (substring myfilename 0 (- (length myfilename) 3))) - (setq myfiles (cdr myfiles)))) +(setq my-elisp-files + (directory-files elisp-dir nil "\\.el$")) +(setq my-files (directory-files load-dir nil "^[0-9]\\{2\\}-\.*el$")) + +;; Compile 3rd party elisp files +(byte-recompile-directory elisp-dir) +(while my-elisp-files + (let ((my-elisp-file-name (concat elisp-dir (car my-elisp-files)))) + (if (not (file-exists-p (concat my-elisp-file-name "c"))) + (byte-compile-file my-elisp-file-name)) + (setq my-elisp-files (cdr my-elisp-files)))) + +;; Compile my elisp files +(byte-recompile-directory load-dir) +(while my-files + (let ((my-file-name (concat load-dir (car my-files)))) + (if (not (file-exists-p (concat my-file-name "c"))) + (byte-compile-file my-file-name)) + (load (substring my-file-name 0 (- (length my-file-name) 3))) + (setq my-files (cdr my-files)))) (add-to-list 'compilation-finish-functions 'my-comp-finish-function) |