branch: elpa-admin
commit 4f85e88b58def2c7550bd05c6c86481e5e57573e
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
(elpaa--doc-html-adjust-auxfiles): Minimal sanity check
---
elpa-admin.el | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/elpa-admin.el b/elpa-admin.el
index 35073d2368..9647f88cf5 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -2850,8 +2850,14 @@ directory; one of archive, archive-devel."
(rootedfile (file-name-concat docdir file))
(idr (elpaa--spec-get pkg-spec :internal--html-resources)))
(when (or (member rootedfile idr)
- (if (not (file-readable-p rootedfile))
- (message "False positive? Skipping %S" file)
+ (cond
+ ((string-match "\\.\\." file)
+ (message "Suspicious file name: %S" file)
+ nil)
+ ((not (file-readable-p rootedfile))
+ (message "False positive? Skipping: %S" file)
+ nil)
+ (t
(let* ((html-dir (elpaa--spec-get
pkg-spec :internal--html-dir))
(destfile
@@ -2861,7 +2867,7 @@ directory; one of archive, archive-devel."
(cons rootedfile idr))
(when destdir (make-directory destdir t))
(copy-file rootedfile destfile)
- t)))
+ t))))
(goto-char (match-beginning 1))
(insert (concat offset docdir)))))))
(when (stringp html-file)
