Mercurial > hg > xemacs-beta

comparison lisp/packages.el @ 286:57709be46d1b r21-0b41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b41
author cvs
date Mon, 13 Aug 2007 10:35:03 +0200
parents 7df0dd720c89
children e11d67e05968
comparison
equal deleted inserted replaced
285:9a3756523c1b 286:57709be46d1b
327 (site-directory (paths-find-site-directory roots base))) 327 (site-directory (paths-find-site-directory roots base)))
328 (paths-uniq-append 328 (paths-uniq-append
329 (and version-directory (list version-directory)) 329 (and version-directory (list version-directory))
330 (and site-directory (list site-directory))))) 330 (and site-directory (list site-directory)))))
331 331
332 (defvar packages-special-bases '("etc" "info" "lisp" "lib-src" "bin") 332 (defvar packages-special-base-regexp "^\\(etc\\|info\\|lisp\\|lib-src\\|bin\\)$"
333 "Special subdirectories of packages.") 333 "Special subdirectories of packages.")
334
335 (defvar packages-no-package-hierarchy-regexp
336 (concat "\\(" paths-version-control-filename-regexp "\\)"
337 "\\|"
338 "\\(" packages-special-base-regexp "\\)")
339 "Directories which can't be the roots of package hierarchies.")
334 340
335 (defun packages-find-packages-in-directories (directories) 341 (defun packages-find-packages-in-directories (directories)
336 "Find all packages underneath directories in DIRECTORIES." 342 "Find all packages underneath directories in DIRECTORIES."
337 (paths-find-recursive-path directories 343 (paths-find-recursive-path directories
338 packages-hierarchy-depth 344 packages-hierarchy-depth
339 (append paths-version-control-bases 345 packages-no-package-hierarchy-regexp))
340 packages-special-bases)))
341 346
342 (defun packages-split-path (path) 347 (defun packages-split-path (path)
343 "Split PATH at \"\", return pair with two components. 348 "Split PATH at \"\", return pair with two components.
344 The second component is shared with PATH." 349 The second component is shared with PATH."
345 (let ((reverse-tail '()) 350 (let ((reverse-tail '())