Slightly tidier code for rewriting Version -> X-Original-Version

This commit is contained in:
Steve Purcell 2013-04-07 11:05:06 +01:00
parent 8302f8d308
commit dd4983d59c

View file

@ -507,8 +507,8 @@ The file is written to `package-build-working-dir'."
(if (re-search-forward "^;;;* *Version: *" nil t)
(progn
(move-beginning-of-line nil)
(search-forward "Version" nil t)
(backward-word)
(search-forward "V" nil t)
(backward-char)
(insert "X-Original-")
(move-beginning-of-line nil))
(forward-line))