diff options
| author | Artur Malabarba | 2015-04-27 22:04:38 +0100 |
|---|---|---|
| committer | Artur Malabarba | 2015-04-27 22:06:32 +0100 |
| commit | f3b43fca47f797fa348f57de220035e6fcecc5c7 (patch) | |
| tree | c2fa3d4082a1edcf8a555ca317a649d6ceadaa69 | |
| parent | d320ec576d4a90c31e69afcd2bbc5353d5a3bc90 (diff) | |
| download | emacs-f3b43fca47f797fa348f57de220035e6fcecc5c7.tar.gz emacs-f3b43fca47f797fa348f57de220035e6fcecc5c7.zip | |
* lisp/emacs-lisp/package.el: Small improvements
(package--with-work-buffer-async): More informative error.
(package-install-user-selected-packages): Rename to
`package-install-selected-packages'.
| -rw-r--r-- | lisp/emacs-lisp/package.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 0392f616862..81e0ee970e0 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el | |||
| @@ -1135,7 +1135,8 @@ arguments see `package--with-work-buffer'." | |||
| 1135 | (signal (cdar status) (cddr status))) | 1135 | (signal (cdar status) (cddr status))) |
| 1136 | (goto-char (point-min)) | 1136 | (goto-char (point-min)) |
| 1137 | (unless (search-forward "\n\n" nil 'noerror) | 1137 | (unless (search-forward "\n\n" nil 'noerror) |
| 1138 | (error "Invalid url response")) | 1138 | (error "Invalid url response in buffer %s" |
| 1139 | (current-buffer))) | ||
| 1139 | (delete-region (point-min) (point)) | 1140 | (delete-region (point-min) (point)) |
| 1140 | ,@body) | 1141 | ,@body) |
| 1141 | (kill-buffer (current-buffer))) | 1142 | (kill-buffer (current-buffer))) |
| @@ -1949,7 +1950,7 @@ The file can either be a tar file or an Emacs Lisp file." | |||
| 1949 | (package-install-from-buffer))) | 1950 | (package-install-from-buffer))) |
| 1950 | 1951 | ||
| 1951 | ;;;###autoload | 1952 | ;;;###autoload |
| 1952 | (defun package-install-user-selected-packages () | 1953 | (defun package-install-selected-packages () |
| 1953 | "Ensure packages in `package-selected-packages' are installed. | 1954 | "Ensure packages in `package-selected-packages' are installed. |
| 1954 | If some packages are not installed propose to install them." | 1955 | If some packages are not installed propose to install them." |
| 1955 | (interactive) | 1956 | (interactive) |