[AC21.5] Fix EMACSPACKAGEPATH

APPROVE COMMIT 21.5 This (hopefully) fixes a regression in 21.5 reported by Vin. 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. -- Cheers =8-} Mike Friede, Völkerverständigung und überhaupt blabla Index: lisp/packages.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/packages.el,v retrieving revision 1.54 diff -u -r1.54 packages.el --- lisp/packages.el 27 Dec 2005 18:51:15 -0000 1.54 +++ lisp/packages.el 30 Dec 2005 16:40:39 -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)