bcomp.el

   1 ;;; -*- Emacs-Lisp -*-
   2 (require 'cl)
   3
   4 (when (featurep 'xemacs)
   5   (setq log-warning-minimum-level 'info)
   6   (setenv "XEMACSDEBUG" nil))
   7
   8 (setq bcomp-files
   9       '(
  10         "navi2ch-version.el" "navi2ch-vars.el" "navi2ch-face.el" "navi2ch-util.el" "navi2ch-net.el" "navi2ch-list.el" "navi2ch-article.el" "navi2ch-popup-article.el" "navi2ch-board-misc.el" "navi2ch-board.el" "navi2ch-articles.el" "navi2ch-bookmark.el" "navi2ch-history.el" "navi2ch-search.el" "navi2ch-message.el" "navi2ch.el" "navi2ch-head.el" "navi2ch-mona.el" "navi2ch-e21.el" "navi2ch-xmas.el" "navi2ch-splash.el" "navi2ch-directory.el" "navi2ch-be2ch.el" "navi2ch-multibbs.el" "navi2ch-jbbs-net.el" "navi2ch-jbbs-shitaraba.el" "navi2ch-machibbs.el" "navi2ch-futaba.el" "navi2ch-megabbs.el" "navi2ch-http-date.el" "navi2ch-localfile.el" "navi2ch-oyster.el" "navi2ch-auto-modify.el" "navi2ch-p2.el" "navi2ch-thumbnail.el"
  11         ))
  12
  13 (let* ((dir (expand-file-name default-directory))
  14        (load-path (cons dir load-path))
  15        file)
  16   (message "deleting old .elc files...")
  17   (dolist (elt bcomp-files)
  18     (setq file (concat dir elt "c"))
  19     (when (file-exists-p file)
  20       (delete-file file)))
  21   (message "compiling...")
  22   (dolist (elt bcomp-files)
  23     (setq file (concat dir elt))
  24     (let ((coding-system-for-read 'iso-2022-7bit))
  25       (byte-compile-file file t)))
  26   (message "done"))