emacs-lisp/package-x.el: Create valid tar files

* emacs-lisp/package-x.el (package-upload-buffer-internal):
Create valid tar files. (Bug#19536)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b3da9dcaadfe616bb0f5c88abbe59128e6df7abb..d5080d92fd57dc646b30b884303fe6ab3df5f230 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-02-16  Kelly Dean  <kelly@prtime.org>
+
+       * emacs-lisp/package-x.el (package-upload-buffer-internal):
+       Create valid tar files. (Bug#19536)
+
 2015-02-16  Kelly Dean  <kelly@prtime.org>
 
        * desktop.el (desktop-read): Conditionally re-enable desktop autosave.

diff --git a/lisp/emacs-lisp/package-x.el b/lisp/emacs-lisp/package-x.el
index e0945d47a4573203d089a6509e455fd7a49ed3ed..6955ce8f5a65def2703ebedeadd37e8af8c05072 100644 (file)
--- a/lisp/emacs-lisp/package-x.el
+++ b/lisp/emacs-lisp/package-x.el
@@ -247,7 +247,7 @@ if it exists."
                             (concat (symbol-name pkg-name) "-readme.txt")
                             package-archive-upload-base)))
 
-           (set-buffer pkg-buffer)
+           (set-buffer (if (eq file-type 'tar) tar-data-buffer pkg-buffer))
            (write-region (point-min) (point-max)
                          (expand-file-name
                           (format "%s-%s.%s" pkg-name pkg-version extension)