Mercurial > hg > xemacs-beta

comparison lisp/dump-paths.el @ 274:ca9a9ec9c1c1 r21-0b35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b35
author cvs
date Mon, 13 Aug 2007 10:29:42 +0200
parents c5d627a313b1
children 6330739388db
comparison
equal deleted inserted replaced
273:411aac7253ef 274:ca9a9ec9c1c1
30 ;; dumping. 30 ;; dumping.
31 31
32 (let ((roots (paths-find-emacs-roots invocation-directory 32 (let ((roots (paths-find-emacs-roots invocation-directory
33 invocation-name))) 33 invocation-name)))
34 34
35 (setq package-path (packages-find-package-path roots)) 35 (let ((stuff (packages-find-packages roots inhibit-package-init)))
36
37 (let ((stuff (packages-find-packages package-path inhibit-package-init)))
38 (setq late-packages (car (cdr stuff)))) 36 (setq late-packages (car (cdr stuff))))
39 37
40 (setq late-package-load-path (packages-find-package-load-path late-packages)) 38 (setq late-package-load-path (packages-find-package-load-path late-packages))
41 39
42 (setq load-path (paths-construct-load-path roots 40 (setq load-path (paths-construct-load-path roots