From 74c5af6e1a302534a5922e9fbaef1eb745829c24 Mon Sep 17 00:00:00 2001 From: Steve Purcell Date: Mon, 22 Jul 2013 10:11:44 +0100 Subject: [PATCH] Include *.el.in in the default files list, and rename to .el on copy --- package-build.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/package-build.el b/package-build.el index ace1cbc2..7f3a0772 100644 --- a/package-build.el +++ b/package-build.el @@ -84,7 +84,7 @@ function for access to this function") (defvar pb/archive-alist-initialized nil "Determines if pb/archive-alist has been initialized.") -(defconst pb/default-files-spec '("*.el" "dir" +(defconst pb/default-files-spec '("*.el" "*.el.in" "dir" "*.info" "*.texi" "*.texinfo" "doc/*.info" "doc/*.texi" "doc/*.texinfo" (:exclude "*-test.el" "*-tests.el")) @@ -662,7 +662,13 @@ file path and DEST is the relative path to which it should be copied." (concat prefix (car entry))))) (nconc lst (mapcar (lambda (f) - (cons f (concat prefix (file-name-nondirectory f)))) + (let ((destname))) + (cons f + (concat prefix + (replace-regexp-in-string + "\\.in\\'" + "" + (file-name-nondirectory f))))) (file-expand-wildcards entry))))))))