# HG changeset patch # User michaels # Date 1135960956 0 # Node ID 072ccc89ac3c03e20b407b93d97963b118d92be6 # Parent 69ec6385a01a0b2dedfdc6f34f64bf5ce6d3f1c2 [xemacs-hg @ 2005-12-30 16:42:35 by michaels] 2005-12-30 Mike Sperber * packages.el (packages-find-all-package-hierarchies): Interpret EMACSPACKAGEPATH as listing package direcories, not hierarchies. This fixes a regression introduced in the change on 2005-01-08. diff -r 69ec6385a01a -r 072ccc89ac3c lisp/ChangeLog --- a/lisp/ChangeLog Thu Dec 29 22:51:18 2005 +0000 +++ b/lisp/ChangeLog Fri Dec 30 16:42:36 2005 +0000 @@ -1,3 +1,9 @@ +2005-12-30 Mike Sperber + + * packages.el (packages-find-all-package-hierarchies): Interpret + EMACSPACKAGEPATH as listing package direcories, not hierarchies. + This fixes a regression introduced in the change on 2005-01-08. + 2005-11-25 Mike Sperber * packages.el (packages-find-package-hierarchies-named): Use diff -r 69ec6385a01a -r 072ccc89ac3c lisp/packages.el --- a/lisp/packages.el Thu Dec 29 22:51:18 2005 +0000 +++ b/lisp/packages.el Fri Dec 30 16:42:36 2005 +0000 @@ -423,10 +423,22 @@ (let ((envvar-value (getenv "EMACSPACKAGEPATH"))) (cond (envvar-value - (packages-split-package-path (paths-decode-directory-path envvar-value))) + (packages-deconstruct + (packages-split-package-path (paths-decode-directory-path envvar-value)) + ;; we get package *directories* + #'(lambda (early late last) + (list + (packages-find-package-hierarchies early + "EMACSEARLYPACKAGES") + (packages-find-package-hierarchies late + "EMACSLATEPACKAGES") + (packages-find-package-hierarchies last + "EMACSLATEPACKAGES"))))) + ;; --with-package-path is also a historical kludge (configure-package-path (packages-deconstruct (packages-split-package-path configure-package-path) + ;; we get package *hierarchies* #'(lambda (early late last) (list (packages-find-package-hierarchies (list user-init-directory)