masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-08 13:19:36 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/package.el: Small improvements

Browse source 
(package--with-work-buffer-async): More informative error.
(package-install-user-selected-packages): Rename to
`package-install-selected-packages'.
This commit is contained in:
Artur Malabarba 2015-04-27 22:04:38 +01:00
parent d320ec576d
commit f3b43fca47
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/package.el
View file

@ -1135,7 +1135,8 @@ arguments see `package--with-work-buffer'."
(signal (cdar status) (cddr status))) (signal (cdar status) (cddr status)))
(goto-char (point-min)) (goto-char (point-min))
(unless (search-forward "\n\n" nil 'noerror) (unless (search-forward "\n\n" nil 'noerror)
(error "Invalid url response")) (error "Invalid url response in buffer %s"
(current-buffer)))
(delete-region (point-min) (point)) (delete-region (point-min) (point))
,@body) ,@body)
(kill-buffer (current-buffer))) (kill-buffer (current-buffer)))
@ -1949,7 +1950,7 @@ The file can either be a tar file or an Emacs Lisp file."
(package-install-from-buffer))) (package-install-from-buffer)))
;;;###autoload ;;;###autoload
(defun package-install-user-selected-packages () (defun package-install-selected-packages ()
"Ensure packages in `package-selected-packages' are installed. "Ensure packages in `package-selected-packages' are installed.
If some packages are not installed propose to install them." If some packages are not installed propose to install them."
(interactive) (interactive)