[elpa] elpa-admin 99b8d94 054/357: admin/archive-contents.el (batch-make-archive, archive--process-simple-package): Use write-region

[Stefan Monnier]

branch: elpa-admin
commit 99b8d9425806bc2819e58bfa6e03e42d059de3ae
Author: Chong Yidong <cyd@stupidchicken.com>
Commit: Chong Yidong <cyd@stupidchicken.com>

    admin/archive-contents.el (batch-make-archive, 
archive--process-simple-package): Use write-region
    instead of save-buffer.
---
 admin/archive-contents.el | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index 9a185fb..1c4d1a1 100644
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -76,10 +76,9 @@ Otherwise return nil."
                    packages)))
        ;; Error handler
        (error (message "%s" (cadr v)))))
-    (with-current-buffer (find-file-noselect "archive-contents")
-      (erase-buffer)
+    (with-temp-buffer
       (pp (nreverse packages) (current-buffer))
-      (save-buffer))))
+      (write-region nil nil "archive-contents"))))
 
 (defun archive--simple-package-p (dir pkg)
   "Test whether DIR contains a simple package named PKG.
@@ -117,7 +116,7 @@ Otherwise, return nil."
 Rename DIR/PKG.el to PKG-VERS.el, delete DIR, and write the
 package commentary to PKG-readme.txt.  Return the descriptor."
   ;; Write the readme file.
-  (with-current-buffer (find-file-noselect (concat pkg "-readme.txt"))
+  (with-temp-buffer
     (erase-buffer)
     (emacs-lisp-mode)
     (insert (or commentary
@@ -133,7 +132,7 @@ package commentary to PKG-readme.txt.  Return the 
descriptor."
                  (looking-at "[ \t]*\n"))
       (delete-region (match-beginning 0)
                     (match-end 0)))
-    (save-buffer))
+    (write-region nil nil (concat pkg "-readme.txt")))
   ;; Write DIR/foo.el to foo-VERS.el and delete DIR
   (rename-file (expand-file-name (concat pkg ".el") dir)
               (concat pkg "-" vers ".el"))