Mercurial > hg > xemacs-beta

comparison lisp/packages.el @ 2481:505a24c07ba9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-01-15 15:17:32 by michaels] 2005-01-08 Mike Sperber <mike@xemacs.org> * packages.el (packages-find-installation-package-directories): Add. * find-paths.el (paths-for-each-emacs-directory): Abstract FUNC parameter out of `paths-find-emacs-directory'. (paths-find-emacs-directories): Add. (paths-find-emacs-directory): Redefine in terms of `paths-for-each-emacs-directory'. (paths-for-each-site-directory): Add. (paths-find-site-directory): Redefine in terms of `paths-for-each-site-directory'. (paths-find-site-directories): Add. (paths-for-each-version-directory): Add. (paths-find-version-directory): Redefine in terms of `paths-for-each-version-directory'. (paths-find-version-directories): Add.
author michaels
date Sat, 15 Jan 2005 15:17:36 +0000
parents f4e405a9d18d
children 8dc793d1d990
comparison
equal deleted inserted replaced
2480:6acae43a57f1 2481:505a24c07ba9
374 (apply consumer list)) 374 (apply consumer list))
375 375
376 (defun packages-find-installation-package-directories (roots) 376 (defun packages-find-installation-package-directories (roots)
377 "Find the package directories in the XEmacs installation. 377 "Find the package directories in the XEmacs installation.
378 ROOTS is a list of installation roots." 378 ROOTS is a list of installation roots."
379 (let ((version-directory (paths-find-version-directory roots "" nil nil t)) 379 (paths-uniq-append (paths-find-version-directories roots "" nil nil t)
380 (site-directory (paths-find-site-directory roots ""))) 380 (paths-find-site-directories roots "")))
381 (paths-uniq-append
382 (and version-directory (list version-directory))
383 (and site-directory (list site-directory)))))
384 381
385 (defun packages-find-package-hierarchies (package-directories &optional default) 382 (defun packages-find-package-hierarchies (package-directories &optional default)
386 "Find package hierarchies in a list of package directories. 383 "Find package hierarchies in a list of package directories.
387 PACKAGE-DIRECTORIES is a list of package directories. 384 PACKAGE-DIRECTORIES is a list of package directories.
388 DEFAULT is a default list of package hierarchies." 385 DEFAULT is a default list of package hierarchies."