Remove path prefix before tar creation.

Closes #97
This commit is contained in:
Donald Curtis 2012-05-01 07:32:08 -05:00
parent 41fdeb80d3
commit 198dbe1a9f

View file

@ -588,7 +588,7 @@ don't exist."
(expand-file-name (expand-file-name
(concat file-name "-" version ".tar") package-build-archive-dir) (concat file-name "-" version ".tar") package-build-archive-dir)
pkg-dir pkg-dir
files) (mapcar (lambda (fn) (pb/remove-prefix pkg-pathpfx fn)) files))
(delete-directory pkg-dir t nil) (delete-directory pkg-dir t nil)
(pb/add-to-archive-contents pkg-info 'tar))) (pb/add-to-archive-contents pkg-info 'tar)))