bcomp.el

   1 ;;; -*- Emacs-Lisp -*-
   2 (require 'cl)
   3
   4 (setq bcomp-files
   5       '(
   6         "howm.el" "howm-menu.el" "howm-reminder.el" "howm-date.el" "howm-misc.el" "howm-mode.el" "howm-view.el" "howm-backend.el" "howm-common.el" "howm-vars.el" "howm-lang-en.el" "howm-lang-fr.el" "howm-lang-ja.el" "howm-menu-en.el" "howm-menu-fr.el" "howm-menu-ja.el" "honest-report.el" "action-lock.el" "riffle.el" "gfunc.el" "illusion.el" "cheat-font-lock.el"
   7         ))
   8
   9 (let* ((dir (expand-file-name default-directory))
  10        (load-path (cons dir load-path))
  11        file)
  12   (message "deleting old .elc files...")
  13   (dolist (elt bcomp-files)
  14     (setq file (concat dir elt "c"))
  15     (if (file-exists-p file)
  16         (delete-file file)))
  17
  18   (message "compiling...")
  19   (dolist (elt bcomp-files)
  20     (setq file (concat dir elt))
  21     (byte-compile-file file t))
  22
  23   (message "done"))