Mercurial > hg > xemacs-beta

comparison lisp/packages.el @ 3184:072ccc89ac3c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-12-30 16:42:35 by michaels] 2005-12-30 Mike Sperber <mike@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.
author michaels
date Fri, 30 Dec 2005 16:42:36 +0000
parents 15139dbf89f4
children 9c0151d05116
comparison
equal deleted inserted replaced
3183:69ec6385a01a 3184:072ccc89ac3c
421 list of the last hierarchies." 421 list of the last hierarchies."
422 ;; EMACSPACKAGEPATH is a historical kludge 422 ;; EMACSPACKAGEPATH is a historical kludge
423 (let ((envvar-value (getenv "EMACSPACKAGEPATH"))) 423 (let ((envvar-value (getenv "EMACSPACKAGEPATH")))
424 (cond 424 (cond
425 (envvar-value 425 (envvar-value
426 (packages-split-package-path (paths-decode-directory-path envvar-value))) 426 (packages-deconstruct
427 (packages-split-package-path (paths-decode-directory-path envvar-value))
428 ;; we get package *directories*
429 #'(lambda (early late last)
430 (list
431 (packages-find-package-hierarchies early
432 "EMACSEARLYPACKAGES")
433 (packages-find-package-hierarchies late
434 "EMACSLATEPACKAGES")
435 (packages-find-package-hierarchies last
436 "EMACSLATEPACKAGES")))))
437 ;; --with-package-path is also a historical kludge
427 (configure-package-path 438 (configure-package-path
428 (packages-deconstruct 439 (packages-deconstruct
429 (packages-split-package-path configure-package-path) 440 (packages-split-package-path configure-package-path)
441 ;; we get package *hierarchies*
430 #'(lambda (early late last) 442 #'(lambda (early late last)
431 (list 443 (list
432 (packages-find-package-hierarchies (list user-init-directory) 444 (packages-find-package-hierarchies (list user-init-directory)
433 "EMACSEARLYPACKAGES" 445 "EMACSEARLYPACKAGES"
434 early) 446 early)