comparison lisp/package-admin.el @ 392:1f50e6fe4f3f r21-2-11

Import from CVS: tag r21-2-11
author cvs
date Mon, 13 Aug 2007 11:10:50 +0200
parents aabb7f5b1c81
children 74fd4e045ea6
comparison
equal deleted inserted replaced
391:e50d8e68d7a5 392:1f50e6fe4f3f
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)
180 (car (last late-packages))))))) 180 (if (eq package 'xemacs-base)
181 (car (last late-packages))
182 (package-admin-get-install-dir 'xemacs-base nil nil)))))))
181 183
182 184
183 185
184 (defun package-admin-get-manifest-file (pkg-topdir package) 186 (defun package-admin-get-manifest-file (pkg-topdir package)
185 "Return the name of the MANIFEST file for package PACKAGE. 187 "Return the name of the MANIFEST file for package PACKAGE.