Mercurial > hg > xemacs-beta

comparison lisp/make-docfile.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 a634e3b7acc8
children 465bd3c7d932
comparison
equal deleted inserted replaced
1226:440b3dcb60ed 1227:5636ae1c0234
110 (if (null arg) 110 (if (null arg)
111 (progn 111 (progn
112 (princ (format "Error: dumped file %s does not exist\n" arg0)) 112 (princ (format "Error: dumped file %s does not exist\n" arg0))
113 ;; Uncomment in case of difficulties 113 ;; Uncomment in case of difficulties
114 ;;(print (format "late-packages: %S" late-packages)) 114 ;;(print (format "late-packages: %S" late-packages))
115 ;;(print (format "guessed-roots: %S" (paths-find-emacs-roots invocation-directory invocation-name))) 115 ;;(print (format "guessed-roots: %S" (paths-find-emacs-roots invocation-directory invocation-name #'paths-emacs-root-p)))
116 ;;(print (format "guessed-data-roots: %S" (paths-find-emacs-roots invocation-directory invocation-name #'paths-emacs-data-root-p)))
116 ) 117 )
117 (if (null (member arg processed)) 118 (if (null (member arg processed))
118 (progn 119 (progn
119 (if (and (null docfile-out-of-date) 120 (if (and (null docfile-out-of-date)
120 (file-newer-than-file-p arg docfile)) 121 (file-newer-than-file-p arg docfile))