bcomp.el.in

   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         @lisp_LISP@
  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"))