Mercurial > hg > xemacs-beta

comparison lisp/packages.el @ 4108:5da4cc7d5968

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-08-09 06:22:51 by michaels] 2007-08-07 Mike Sperber <mike@xemacs.org> * setup-paths.el (paths-find-doc-directory): (paths-find-exec-directory): (paths-find-lisp-directory): (paths-find-mule-lisp-directory): (paths-construct-info-path): (paths-find-data-directory): * packages.el (packages-find-installation-package-directories): * find-paths.el (paths-for-each-emacs-directory): (paths-find-emacs-directories): (paths-find-emacs-directory): (paths-for-each-site-directory): (paths-find-site-directory): (paths-find-site-directories): (paths-for-each-version-directory): (paths-find-version-directories): (paths-find-version-directory): Generalize to multiple bases. (paths-find-architecture-directory): Use above to give roots precedence over bases. This means, for example, that a directory in an in-place root will always get precedence over an installed root.
author michaels
date Thu, 09 Aug 2007 06:22:53 +0000
parents 9c0151d05116
children 9c6ea1581159
comparison
equal deleted inserted replaced
4107:d3a3bc2726d6 4108:5da4cc7d5968
384 (apply consumer list)) 384 (apply consumer list))
385 385
386 (defun packages-find-installation-package-directories (roots) 386 (defun packages-find-installation-package-directories (roots)
387 "Find the package directories in the XEmacs installation. 387 "Find the package directories in the XEmacs installation.
388 ROOTS is a list of installation roots." 388 ROOTS is a list of installation roots."
389 (paths-uniq-append (paths-find-version-directories roots "" nil nil nil t) 389 (paths-uniq-append (paths-find-version-directories roots (list "") nil nil nil t)
390 (paths-find-site-directories roots "" nil))) 390 (paths-find-site-directories roots (list "") nil)))
391 391
392 (defun packages-find-package-hierarchies (package-directories &optional envvar default) 392 (defun packages-find-package-hierarchies (package-directories &optional envvar default)
393 "Find package hierarchies in a list of package directories. 393 "Find package hierarchies in a list of package directories.
394 PACKAGE-DIRECTORIES is a list of package directories. 394 PACKAGE-DIRECTORIES is a list of package directories.
395 DEFAULT is a default list of package hierarchies. 395 DEFAULT is a default list of package hierarchies.