[MMM] a lisp build file

[Tsirkin E. <ts...@ma...>]

Hi the list!
I use the mmm-mode on the ntemacs that is why i can't
'make' the mmm-mode .That made me to write a lisp make file
which i want to share with others in hope it will be usefull.
Using the file you can just type
emacs -q --no-site-file -batch -l mmm-comp.el
(assuming that you saved the code into mmm-comp.el)
and you are done . Here is the code:

;;emacs -q --no-site-file -batch -l mmm-comp.el
(require 'bytecomp)

;;(message "%S\n" command-line-args-left)


(let ((load-path (append '(".") load-path))
       (compile-file-list-1st '("mmm-auto.el"
			       "mmm-class.el"
			       "mmm-cmds.el"
			       "mmm-compat.el"
			       "mmm-mason.el"
			       "mmm-mode.el"
			       "mmm-region.el"
			       "mmm-rpm.el"
			       "mmm-univ.el"
			       "mmm-sample.el"
			       "mmm-utils.el"
			       "mmm-vars.el"))
        file)
(message "" compile-file-list-1st)

   (message "Remove old byte-compiled files-----")
   (mapcar
    (lambda (x)
      (setq file (concat
		 (file-name-sans-extension x)
		 ".elc"))
      (if (file-exists-p file)
	 (progn
	   (message "Remove %s" file)
	   (delete-file file)))
      nil)
     compile-file-list-1st)

   (message "Compiling -----")
   (mapcar
    (lambda (file)
      (save-excursion
        (byte-compile-file file)))
    compile-file-list-1st))
;;Actually the code is a modification of mucs-comp.el
;;from mule-ucs.el
;;Evgeny