diff options
| -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) |