User: michaels Date: 05/12/30 17:42:38 Modified: xemacs/lisp ChangeLog packages.el Log: 2005-12-30 Mike Sperber <mike(a)xemacs.org&gt; * 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. Revision Changes Path 1.718 +6 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.717 retrieving revision 1.718 diff -u -p -r1.717 -r1.718 --- ChangeLog 2005/12/27 18:51:14 1.717 +++ ChangeLog 2005/12/30 16:42:35 1.718 ＠＠ -1,3 +1,9 ＠＠ +2005-12-30 Mike Sperber <mike(a)xemacs.org&gt; + + * 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 <mike(a)xemacs.org&gt; * packages.el (packages-find-package-hierarchies-named): Use 1.55 +13 -1 XEmacs/xemacs/lisp/packages.el Index: packages.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/packages.el,v retrieving revision 1.54 retrieving revision 1.55 diff -u -p -r1.54 -r1.55 --- packages.el 2005/12/27 18:51:15 1.54 +++ packages.el 2005/12/30 16:42:36 1.55 ＠＠ -423,10 +423,22 ＠＠ list of the last hierarchies." (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)