aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDmitry Gutov2015-11-25 04:10:24 +0200
committerDmitry Gutov2015-11-25 04:10:24 +0200
commita59071372884552279edf9c62bfb1aa558ec6db2 (patch)
tree9b7761d281b9f5a5f6198ad690b7f202f5dacc17
parentfdc271fab057928d03407ac735c9415fc83247d5 (diff)
downloademacs-a59071372884552279edf9c62bfb1aa558ec6db2.tar.gz
emacs-a59071372884552279edf9c62bfb1aa558ec6db2.zip
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).
-rw-r--r--lisp/vc/vc-svn.el3
1 files changed, 2 insertions, 1 deletions
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."
313 "SVN-specific version of `vc-backend-checkin'." 313 "SVN-specific version of `vc-backend-checkin'."
314 (let ((status (apply 314 (let ((status (apply
315 'vc-svn-command nil 1 files "ci" 315 'vc-svn-command nil 1 files "ci"
316 (nconc (list "-m" comment) (vc-switches 'SVN 'checkin))))) 316 (nconc (cons "-m" (log-edit-extract-headers comment))
317 (vc-switches 'SVN 'checkin)))))
317 (set-buffer "*vc*") 318 (set-buffer "*vc*")
318 (goto-char (point-min)) 319 (goto-char (point-min))
319 (unless (equal status 0) 320 (unless (equal status 0)