[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 1910800: Package archive location needs to be absolute filename
From: |
Lars Ingebrigtsen |
Subject: |
master 1910800: Package archive location needs to be absolute filename |
Date: |
Wed, 4 Aug 2021 04:51:18 -0400 (EDT) |
branch: master
commit 1910800f93cdc5fd9bc657e7f65e9db9c8e94de0
Author: dickmao <none>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
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).
---
lisp/emacs-lisp/package.el | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index f1daa8d..37dcbe3 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")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 1910800: Package archive location needs to be absolute filename,
Lars Ingebrigtsen <=