Mercurial > hg > xemacs-beta

comparison lisp/prim/update-elc.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 0293115a14e9
children c7528f8e288d
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
10 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 10 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
11 ;; General Public License for more details. 11 ;; General Public License for more details.
12 12
13 ;; You should have received a copy of the GNU General Public License 13 ;; You should have received a copy of the GNU General Public License
14 ;; along with XEmacs; see the file COPYING. If not, write to the 14 ;; along with XEmacs; see the file COPYING. If not, write to the
15 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 15 ;; Free Software Foundation, 59 Temple Place - Suite 330,
16 ;; Boston, MA 02111-1307, USA. 16 ;; Boston, MA 02111-1307, USA.
17 17
18 ;;; Synched up with: Not in FSF. 18 ;;; Synched up with: Not in FSF.
19 19
20 ;; Byte compile the .EL files necessary to dump out xemacs. 20 ;; Byte compile the .EL files necessary to dump out xemacs.
46 46
47 (if update-elc-files-to-compile 47 (if update-elc-files-to-compile
48 (progn 48 (progn
49 (setq command-line-args 49 (setq command-line-args
50 (cons (car command-line-args) 50 (cons (car command-line-args)
51 (append 51 (append '("-l" "loadup-el.el" "run-temacs"
52 '("-l" "loadup-el.el" "run-temacs" 52 "-batch" "-q" "-no-site-file" "-f"
53 "-batch" "-q" "-no-site-file" 53 "batch-byte-compile")
54 "-l" "bytecomp" "-f" "batch-byte-compile") 54 update-elc-files-to-compile)))
55 update-elc-files-to-compile)))
56 (load "loadup-el.el"))) 55 (load "loadup-el.el")))
57 56
58 (kill-emacs) 57 (kill-emacs)