Commit 31764e15 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* log-edit.el (log-edit-strip-single-file-name): New var.

(log-edit-insert-changelog): Use it.
parent 4fd15622
......@@ -142,6 +142,9 @@ Signed-off-by line when committing.
**** vc-dir displays the stash status
*** log-edit-strip-single-file-name controls whether or not single filenames
are stripped when copying text from the ChangeLog to the *VC-Log* buffer.
** Calendar and diary
---
......
2009-08-19 Magnus Henoch <magnus.henoch@gmail.com>
* log-edit.el (log-edit-strip-single-file-name): New var.
(log-edit-insert-changelog): Use it.
2009-08-19 Stefan Monnier <monnier@iro.umontreal.ca>
* subr.el (read-passwd): Use read-key so keypad keys work as well.
Bug#3287
* help.el (help-print-return-message): Rename from
print-help-return-message.
......
......@@ -148,6 +148,10 @@ can be obtained from `log-edit-files'."
:type '(hook :options (log-edit-set-common-indentation
log-edit-add-to-changelog)))
(defcustom log-edit-strip-single-file-name t
"If non-nil, remove file name from single-file log entries."
:type 'boolean)
(defvar cvs-changelog-full-paragraphs t)
(make-obsolete-variable 'cvs-changelog-full-paragraphs
'log-edit-changelog-full-paragraphs
......@@ -521,7 +525,7 @@ regardless of user name or time."
(log-edit-insert-changelog-entries (log-edit-files)))
(log-edit-set-common-indentation)
(goto-char (point-min))
(when (looking-at "\\*\\s-+")
(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))
......
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