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

Write Package-Version instead of Version (see #2325)

Browse source
This commit is contained in:
Steve Purcell 2015-03-11 16:05:38 +00:00
parent 76f3fb856e
commit e54e8ee8f4
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
package-build.el
View file

@ -701,18 +701,20 @@ Optionally PRETTY-PRINT the data."
target-dir))
(defun pb/update-or-insert-version (version)
"Ensure current buffer has a \"Version: VERSION\" header."
"Ensure current buffer has a \"Package-Version: VERSION\" header."
(goto-char (point-min))
(if (let ((case-fold-search t))
(re-search-forward "^;+* *Version *: *" nil t))
(re-search-forward "^;+* *Package-Version *: *" nil t))
(progn
(move-beginning-of-line nil)
(search-forward "V" nil t)
(backward-char)
(insert "X-Original-")
(move-beginning-of-line nil))
;; Put the new header in a sensible place if we can
(re-search-forward "^;+* *\\(Version:\\|Keywords\\|URL\\)" nil t)
(forward-line))
(insert (format ";; Version: %s" version))
(insert (format ";; Package-Version: %s" version))
(newline))
(defun pb/ensure-ends-here-line (file-path)