[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] elpa-admin 64316cdf30: * elpa-admin.el (elpaa--get-section): Don'
From: |
Stefan Monnier |
Subject: |
[elpa] elpa-admin 64316cdf30: * elpa-admin.el (elpaa--get-section): Don't burp if `file` is nil |
Date: |
Tue, 7 Jun 2022 17:37:03 -0400 (EDT) |
branch: elpa-admin
commit 64316cdf3088c8209ff71353d26aa8a092e3e154
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* elpa-admin.el (elpaa--get-section): Don't burp if `file` is nil
---
elpa-admin.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/elpa-admin.el b/elpa-admin.el
index ecf4bc90d1..58c0ec2e0a 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -1324,8 +1324,9 @@ HEADER in package's main file."
(cdr file))))
(when (consp file) (setq file (car file))))
(cond
- ((let ((fil (expand-file-name file srcdir)))
- (and (file-readable-p fil) (file-regular-p fil)))
+ ((when file
+ (let ((file (expand-file-name file srcdir)))
+ (and (file-readable-p file) (file-regular-p file))))
;; Return FILE's contents.
(let ((type (elpaa--extension-to-mime (file-name-extension file)))
(content (with-temp-buffer
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] elpa-admin 64316cdf30: * elpa-admin.el (elpaa--get-section): Don't burp if `file` is nil,
Stefan Monnier <=