Pass SVN commit message through log-edit-extract-headers

* lisp/vc/vc-svn.el (vc-svn-checkin): Pass COMMENT through
log-edit-extract-headers (bug#18954).
This commit is contained in:
Dmitry Gutov 2015-11-25 04:10:24 +02:00
parent fdc271fab0
commit a590713728

View file

@ -313,7 +313,8 @@ to the SVN command."
"SVN-specific version of `vc-backend-checkin'."
(let ((status (apply
'vc-svn-command nil 1 files "ci"
(nconc (list "-m" comment) (vc-switches 'SVN 'checkin)))))
(nconc (cons "-m" (log-edit-extract-headers comment))
(vc-switches 'SVN 'checkin)))))
(set-buffer "*vc*")
(goto-char (point-min))
(unless (equal status 0)