Mercurial > hg > xemacs-beta

diff lisp/setup-paths.el @ 308:33bdb3d4b97f r21-0b52

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b52
author cvs
date Mon, 13 Aug 2007 10:42:44 +0200
parents 558f606b08ae
children 182f72e8cd0d
line wrap: on
line diff
--- a/lisp/setup-paths.el	Mon Aug 13 10:41:59 2007 +0200
+++ b/lisp/setup-paths.el	Mon Aug 13 10:42:44 2007 +0200
@@ -137,12 +137,12 @@
 	 (paths-decode-directory-path path-envval 'drop-empties)))
    (packages-find-package-exec-path early-packages)
    (packages-find-package-exec-path late-packages)
-   (packages-find-package-exec-path last-packages)
    (let ((emacspath-envval (getenv "EMACSPATH")))
      (and emacspath-envval
 	  (split-path emacspath-envval)))
    (and exec-directory
-	(list exec-directory))))
+	(list exec-directory))
+   (packages-find-package-exec-path last-packages)))
 
 (defun paths-find-data-directory (roots)
   "Find the data directory."
@@ -154,7 +154,7 @@
   (append
    (packages-find-package-data-path early-packages)
    (packages-find-package-data-path late-packages)
-   (packages-find-package-data-path last-packages)
-   (list data-directory)))
+   (list data-directory)
+   (packages-find-package-data-path last-packages)))
 
 ;;; setup-paths.el ends here