Commit b8bd9908 authored by Glenn Morris's avatar Glenn Morris
Browse files

log-edit.el fix for bug#8057.

* lisp/log-edit.el (log-edit-insert-changelog):
Fix `log-edit-strip-single-file-name' functionality.
parent b9c82730
2011-02-17 Glenn Morris <rgm@gnu.org>
* log-edit.el (log-edit-insert-changelog):
Fix `log-edit-strip-single-file-name' functionality. (Bug#8057)
2011-02-14 Chong Yidong <cyd@stupidchicken.com>
* pgg-gpg.el (pgg-gpg-process-region): Bind
......
......@@ -621,14 +621,18 @@ regardless of user name or time."
(delete-region start end)
(rfc822-goto-eoh)
(insert "Fixes: " fixes "\n" (if (looking-at "\n") "" "\n")))))
(goto-char (point-min))
(when (and log-edit-strip-single-file-name (looking-at "\\*\\s-+"))
(forward-line 1)
(when (not (re-search-forward "^\\*\\s-+" nil t))
(goto-char (point-min))
(skip-chars-forward "^():")
(skip-chars-forward ": ")
(delete-region (point-min) (point))))))
(and log-edit-strip-single-file-name
(progn (rfc822-goto-eoh)
(if (looking-at "\n") (forward-char 1))
(looking-at "\\*\\s-+"))
(let ((start (point)))
(forward-line 1)
(when (not (re-search-forward "^\\*\\s-+" nil t))
(goto-char start)
(skip-chars-forward "^():")
(skip-chars-forward ": ")
(delete-region start (point)))))
(goto-char (point-min))))
;;;;
;;;; functions for getting commit message from ChangeLog a file...
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment