;; This sets up the various paths for continuing loading files for
;; dumping.
+;; #### This code is duplicated in startup.el (startup-setup-paths).
(let ((debug-paths (or debug-paths
(and (getenv "EMACSDEBUGPATHS")
(if debug-paths
(princ (format "lisp-directory:\n%S\n" lisp-directory)
'external-debugging-output))
+ (if (featurep 'mule)
+ (progn
+ (setq mule-lisp-directory
+ (paths-find-mule-lisp-directory roots
+ lisp-directory))
+ (if debug-paths
+ (princ (format "mule-lisp-directory:\n%S\n"
+ mule-lisp-directory)
+ 'external-debugging-output)))
+ (setq mule-lisp-directory '()))
+ (if (featurep 'utf-2000)
+ (progn
+ (setq utf-2000-lisp-directory
+ (paths-find-utf-2000-lisp-directory roots
+ lisp-directory))
+ (if debug-paths
+ (princ (format "utf-2000-lisp-directory:\n%S\n"
+ utf-2000-lisp-directory)
+ 'external-debugging-output)))
+ (setq utf-2000-lisp-directory '()))
(setq site-directory (and (null inhibit-site-lisp)
(paths-find-site-lisp-directory roots)))
(if (and debug-paths (null inhibit-site-lisp))
late-package-load-path
'()
lisp-directory
- site-directory))
+ site-directory
+ mule-lisp-directory
+ utf-2000-lisp-directory))
(setq module-directory (paths-find-module-directory roots))
(if debug-paths