X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fdump-paths.el;h=9381a0c08b25e19d88e05f7424c79cbc0b5e22cb;hb=d72573f8f94bf9faf9f5a67ddd5ee5fa8549a17f;hp=10117d5f5112690f6426c086bd6b15a0b06f2689;hpb=a5f466de30a3e927ed1146b0c7e3870e71465c8f;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/dump-paths.el b/lisp/dump-paths.el
index 10117d5..9381a0c 100644
--- a/lisp/dump-paths.el
+++ b/lisp/dump-paths.el
@@ -28,6 +28,7 @@
 
 ;; This sets up the various paths for continuing loading files for
 ;; dumping.
+;; #### This code is duplicated in startup.el (startup-setup-paths).
 
 (let ((debug-paths (or debug-paths
 		      (and (getenv "EMACSDEBUGPATHS")
@@ -39,7 +40,12 @@
       (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))