Mercurial > hg > xemacs-beta

diff lisp/package-get.el @ 3179:15139dbf89f4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-12-27 18:50:47 by michaels] This: 2005-11-25 Mike Sperber <mike@xemacs.org> * CHANGES-beta: * configure.ac: Zap --with-package-prefix; instead, add --with-user-packages/--with-early-packages, --with-system-packages/--with-late-packages, and --with-legacy-packages/--with-last-packages. ... and the changes that result from it throughout the code.
author michaels
date Tue, 27 Dec 2005 18:51:30 +0000
parents 66c42fc5d26b
children 65264c66457b
line wrap: on
line diff
--- a/lisp/package-get.el	Mon Dec 26 22:50:50 2005 +0000
+++ b/lisp/package-get.el	Tue Dec 27 18:51:30 2005 +0000
@@ -171,7 +171,16 @@
 
 ;;;###autoload
 (defcustom package-get-package-index-file-location 
-  (car (split-path (or (getenv "EMACSPACKAGEPATH") user-init-directory)))
+  (cond
+   ;; historical backage
+   ((getenv "EMACSPACKAGEPATH") 
+    (split-path (getenv "EMACSPACKAGEPATH")))
+   ((getenv "EMACSEARLYPACKAGES")
+    (split-path (getenv "EMACSEARLYPACKAGES")))
+   (configure-early-package-directories
+    (car configure-early-package-directories))
+   (t
+    user-init-directory))
   "*The directory where the package-index file can be found."
   :type 'directory
   :group 'package-get)