Mercurial > hg > xemacs-beta

comparison lisp/packages.el @ 308:33bdb3d4b97f r21-0b52

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b52
author cvs
date Mon, 13 Aug 2007 10:42:44 +0200
parents c6de09ad3017
children d1b52dcaa789
comparison
equal deleted inserted replaced
307:42d630fd9bd8 308:33bdb3d4b97f
60 (defvar packages-hierarchy-depth 1 60 (defvar packages-hierarchy-depth 1
61 "Depth of package hierarchies.") 61 "Depth of package hierarchies.")
62 62
63 (defvar packages-load-path-depth 1 63 (defvar packages-load-path-depth 1
64 "Depth of load-path search in package hierarchies.") 64 "Depth of load-path search in package hierarchies.")
65
66 (defvar packages-data-path-depth 1
67 "Depth of data-path search in package hierarchies.")
65 68
66 (defvar early-packages nil 69 (defvar early-packages nil
67 "Packages early in the load path.") 70 "Packages early in the load path.")
68 71
69 (defvar early-package-load-path nil 72 (defvar early-package-load-path nil
443 (packages-find-package-library-path packages 446 (packages-find-package-library-path packages
444 '("lisp")) 447 '("lisp"))
445 packages-load-path-depth)) 448 packages-load-path-depth))
446 449
447 (defun packages-find-package-exec-path (packages) 450 (defun packages-find-package-exec-path (packages)
451 "Construct the exec-path component for packages.
452 PACKAGES is a list of package directories."
448 (packages-find-package-library-path packages 453 (packages-find-package-library-path packages
449 (list (paths-construct-path 454 (list (paths-construct-path
450 (list "bin" system-configuration)) 455 (list "bin" system-configuration))
451 "lib-src"))) 456 "lib-src")))
452 457
453 (defun packages-find-package-info-path (packages) 458 (defun packages-find-package-info-path (packages)
459 "Construct the info-path component for packages.
460 PACKAGES is a list of package directories."
454 (packages-find-package-library-path packages '("info"))) 461 (packages-find-package-library-path packages '("info")))
455 462
456 (defun packages-find-package-data-path (packages) 463 (defun packages-find-package-data-path (packages)
457 (packages-find-package-library-path packages '("etc"))) 464 "Construct the data-path component for packages.
465 PACKAGES is a list of package directories."
466 (paths-find-recursive-load-path
467 (packages-find-package-library-path packages
468 '("etc"))
469 packages-data-path-depth))
458 470
459 ;; Loading package initialization files 471 ;; Loading package initialization files
460 472
461 (defun packages-load-package-lisps (package-load-path base) 473 (defun packages-load-package-lisps (package-load-path base)
462 "Load all Lisp files of a certain name along a load path. 474 "Load all Lisp files of a certain name along a load path.