emacs-elpa-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]