[r21-0b46 PATCH] package-get.el to (require 'package-get-base)

Andy> Erm, this patch was part of a patch that I don't think got Andy> through because of loading package-get-base.el for every It IS in r21-0b46. Here is my attempt to make correct use of the provided package-get-base. Andy> package. Are you going to post a revised patch now that Andy> steve has put the provide in package-get-base.el? APA> Thanks for the reminder, Andy. APA> Working on it... Done. Tested for 21.0-b46 with xemacs -no-init-file -no-site-file (package-get-package-provider 'webster-www) ;; correctly returns the list below, proving that autoloading ;; `package-get-package-provider' and (require 'package-get-base) do ;; work with this patch. (net-utils "1.06") Here are ChangeLog entry and unidiff. 1998-06-26 Adrian Aichner <aichner(a)ecf.teradyne.com&gt; * package-get.el: Using (require 'package-get-base), now that it provides itself. Consequently removed all instances of (load "package-get-base.el"). Index: package-get.el =================================================================== RCS file: /usr/CVSroot/XEmacs/xemacs-20/lisp/package-get.el,v retrieving revision 1.12 diff -u -r1.12 package-get.el --- package-get.el 1998/06/20 00:58:27 1.12 +++ package-get.el 1998/06/26 18:27:09 ＠＠ -97,6 +97,7 ＠＠ ;;; Code: (require 'package-admin) +(require 'package-get-base) (defvar package-get-base nil "List of packages that are installed at this site. ＠＠ -165,7 +166,6 ＠＠ "Fetch and install the latest versions of all currently installed packages." (interactive) ;; Load a fresh copy - (load "package-get-base.el") (mapcar (lambda (pkg) (package-get-all (car pkg) nil)) ＠＠ -179,7 +179,6 ＠＠ latest version. Optional argument FETCHED-PACKAGES is used to keep track of packages already fetched." (interactive "sPackage: \nsVersion: ") - (load "package-get-base.el") (let* ((the-package (package-get-info-find-package package-get-base package)) (this-package (package-get-info-version ＠＠ -230,7 +229,6 ＠＠ sum does not match that stored in `package-get-base' for this version of the package, an error is signalled." (interactive "xPackage List: ") - (load "package-get-base.el") (let* ((this-package (package-get-info-version (package-get-info-find-package package-get-base ＠＠ -385,7 +383,6 ＠＠ consp, then it must match a corresponding (provide (SYM VERSION)) from the package." (interactive "SSymbol: ") - (load "package-get-base.el") (let ((packages package-get-base) (done nil) (found nil)) ＠＠ -418,7 +415,6 ＠＠ "Fetch and install the latest versions of all customized packages." (interactive) ;; Load a fresh copy - (load "package-get-base.el") (load "package-get-custom.el") (mapcar (lambda (pkg) (if (eval (intern (concat (symbol-name (car pkg)) "-package"))) ＠＠ -456,7 +452,6 ＠＠ Entries in the customization file are retrieved from package-get-base.el." (interactive) ;; Load a fresh copy - (load "package-get-base.el") (let ((custom-buffer (find-file-noselect (or (package-get-file-installed-p "package-get-custom.el") -- Adrian Aichner Applications Engineer Teradyne GmbH Semiconductor Test Group Telephone +49/89/41861(0)-208 Dingolfinger Strasse 2 Fax +49/89/41861-217 D-81673 MUENCHEN E-mail aichner(a)ecf.teradyne.com