Mercurial > hg > xemacs-beta
diff lisp/make-docfile.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 | a634e3b7acc8 |
| children | 465bd3c7d932 |
line wrap: on
line diff
--- a/lisp/make-docfile.el Tue Jan 21 22:52:39 2003 +0000 +++ b/lisp/make-docfile.el Wed Jan 22 20:31:52 2003 +0000 @@ -112,7 +112,8 @@ (princ (format "Error: dumped file %s does not exist\n" arg0)) ;; Uncomment in case of difficulties ;;(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))) ) (if (null (member arg processed)) (progn