github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2024-11-14 19:19:32 +00:00
Code Issues Projects Releases Packages Wiki Activity

Save upstream Version header line as X-Original-Version

Browse source 
Closes #659
This commit is contained in:
Steve Purcell 2013-04-07 11:02:27 +01:00
parent 0346f6349c
commit 8302f8d308
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
package-build.el
View file

@ -505,7 +505,12 @@ The file is written to `package-build-working-dir'."
"Ensure current buffer has a \"Version: VERSION\" header."
(goto-char (point-min))
(if (re-search-forward "^;;;* *Version: *" nil t)
(kill-whole-line)
(progn
(move-beginning-of-line nil)
(search-forward "Version" nil t)
(backward-word)
(insert "X-Original-")
(move-beginning-of-line nil))
(forward-line))
(insert (format ";; Version: %s" version))
(newline))