Mercurial > hg > xemacs-beta

comparison lisp/packages.el @ 689:6a0eecc6df0e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-12-06 09:35:50 by michaels] 2001-12-05 Michael Sperber [Mr. Preprocessor] <sperber@informatik.uni-tuebingen.de> * packages.el (packages-compute-package-locations): Add user-specific site-packages and infodock-packages hierarchies for symmetry. * find-paths.el (paths-emacs-root-p): Use version-specific name for root testing.
author michaels
date Thu, 06 Dec 2001 09:35:50 +0000
parents 4bf478127536
children e38acbeb1cae
comparison
equal deleted inserted replaced
688:c9d38610941f 689:6a0eecc6df0e
94 depending on the load-path segment the hierarchy is supposed to 94 depending on the load-path segment the hierarchy is supposed to
95 show up in. 95 show up in.
96 The third component is a thunk which, if it returns NIL, causes 96 The third component is a thunk which, if it returns NIL, causes
97 the directory to be ignored." 97 the directory to be ignored."
98 (list 98 (list
99 (list (paths-construct-path (list user-init-directory "site-packages"))
100 'early #'(lambda () t))
101 (list (paths-construct-path (list user-init-directory "infodock-packages"))
102 'early #'(lambda () (featurep 'infodock)))
99 (list (paths-construct-path (list user-init-directory "mule-packages")) 103 (list (paths-construct-path (list user-init-directory "mule-packages"))
100 'early #'(lambda () (featurep 'mule))) 104 'early #'(lambda () (featurep 'mule)))
101 (list (paths-construct-path (list user-init-directory "xemacs-packages")) 105 (list (paths-construct-path (list user-init-directory "xemacs-packages"))
102 'early #'(lambda () t)) 106 'early #'(lambda () t))
103 (list "site-packages" 'late #'(lambda () t)) 107 (list "site-packages" 'late #'(lambda () t))