Mercurial > hg > xemacs-beta

comparison lisp/startup.el @ 274:ca9a9ec9c1c1 r21-0b35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b35
author cvs
date Mon, 13 Aug 2007 10:29:42 +0200
parents c5d627a313b1
children 6330739388db
comparison
equal deleted inserted replaced
273:411aac7253ef 274:ca9a9ec9c1c1
343 (when (getenv "EMACSLOADPATH") 343 (when (getenv "EMACSLOADPATH")
344 (princ (format "\n$EMACSLOADPATH is %s" (getenv "EMACSLOADPATH")) 344 (princ (format "\n$EMACSLOADPATH is %s" (getenv "EMACSLOADPATH"))
345 stream)) 345 stream))
346 (princ (format "\nexec-directory is %S" exec-directory) stream) 346 (princ (format "\nexec-directory is %S" exec-directory) stream)
347 (princ (format "\ndata-directory is %S" data-directory) stream) 347 (princ (format "\ndata-directory is %S" data-directory) stream)
348 (princ (format "\ndata-directory-list is %S" data-directory-list) stream)
348 (princ (format "\ndoc-directory is %S" doc-directory) stream) 349 (princ (format "\ndoc-directory is %S" doc-directory) stream)
349 (princ (format "\nload-path is %S" load-path) stream) 350 (princ (format "\nload-path is %S" load-path) stream)
350 (princ "\n\n" stream))) 351 (princ "\n\n" stream)))
351 (when (not suppress-early-error-handler-backtrace) 352 (when (not suppress-early-error-handler-backtrace)
352 (backtrace stream t))) 353 (backtrace stream t)))
1014 ROOTS is a list of plausible roots of the XEmacs directory hierarchy. 1015 ROOTS is a list of plausible roots of the XEmacs directory hierarchy.
1015 If INHIBIT-PACKAGES is non-NIL, don't do packages. 1016 If INHIBIT-PACKAGES is non-NIL, don't do packages.
1016 If INHIBIT-SITE-LISP is non-NIL, don't do site-lisp. 1017 If INHIBIT-SITE-LISP is non-NIL, don't do site-lisp.
1017 It's idempotent, so call this as often as you like!" 1018 It's idempotent, so call this as often as you like!"
1018 1019
1019 (setq package-path (packages-find-package-path roots))
1020
1021 (apply #'(lambda (early late last) 1020 (apply #'(lambda (early late last)
1022 (setq early-packages early) 1021 (setq early-packages early)
1023 (setq late-packages late) 1022 (setq late-packages late)
1024 (setq last-packages last)) 1023 (setq last-packages last))
1025 (packages-find-packages package-path inhibit-packages)) 1024 (packages-find-packages roots inhibit-packages))
1026 1025
1027 (setq early-package-load-path (packages-find-package-load-path early-packages)) 1026 (setq early-package-load-path (packages-find-package-load-path early-packages))
1028 (setq late-package-load-path (packages-find-package-load-path late-packages)) 1027 (setq late-package-load-path (packages-find-package-load-path late-packages))
1029 (setq last-package-load-path (packages-find-package-load-path last-packages)) 1028 (setq last-package-load-path (packages-find-package-load-path last-packages))
1030 1029