Merge pull request #390 from dgutov/master

Remove the leading blank line in the readmes
This commit is contained in:
Steve Purcell 2012-11-29 00:28:51 -08:00
commit 715370b55b

View file

@ -450,6 +450,9 @@ The file is written to `package-build-working-dir'."
(when (re-search-forward "^;;; Commentary:\n" nil t)
(replace-match ""))
(while (re-search-forward "^\\(;+ ?\\)" nil t)
(replace-match ""))
(goto-char (point-min))
(when (re-search-forward "\\`\\( *\n\\)+" nil t)
(replace-match "")))
(delete-trailing-whitespace)
(let ((coding-system-for-write buffer-file-coding-system))