Mercurial > hg > xemacs-beta

comparison lisp/packages.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents abe6d1db359e
children 3078fd1074e8
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
353 (site-directory (paths-find-site-directory roots base nil nil t))) 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\\|man\\|lisp\\|lib-src\\|bin\\|pkginfo\\)$"
359 "Special subdirectories of packages.") 359 "Special subdirectories of packages.")
360 360
361 (defvar packages-no-package-hierarchy-regexp 361 (defvar packages-no-package-hierarchy-regexp
362 (concat "\\(" paths-version-control-filename-regexp "\\)" 362 (concat "\\(" paths-version-control-filename-regexp "\\)"
363 "\\|" 363 "\\|"
416 TIME is either 'EARLY, 'LATE, or 'LAST. 416 TIME is either 'EARLY, 'LATE, or 'LAST.
417 DEFAULT is a default list of packages." 417 DEFAULT is a default list of packages."
418 (or default 418 (or default
419 (let ((packages '())) 419 (let ((packages '()))
420 (while package-locations 420 (while package-locations
421 (packages-deconstruct 421 (packages-deconstruct
422 (car package-locations) 422 (car package-locations)
423 #'(lambda (name a-time thunk) 423 #'(lambda (name a-time thunk)
424 (if (and (eq time a-time) 424 (if (and (eq time a-time)
425 (funcall thunk)) 425 (funcall thunk))
426 (setq packages 426 (setq packages
527 package-lisp)))))) 527 package-lisp))))))
528 package-load-path)) 528 package-load-path))
529 529
530 (defun packages-load-package-dumped-lisps (package-load-path) 530 (defun packages-load-package-dumped-lisps (package-load-path)
531 "Load dumped-lisp.el files along a load path. 531 "Load dumped-lisp.el files along a load path.
532 Also load files off PACKAGE-LISP definitions there" 532 Also load files off PACKAGE-LISP definitions there."
533 (packages-handle-package-dumped-lisps #'load package-load-path)) 533 (packages-handle-package-dumped-lisps #'load package-load-path))
534 534
535 (defun packages-collect-package-dumped-lisps (package-load-path) 535 (defun packages-collect-package-dumped-lisps (package-load-path)
536 "Load dumped-lisp.el files along a load path. 536 "Load dumped-lisp.el files along a load path.
537 Return list of files off PACKAGE-LISP definitions there" 537 Return list of files off PACKAGE-LISP definitions there."
538 (let ((*files* '())) 538 (let ((*files* '()))
539 (packages-handle-package-dumped-lisps 539 (packages-handle-package-dumped-lisps
540 #'(lambda (file) 540 #'(lambda (file)
541 (setq *files* (cons file *files*))) 541 (setq *files* (cons file *files*)))
542 package-load-path) 542 package-load-path)