github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2025-04-11 17:00:09 -09:00
Code Issues Projects Releases Packages Wiki Activity

When writing single-file packages, update Version header

Browse source 
Closes
This commit is contained in:
Steve Purcell 2013-03-26 20:24:02 +00:00
parent da15f0e6c7
commit 58bf468f42
1 changed files with 5 additions and 2 deletions

7
package-build.el
View file

@ -497,7 +497,7 @@ The file is written to `package-build-working-dir'."
(if (re-search-forward "^;;;* *Version: *" nil t) (if (re-search-forward "^;;;* *Version: *" nil t)
(kill-whole-line) (kill-whole-line)
(forward-line)) (forward-line))
(insert (format ";;; Version: %s" version)) (insert (format ";; Version: %s" version))
(newline)) (newline))
(defun pb/get-package-info (file-path) (defun pb/get-package-info (file-path)
@ -704,7 +704,10 @@ FILES is a list of (SOURCE . DEST) relative filepath pairs."
cfg))) cfg)))
(when (file-exists-p pkg-target) (when (file-exists-p pkg-target)
(delete-file pkg-target t)) (delete-file pkg-target t))
(copy-file pkg-source pkg-target) (with-temp-buffer
(insert-file-contents-literally pkg-source)
(pb/update-or-insert-version version)
(write-file pkg-target))
(pb/write-pkg-readme (and (> (length pkg-info) 4) (aref pkg-info 4)) (pb/write-pkg-readme (and (> (length pkg-info) 4) (aref pkg-info 4))
file-name) file-name)