diff options
| author | dickmao <none> | 2021-08-04 10:50:38 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-08-04 10:50:38 +0200 |
| commit | 1910800f93cdc5fd9bc657e7f65e9db9c8e94de0 (patch) | |
| tree | 95c3b0a33f0aa74be9de54c133e91e2babfb9b74 /lisp/emacs-lisp | |
| parent | b8c43b594e4e8bf27b1b1c1693d48f07799a1aaf (diff) | |
| download | emacs-1910800f93cdc5fd9bc657e7f65e9db9c8e94de0.tar.gz emacs-1910800f93cdc5fd9bc657e7f65e9db9c8e94de0.tar.bz2 emacs-1910800f93cdc5fd9bc657e7f65e9db9c8e94de0.zip | |
Package archive location needs to be absolute filename
* lisp/emacs-lisp/package.el (package--with-response-buffer-1):
Actually check that URL is absolute (bug#49788).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/package.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index f1daa8d124a..37dcbe36c8b 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -1366,11 +1366,9 @@ errors signaled by ERROR-FORM or by BODY). (kill-buffer buffer) (goto-char (point-min)))))) (package--unless-error body - (let ((url (expand-file-name file url))) - (unless (file-name-absolute-p url) - (error "Location %s is not a url nor an absolute file name" - url)) - (insert-file-contents-literally url))))) + (unless (file-name-absolute-p url) + (error "Location %s is not a url nor an absolute file name" url)) + (insert-file-contents-literally (expand-file-name file url))))) (define-error 'bad-signature "Failed to verify signature") |