OSDN Git Service

delete obsolete CVS keywords "$Id"
[howm/howm.git] / 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"))