# HG changeset patch
# User youngs
# Date 1007053239 0
# Node ID 8e8a7b205142c55bacfbfd0b92ad9429508ecc24
# Parent  83a5b1a6e62c750274a8793625668bbf828915f8
[xemacs-hg @ 2001-11-29 17:00:38 by youngs]
2001-11-28  Steve Youngs  <youngs@xemacs.org>

	* package-get.el (package-get-locate-index-file): Also search the
	core etc/ directory for the package index file if it can't be
	found in ~/.xemacs/.

diff -r 83a5b1a6e62c -r 8e8a7b205142 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Nov 27 19:00:29 2001 +0000
+++ b/lisp/ChangeLog	Thu Nov 29 17:00:39 2001 +0000
@@ -1,3 +1,9 @@
+2001-11-28  Steve Youngs  <youngs@xemacs.org>
+
+	* package-get.el (package-get-locate-index-file): Also search the
+	core etc/ directory for the package index file if it can't be
+	found in ~/.xemacs/.
+
 2001-10-29  Andy Piper  <andy@xemacs.org>
 
 	* code-files.el (toggle-buffer-file-coding-system): mark buffer as
diff -r 83a5b1a6e62c -r 8e8a7b205142 lisp/package-get.el
--- a/lisp/package-get.el	Tue Nov 27 19:00:29 2001 +0000
+++ b/lisp/package-get.el	Thu Nov 29 17:00:39 2001 +0000
@@ -359,7 +359,9 @@
 is non-nil."
   (or (package-get-locate-file package-get-base-filename t no-remote)
       (if (file-exists-p package-get-user-index-filename)
-	  package-get-user-index-filename)))
+	  package-get-user-index-filename)
+      (locate-data-file package-get-base-filename)
+      (error "Can't locate a package index file.")))
 
 (defun package-get-maybe-save-index (filename)
   "Offer to save the current buffer as the local package index file,