Mercurial > hg > xemacs-beta

comparison lisp/package-get.el @ 678:8e8a7b205142

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 a6c89d799f00
children c00aa0615465
comparison
equal deleted inserted replaced
677:83a5b1a6e62c 678:8e8a7b205142
357 (defun package-get-locate-index-file (no-remote) 357 (defun package-get-locate-index-file (no-remote)
358 "Locate the package-get index file. Do not return remote paths if NO-REMOTE 358 "Locate the package-get index file. Do not return remote paths if NO-REMOTE
359 is non-nil." 359 is non-nil."
360 (or (package-get-locate-file package-get-base-filename t no-remote) 360 (or (package-get-locate-file package-get-base-filename t no-remote)
361 (if (file-exists-p package-get-user-index-filename) 361 (if (file-exists-p package-get-user-index-filename)
362 package-get-user-index-filename))) 362 package-get-user-index-filename)
363 (locate-data-file package-get-base-filename)
364 (error "Can't locate a package index file.")))
363 365
364 (defun package-get-maybe-save-index (filename) 366 (defun package-get-maybe-save-index (filename)
365 "Offer to save the current buffer as the local package index file, 367 "Offer to save the current buffer as the local package index file,
366 if different." 368 if different."
367 (let ((location (package-get-locate-index-file t))) 369 (let ((location (package-get-locate-index-file t)))