Mercurial > hg > xemacs-beta

comparison lisp/packages.el @ 1218:ceedb6eeaba8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-01-16 08:59:47 by michaels] 2003-01-13 Mike Sperber <mike@xemacs.org> * packages.el: * find-paths.el: Revert this change 2000-04-01 Mike Sperber <mike@xemacs.org> * packages.el (packages-find-package-directories): Added support for external package hierarchies with in-place installations. * find-paths.el (paths-root-in-place-p): Added. (paths-find-emacs-directory): Added support for external directories with in-place installations. (paths-find-site-directory): Ditto.
author michaels
date Thu, 16 Jan 2003 08:59:47 +0000
parents e38acbeb1cae
children 70921960b980
comparison
equal deleted inserted replaced
1217:1d1c82f6b17e 1218:ceedb6eeaba8
356 (defun packages-find-package-directories (roots base) 356 (defun packages-find-package-directories (roots base)
357 "Find a set of package directories." 357 "Find a set of package directories."
358 ;; make sure paths-find-version-directory and paths-find-site-directory 358 ;; make sure paths-find-version-directory and paths-find-site-directory
359 ;; don't both pick up version-independent directories ... 359 ;; don't both pick up version-independent directories ...
360 (let ((version-directory (paths-find-version-directory roots base nil nil t)) 360 (let ((version-directory (paths-find-version-directory roots base nil nil t))
361 (site-directory (paths-find-site-directory roots base nil nil t))) 361 (site-directory (paths-find-site-directory roots base)))
362 (paths-uniq-append 362 (paths-uniq-append
363 (and version-directory (list version-directory)) 363 (and version-directory (list version-directory))
364 (and site-directory (list site-directory))))) 364 (and site-directory (list site-directory)))))
365 365
366 (defvar packages-special-base-regexp "^\\(etc\\|info\\|man\\|lisp\\|lib-src\\|bin\\|pkginfo\\)$" 366 (defvar packages-special-base-regexp "^\\(etc\\|info\\|man\\|lisp\\|lib-src\\|bin\\|pkginfo\\)$"