projects
/
chise
/
xemacs-chise.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(C7-2B43): Add `ideographic-strokes'.
[chise/xemacs-chise.git]
/
lisp
/
dump-paths.el
diff --git
a/lisp/dump-paths.el
b/lisp/dump-paths.el
index
10117d5
..
9381a0c
100644
(file)
--- 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 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")
(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)))
(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))
(setq late-packages (car (cdr stuff))))
(setq late-package-load-path (packages-find-package-load-path late-packages))