aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2013-09-17 11:52:31 -0400
committerStefan Monnier2013-09-17 11:52:31 -0400
commit96dbf5a8ae33d9523212357bcead7b5fa2473697 (patch)
tree5a07127540aa2b11316bc8d291bc7e10c59c3d27
parent049c405a90db540f0de2e56cc965a43e1eaebcd9 (diff)
downloademacs-96dbf5a8ae33d9523212357bcead7b5fa2473697.tar.gz
emacs-96dbf5a8ae33d9523212357bcead7b5fa2473697.zip
* lisp/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.
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/emacs-lisp/package.el5
2 files changed, 6 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 059bb0218f3..b866f4f93aa 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
12013-09-17 Stefan Monnier <monnier@iro.umontreal.ca> 12013-09-17 Stefan Monnier <monnier@iro.umontreal.ca>
2 2
3 * emacs-lisp/package.el (package-generate-autoloads): Remove `require'
4 which should not be needed any more.
5 (package-menu-refresh, package-menu-describe-package): Use user-error.
6
3 * eshell/esh-cmd.el (eshell-post-rewrite-command-function): New var. 7 * eshell/esh-cmd.el (eshell-post-rewrite-command-function): New var.
4 (eshell-post-rewrite-command-hook): Make obsolete. 8 (eshell-post-rewrite-command-hook): Make obsolete.
5 (eshell-parse-command): Simplify. 9 (eshell-parse-command): Simplify.
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 7799ee23d62..77496bad441 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -597,7 +597,6 @@ EXTRA-PROPERTIES is currently unused."
597(defvar version-control) 597(defvar version-control)
598 598
599(defun package-generate-autoloads (name pkg-dir) 599(defun package-generate-autoloads (name pkg-dir)
600 (require 'autoload) ;Load before we let-bind generated-autoload-file!
601 (let* ((auto-name (format "%s-autoloads.el" name)) 600 (let* ((auto-name (format "%s-autoloads.el" name))
602 ;;(ignore-name (concat name "-pkg.el")) 601 ;;(ignore-name (concat name "-pkg.el"))
603 (generated-autoload-file (expand-file-name auto-name pkg-dir)) 602 (generated-autoload-file (expand-file-name auto-name pkg-dir))
@@ -1523,7 +1522,7 @@ This fetches the contents of each archive specified in
1523`package-archives', and then refreshes the package menu." 1522`package-archives', and then refreshes the package menu."
1524 (interactive) 1523 (interactive)
1525 (unless (derived-mode-p 'package-menu-mode) 1524 (unless (derived-mode-p 'package-menu-mode)
1526 (error "The current buffer is not a Package Menu")) 1525 (user-error "The current buffer is not a Package Menu"))
1527 (package-refresh-contents) 1526 (package-refresh-contents)
1528 (package-menu--generate t t)) 1527 (package-menu--generate t t))
1529 1528
@@ -1535,7 +1534,7 @@ If optional arg BUTTON is non-nil, describe its associated package."
1535 (tabulated-list-get-id)))) 1534 (tabulated-list-get-id))))
1536 (if pkg-desc 1535 (if pkg-desc
1537 (describe-package pkg-desc) 1536 (describe-package pkg-desc)
1538 (error "No package here")))) 1537 (user-error "No package here"))))
1539 1538
1540;; fixme numeric argument 1539;; fixme numeric argument
1541(defun package-menu-mark-delete (&optional _num) 1540(defun package-menu-mark-delete (&optional _num)