>>>>> "APA" == Adrian Aichner <aichner(a)ecf.teradyne.com> writes:
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>
* 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