branch: elpa-admin
commit 68bbdcd562d8311a13239fe18095a4f644b42ec2
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
Tweak the way `index.html` is updated
* elpa-admin.el (elpaa--update-archive-contents): Don't bother updating
the `index.html`. Let `elpaa-batch-html-make-index` take care of it.
(elpaa--make-aggregated-atom-feed): Adjust call to
`libxml-parse-xml-region` for older Emacsen.
---
elpa-admin.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/elpa-admin.el b/elpa-admin.el
index 7b6f9b82d4..ef17fca8ea 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -178,9 +178,7 @@ Delete backup files also."
(lambda (x y)
(string-lessp (symbol-name (car x)) (symbol-name
(car y))))))
(elpaa--message "new AC: %S" ac)
- (elpaa--write-archive-contents ac dir)
- (let ((default-directory (expand-file-name dir)))
- (elpaa--html-make-index (cdr ac)))))
+ (elpaa--write-archive-contents ac dir)))
(defun elpaa--get-specs ()
(elpaa--form-from-file-contents elpaa--specs-file))
@@ -3263,7 +3261,8 @@ the article."
(dolist (file files)
(erase-buffer)
(insert-file-contents file)
- (let* ((xml (with-demoted-errors "%S" (libxml-parse-xml-region)))
+ (let* ((xml (with-demoted-errors "%S" (libxml-parse-xml-region
+ (point-min) (point-max))))
(lastentry (assq 'entry (nreverse xml))))
(when lastentry
(push lastentry entries))))
