Mercurial > hg > xemacs-beta

comparison lisp/loadup.el @ 1227:5636ae1c0234

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
comparison
equal deleted inserted replaced
1226:440b3dcb60ed 1227:5636ae1c0234
122 (garbage-collect))) 122 (garbage-collect)))
123 (external-debugging-output (format "\nLoad file %s: not found\n" 123 (external-debugging-output (format "\nLoad file %s: not found\n"
124 file)) 124 file))
125 ;; Uncomment in case of trouble 125 ;; Uncomment in case of trouble
126 ;;(print (format "late-packages: %S" late-packages)) 126 ;;(print (format "late-packages: %S" late-packages))
127 ;;(print (format "guessed-roots: %S" (paths-find-emacs-roots invocation-directory invocation-name))) 127 ;;(print (format "guessed-roots: %S" (paths-find-emacs-roots invocation-directory invocation-name #'paths-emacs-root-p)))
128 ;;(print (format "guessed-data-roots: %S" (paths-find-emacs-roots invocation-directory invocation-name #'paths-emacs-data-root-p)))
128 nil))) 129 nil)))
129 130
130 (load (expand-file-name "../lisp/dumped-lisp.el")) 131 (load (expand-file-name "../lisp/dumped-lisp.el"))
131 132
132 (let ((files preloaded-file-list) 133 (let ((files preloaded-file-list)