diff options
| -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." | |||
| 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) |