X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fdump-paths.el;h=b96c3cef075505d449d3d2c2ff6ea240cd6314d8;hb=66cd3621bffecf6208aefb78b0a388c9fc6717c8;hp=dd0dafa779c533ed269ab18311d5f16c851cfedd;hpb=c879e5b17b3d5fef34ab58fc66e1cbb4269e5bb4;p=sxemacs diff --git a/lisp/dump-paths.el b/lisp/dump-paths.el index dd0dafa..b96c3ce 100644 --- a/lisp/dump-paths.el +++ b/lisp/dump-paths.el @@ -36,7 +36,7 @@ (when debug-paths (princ (format "SXEmacs thinks the roots of its hierarchy are:\n%S\n" - roots))) + roots))) (let* ((package-locations (packages-compute-package-locations @@ -72,9 +72,9 @@ (setq mule-lisp-directory '())) (setq ffi-lisp-directory - (when (fboundp #'ffi-defun) - (paths-find-ffi-lisp-directory roots - lisp-directory))) + (when (fboundp #'ffi-defun) + (paths-find-ffi-lisp-directory roots + lisp-directory))) (setq load-path (paths-construct-load-path roots '() @@ -83,7 +83,7 @@ lisp-directory nil mule-lisp-directory - ffi-lisp-directory)) + ffi-lisp-directory)) (setq exec-directory (paths-find-exec-directory roots)) (if debug-paths