(princ (format "XEmacs thinks the roots of its hierarchy are:\n%S\n"
roots)))
- (let ((stuff (packages-find-packages roots)))
+ (let* ((package-locations
+ (packages-compute-package-locations
+ ;; temporary kludge:
+ ;; this should be synched with startup.el
+ (paths-construct-path '("~" ".xemacs"))))
+ (stuff (packages-find-packages roots package-locations)))
(setq late-packages (car (cdr stuff))))
(setq late-package-load-path (packages-find-package-load-path late-packages))
late-package-load-path
'()
lisp-directory
- site-directory)))
+ site-directory))
+
+ (setq module-directory (paths-find-module-directory roots))
+ (if debug-paths
+ (princ (format "module-directory:\n%S\n" module-directory)
+ 'external-debugging-output))
+ (setq site-module-directory (and (null inhibit-site-modules)
+ (paths-find-site-module-directory roots)))
+ (if (and debug-paths (null inhibit-site-modules))
+ (princ (format "site-module-directory:\n%S\n" site-module-directory)
+ 'external-debugging-output))
+
+ (setq module-load-path (paths-construct-module-load-path roots
+ module-directory
+ site-module-directory)))
;;; dump-paths.el ends here