Mercurial > hg > xemacs-beta

comparison lisp/package-admin.el @ 448:3078fd1074e8 r21-2-39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-39
author cvs
date Mon, 13 Aug 2007 11:38:25 +0200
parents 576fb035e263
children e545f3ec2337
comparison
equal deleted inserted replaced
447:4fc5f13f3bd3 448:3078fd1074e8
163 autoload-dir) 163 autoload-dir)
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 (append early-package-load-path late-package-load-path)))
169 ;; Find the corresponding 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 (append (cdr early-packages) late-packages)))))
175 (if pkg-dir 175 (if pkg-dir
176 pkg-dir 176 pkg-dir
177 ;; Ok we need to guess 177 ;; Ok we need to guess
178 (if mule-related 178 (if mule-related
179 (package-admin-get-install-dir 'mule-base nil nil) 179 (package-admin-get-install-dir 'mule-base nil nil)