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))))