diff options
| author | Stefan Monnier | 2013-09-17 11:52:31 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2013-09-17 11:52:31 -0400 |
| commit | 96dbf5a8ae33d9523212357bcead7b5fa2473697 (patch) | |
| tree | 5a07127540aa2b11316bc8d291bc7e10c59c3d27 | |
| parent | 049c405a90db540f0de2e56cc965a43e1eaebcd9 (diff) | |
| download | emacs-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/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/emacs-lisp/package.el | 5 |
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 @@ | |||
| 1 | 2013-09-17 Stefan Monnier <monnier@iro.umontreal.ca> | 1 | 2013-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) |