Mercurial > hg > xemacs-beta
diff lisp/loadup.el @ 1227:5636ae1c0234
[xemacs-hg @ 2003-01-22 20:31:52 by michaels]
2003-01-19 Mike Sperber <mike@xemacs.org>
* startup.el (normal-top-level): Compute `emacs-data-roots.' Call
`startup-setup-paths' with data-roots argument.
(emacs-data-roots): Add.
* dump-paths.el: Call `startup-setup-paths' with
data-roots argument.
(startup-setup-paths): Use `data-roots' instead of `roots' to find
packages.
Call `paths-find-emacs-roots' with `root-p' argument.
* make-docfile.el: Call `paths-find-emacs-roots' with `root-p' argument.
* find-paths.el (paths-emacs-data-root-p): Add.
(paths-find-emacs-roots): Parmeterize over `root-p.'
| author | michaels |
|---|---|
| date | Wed, 22 Jan 2003 20:31:52 +0000 |
| parents | 0784d089fdc9 |
| children | 465bd3c7d932 |
line wrap: on
line diff
--- a/lisp/loadup.el Tue Jan 21 22:52:39 2003 +0000 +++ b/lisp/loadup.el Wed Jan 22 20:31:52 2003 +0000 @@ -124,7 +124,8 @@ file)) ;; Uncomment in case of trouble ;;(print (format "late-packages: %S" late-packages)) - ;;(print (format "guessed-roots: %S" (paths-find-emacs-roots invocation-directory invocation-name))) + ;;(print (format "guessed-roots: %S" (paths-find-emacs-roots invocation-directory invocation-name #'paths-emacs-root-p))) + ;;(print (format "guessed-data-roots: %S" (paths-find-emacs-roots invocation-directory invocation-name #'paths-emacs-data-root-p))) nil))) (load (expand-file-name "../lisp/dumped-lisp.el"))