CVS update by michaels xemacs/lisp ...
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>
* 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>
+
+ * 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>
* 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)