Mercurial > hg > xemacs-beta

comparison lisp/packages.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 3ecd8885ac67
children 576fb035e263
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
36 36
37 ;; - not to use the `lambda' macro. Use #'(lambda ...) instead. 37 ;; - not to use the `lambda' macro. Use #'(lambda ...) instead.
38 ;; (this goes for any package loaded before `subr.el'.) 38 ;; (this goes for any package loaded before `subr.el'.)
39 ;; 39 ;;
40 ;; - not to use macros, because they are not yet available (and this 40 ;; - not to use macros, because they are not yet available (and this
41 ;; file must be loadable uncompiled.) This rules out CL-style 41 ;; file must be loadable uncompiled.) Built in macros, such as
42 ;; macros like `when', for instance. 42 ;; `when' and `unless' are fine, of course.
43 ;; 43 ;;
44 ;; - not to use `defcustom'. If you must add user-customizable 44 ;; - not to use `defcustom'. If you must add user-customizable
45 ;; variables here, use `defvar', and add the variable to 45 ;; variables here, use `defvar', and add the variable to
46 ;; `cus-start.el'. 46 ;; `cus-start.el'.
47 47
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\\)$"