Mercurial > hg > xemacs-beta

comparison lisp/package-get.el @ 357:4711e16a8e49 r21-1-8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-8
author cvs
date Mon, 13 Aug 2007 10:57:04 +0200
parents 182f72e8cd0d
children 8e84bee8ddd0
comparison
equal deleted inserted replaced
356:e85f639a32f3 357:4711e16a8e49
335 is non-nil." 335 is non-nil."
336 (or (package-get-locate-file package-get-base-filename t no-remote) 336 (or (package-get-locate-file package-get-base-filename t no-remote)
337 (locate-data-file package-get-base-filename) 337 (locate-data-file package-get-base-filename)
338 package-get-base-filename)) 338 package-get-base-filename))
339 339
340 (defvar package-get-user-package-location user-init-directory) 340 (defvar package-get-user-package-location
341 (concat "~" init-file-user user-init-directory))
341 342
342 (defun package-get-maybe-save-index (filename) 343 (defun package-get-maybe-save-index (filename)
343 "Offer to save the current buffer as the local package index file, 344 "Offer to save the current buffer as the local package index file,
344 if different." 345 if different."
345 (let ((location (package-get-locate-index-file t))) 346 (let ((location (package-get-locate-index-file t)))