X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fpackage-admin.el;h=d5603ec332580dcd7a534dd22a9265617d81211e;hb=30ea0b88813077aa9b55d86f2f17605cd12ffb9d;hp=2c994409141d904ced9dd51bc111da309a6c37fd;hpb=f3ec20f455f3f1212d2c5ee4cadc984330da9c38;p=chise%2Fxemacs-chise.git

diff --git a/lisp/package-admin.el b/lisp/package-admin.el
index 2c99440..d5603ec 100644
--- a/lisp/package-admin.el
+++ b/lisp/package-admin.el
@@ -177,7 +177,9 @@ or return a location appropriate for the package otherwise."
 	;; Ok we need to guess
 	(if mule-related
 	    (package-admin-get-install-dir 'mule-base nil nil)
-	  (car (last late-packages)))))))
+	  (if (eq package 'xemacs-base)
+	      (car (last late-packages))
+	    (package-admin-get-install-dir 'xemacs-base nil nil)))))))