Mercurial > hg > xemacs-beta

comparison lisp/packages.el @ 410:de805c49cfc1 r21-2-35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-35
author cvs
date Mon, 13 Aug 2007 11:19:21 +0200
parents 501cfd01ee6d
children 697ef44129c6
comparison
equal deleted inserted replaced
409:301b9ebbdf3b 410:de805c49cfc1
348 (defun packages-find-package-directories (roots base) 348 (defun packages-find-package-directories (roots base)
349 "Find a set of package directories." 349 "Find a set of package directories."
350 ;; make sure paths-find-version-directory and paths-find-site-directory 350 ;; make sure paths-find-version-directory and paths-find-site-directory
351 ;; don't both pick up version-independent directories ... 351 ;; don't both pick up version-independent directories ...
352 (let ((version-directory (paths-find-version-directory roots base nil nil t)) 352 (let ((version-directory (paths-find-version-directory roots base nil nil t))
353 (site-directory (paths-find-site-directory roots base))) 353 (site-directory (paths-find-site-directory roots base nil nil t)))
354 (paths-uniq-append 354 (paths-uniq-append
355 (and version-directory (list version-directory)) 355 (and version-directory (list version-directory))
356 (and site-directory (list site-directory))))) 356 (and site-directory (list site-directory)))))
357 357
358 (defvar packages-special-base-regexp "^\\(etc\\|info\\|lisp\\|lib-src\\|bin\\|pkginfo\\)$" 358 (defvar packages-special-base-regexp "^\\(etc\\|info\\|lisp\\|lib-src\\|bin\\|pkginfo\\)$"