Mercurial > hg > xemacs-beta

comparison lisp/dump-paths.el @ 276:6330739388db r21-0b36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b36
author cvs
date Mon, 13 Aug 2007 10:30:37 +0200
parents ca9a9ec9c1c1
children aabb7f5b1c81
comparison
equal deleted inserted replaced
275:a68ae4439f57 276:6330739388db
27 ;;; Commentary: 27 ;;; Commentary:
28 28
29 ;; This sets up the various paths for continuing loading files for 29 ;; This sets up the various paths for continuing loading files for
30 ;; dumping. 30 ;; dumping.
31 31
32 (let ((roots (paths-find-emacs-roots invocation-directory 32 (let ((debug-paths (or debug-paths
33 (and (getenv "EMACSDEBUGPATHS")
34 t)))
35 (roots (paths-find-emacs-roots invocation-directory
33 invocation-name))) 36 invocation-name)))
34 37
35 (let ((stuff (packages-find-packages roots inhibit-package-init))) 38 (if debug-paths
39 (princ (format "XEmacs thinks the roots of its hierarchy are:\n%S\n"
40 roots)))
41
42 (let ((stuff (packages-find-packages roots)))
36 (setq late-packages (car (cdr stuff)))) 43 (setq late-packages (car (cdr stuff))))
37 44
38 (setq late-package-load-path (packages-find-package-load-path late-packages)) 45 (setq late-package-load-path (packages-find-package-load-path late-packages))
46
47 (if debug-paths
48 (progn
49 (princ (format "configure-package-path:\n%S\n" configure-package-path)
50 'external-debugging-output)
51 (princ (format "late-packages and late-package-load-path:\n%S\n%S\n"
52 late-packages late-package-load-path)
53 'external-debugging-output)))
54
55 (setq lisp-directory (paths-find-lisp-directory roots))
56 (if debug-paths
57 (princ (format "lisp-directory:\n%S\n" lisp-directory)
58 'external-debugging-output))
59 (setq site-directory (and (null inhibit-site-lisp)
60 (paths-find-site-lisp-directory roots)))
61 (if (and debug-paths (null inhibit-site-lisp))
62 (princ (format "site-directory:\n%S\n" site-directory)
63 'external-debugging-output))
39 64
40 (setq load-path (paths-construct-load-path roots 65 (setq load-path (paths-construct-load-path roots
41 '() 66 '()
42 late-package-load-path 67 late-package-load-path
43 '() 68 '()
44 inhibit-site-lisp))) 69 lisp-directory
70 site-directory)))
45 71
46 ;;; dump-paths.el ends here 72 ;;; dump-paths.el ends here