Mercurial > hg > xemacs-beta

comparison lisp/package-admin.el @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 3ecd8885ac67
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
164 (when (and (not (eq package 'unknown)) 164 (when (and (not (eq package 'unknown))
165 (featurep package-feature) 165 (featurep package-feature)
166 (setq autoload-dir (feature-file package-feature)) 166 (setq autoload-dir (feature-file package-feature))
167 (setq autoload-dir (file-name-directory autoload-dir)) 167 (setq autoload-dir (file-name-directory autoload-dir))
168 (member autoload-dir late-package-load-path)) 168 (member autoload-dir late-package-load-path))
169 ;; Find the corresonding entry in late-package 169 ;; Find the corresponding entry in late-package
170 (setq pkg-dir 170 (setq pkg-dir
171 (car-safe (member-if (lambda (h) 171 (car-safe (member-if (lambda (h)
172 (string-match (concat "^" (regexp-quote h)) 172 (string-match (concat "^" (regexp-quote h))
173 autoload-dir)) 173 autoload-dir))
174 late-packages)))) 174 late-packages))))