]> code.delx.au - gnu-emacs/commitdiff
* lisp/emacs-lisp/package.el (package-generate-autoloads): Remove `require'
authorStefan Monnier <monnier@iro.umontreal.ca>
Tue, 17 Sep 2013 15:52:31 +0000 (11:52 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Tue, 17 Sep 2013 15:52:31 +0000 (11:52 -0400)
which should not be needed any more.
(package-menu-refresh, package-menu-describe-package): Use user-error.

lisp/ChangeLog
lisp/emacs-lisp/package.el

index 059bb0218f385724e202e3fdad0a5eaf1542ddeb..b866f4f93aa7d1db3082a70cb9ee4c4bfc318472 100644 (file)
@@ -1,5 +1,9 @@
 2013-09-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * emacs-lisp/package.el (package-generate-autoloads): Remove `require'
+       which should not be needed any more.
+       (package-menu-refresh, package-menu-describe-package): Use user-error.
+
        * eshell/esh-cmd.el (eshell-post-rewrite-command-function): New var.
        (eshell-post-rewrite-command-hook): Make obsolete.
        (eshell-parse-command): Simplify.
index 7799ee23d62f38a1d4f6693b911ccfd44bdd7480..77496bad441a0178e76ba61dcb42affd648439ff 100644 (file)
@@ -597,7 +597,6 @@ EXTRA-PROPERTIES is currently unused."
 (defvar version-control)
 
 (defun package-generate-autoloads (name pkg-dir)
-  (require 'autoload)         ;Load before we let-bind generated-autoload-file!
   (let* ((auto-name (format "%s-autoloads.el" name))
         ;;(ignore-name (concat name "-pkg.el"))
         (generated-autoload-file (expand-file-name auto-name pkg-dir))
@@ -1523,7 +1522,7 @@ This fetches the contents of each archive specified in
 `package-archives', and then refreshes the package menu."
   (interactive)
   (unless (derived-mode-p 'package-menu-mode)
-    (error "The current buffer is not a Package Menu"))
+    (user-error "The current buffer is not a Package Menu"))
   (package-refresh-contents)
   (package-menu--generate t t))
 
@@ -1535,7 +1534,7 @@ If optional arg BUTTON is non-nil, describe its associated package."
                    (tabulated-list-get-id))))
     (if pkg-desc
        (describe-package pkg-desc)
-      (error "No package here"))))
+      (user-error "No package here"))))
 
 ;; fixme numeric argument
 (defun package-menu-mark-delete (&optional _num)