Mercurial > hg > xemacs-beta

comparison lisp/update-elc.el @ 278:90d73dddcdc4 r21-0b37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b37
author cvs
date Mon, 13 Aug 2007 10:31:29 +0200
parents 6330739388db
children 558f606b08ae
comparison
equal deleted inserted replaced
277:cfdf3ff11843 278:90d73dddcdc4
79 (file-newer-than-file-p src (concat src "c"))) 79 (file-newer-than-file-p src (concat src "c")))
80 (setq update-elc-files-to-compile 80 (setq update-elc-files-to-compile
81 (cons src update-elc-files-to-compile)))) 81 (cons src update-elc-files-to-compile))))
82 (setq autol (cdr autol)))) 82 (setq autol (cdr autol))))
83 83
84 ;; We must have some lisp support at this point
85 (let ((temp-path (expand-file-name "." (car load-path))))
86 (setq load-path (nconc (directory-files temp-path t "^[^-.]"
87 nil 'dirs-only)
88 (cons temp-path load-path))))
89
90 ;; (print (prin1-to-string update-elc-files-to-compile)) 84 ;; (print (prin1-to-string update-elc-files-to-compile))
91 85
92 (let (preloaded-file-list site-load-packages) 86 (let (preloaded-file-list site-load-packages)
93 (load (concat default-directory "../lisp/dumped-lisp.el")) 87 (load (concat default-directory "../lisp/dumped-lisp.el"))
94 88