From: Dmitry Gutov <dgutov@yandex.ru>
Date: Wed, 25 Nov 2015 02:10:24 +0000 (+0200)
Subject: Pass SVN commit message through log-edit-extract-headers
X-Git-Tag: emacs-25.0.90~653
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a59071372884552279edf9c62bfb1aa558ec6db2;p=emacs.git

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).
---

diff --git a/lisp/vc/vc-svn.el b/lisp/vc/vc-svn.el
index de58fb91c62..62689a38423 100644
--- a/lisp/vc/vc-svn.el
+++ b/lisp/vc/vc-svn.el
@@ -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)