changeset 678:8e8a7b205142

[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/.
author youngs
date Thu, 29 Nov 2001 17:00:39 +0000
parents 83a5b1a6e62c
children 6b890cfde2b1
files lisp/ChangeLog lisp/package-get.el
diffstat 2 files changed, 9 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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,