comparison lisp/package-admin.el @ 333:4f79e16b1112 r21-0-64

Import from CVS: tag r21-0-64
author cvs
date Mon, 13 Aug 2007 10:49:50 +0200
parents 03446687b7cc
children a4f53d9b3154
comparison
equal deleted inserted replaced
332:bb75ebac9531 333:4f79e16b1112
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.