Mercurial > hg > xemacs-beta

comparison lisp/prim/update-elc.el @ 173:8eaf7971accc r20-3b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b13
author cvs
date Mon, 13 Aug 2007 09:49:09 +0200
parents 0132846995bd
children e121b013d1f0
comparison
equal deleted inserted replaced
172:a38aed19690b 173:8eaf7971accc
126 ;; (print (prin1-to-string update-elc-files-to-compile)) 126 ;; (print (prin1-to-string update-elc-files-to-compile))
127 127
128 (if update-elc-files-to-compile 128 (if update-elc-files-to-compile
129 (progn 129 (progn
130 (setq command-line-args 130 (setq command-line-args
131 ;; (cons (car command-line-args) 131 (append '("-l" "loadup-el.el" "run-temacs"
132 (append 132 "-batch" "-q" "-no-site-file"
133 '("-l" "loadup-el.el" "run-temacs" 133 "-l" "bytecomp" "-f" "batch-byte-compile")
134 "-batch" "-q" "-no-site-file" 134 update-elc-files-to-compile))
135 "-l" "bytecomp" "-f" "batch-byte-compile") 135 (load "loadup-el.el"))
136 update-elc-files-to-compile)) ;; ) 136 (condition-case nil
137 (load "loadup-el.el") 137 (delete-file "./NOBYTECOMPILE")
138 )) 138 (t nil)))
139 139
140 (kill-emacs) 140 (kill-emacs)
141 141
142 ;;; update-elc.el ends here 142 ;;; update-elc.el ends here