This commit was manufactured by cvs2svn to create branch 'XEmacs-21_4'.

[chise/xemacs-chise.git.1] / lisp / package-admin.el

diff --git a/lisp/package-admin.el b/lisp/package-admin.el
index 2c99440..aff6025 100644 (file)
--- a/lisp/package-admin.el
+++ b/lisp/package-admin.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 1997 by Free Software Foundation, Inc.
 
-;; Author: SL Baur <steve@altair.xemacs.org>
+;; Author: SL Baur <steve@xemacs.org>
 ;; Keywords: internal
 
 ;; This file is part of XEmacs.
@@ -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)))))))