X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fdump-paths.el;h=780f3addc4c5d9e4352d33e1322e84f9d479d838;hb=6abf61674bea356678ec8727a0e7f14e97c822de;hp=10117d5f5112690f6426c086bd6b15a0b06f2689;hpb=a5f466de30a3e927ed1146b0c7e3870e71465c8f;p=chise%2Fxemacs-chise.git- diff --git a/lisp/dump-paths.el b/lisp/dump-paths.el index 10117d5..780f3ad 100644 --- a/lisp/dump-paths.el +++ b/lisp/dump-paths.el @@ -39,7 +39,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))