diff options
author | Dmitry Gutov <dgutov@yandex.ru> | 2015-11-25 04:10:24 +0200 |
---|---|---|
committer | Dmitry Gutov <dgutov@yandex.ru> | 2015-11-25 04:10:24 +0200 |
commit | a59071372884552279edf9c62bfb1aa558ec6db2 (patch) | |
tree | 9b7761d281b9f5a5f6198ad690b7f202f5dacc17 /lisp/vc/vc-svn.el | |
parent | fdc271fab057928d03407ac735c9415fc83247d5 (diff) | |
download | emacs-a59071372884552279edf9c62bfb1aa558ec6db2.tar.gz |
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).
Diffstat (limited to 'lisp/vc/vc-svn.el')
-rw-r--r-- | lisp/vc/vc-svn.el | 3 |
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." "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) |