diff options
| author | Stefan Monnier | 2003-05-05 16:13:04 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-05-05 16:13:04 +0000 |
| commit | c217cb045280290f1cf77bdd3fe864ee8bd8b76c (patch) | |
| tree | ff2c3451d3176c155efbfbe664e1ccfede2c73da | |
| parent | 1468d75485eeb4dc227384f6dbfed4c7b1db5f86 (diff) | |
| download | emacs-c217cb045280290f1cf77bdd3fe864ee8bd8b76c.tar.gz emacs-c217cb045280290f1cf77bdd3fe864ee8bd8b76c.zip | |
(vc-svn-merge): First attempt.
| -rw-r--r-- | lisp/vc-svn.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el index 031ca0d9018..571f5c8d030 100644 --- a/lisp/vc-svn.el +++ b/lisp/vc-svn.el | |||
| @@ -328,14 +328,15 @@ This is only possible if SVN is responsible for FILE's directory.") | |||
| 328 | "Merge changes into current working copy of FILE. | 328 | "Merge changes into current working copy of FILE. |
| 329 | The changes are between FIRST-VERSION and SECOND-VERSION." | 329 | The changes are between FIRST-VERSION and SECOND-VERSION." |
| 330 | (vc-svn-command nil 0 file | 330 | (vc-svn-command nil 0 file |
| 331 | "update" "-kk" | 331 | "merge" |
| 332 | (concat "-j" first-version) | 332 | -r (if second-version |
| 333 | (concat "-j" second-version)) | 333 | (concat first-version ":" second-version) |
| 334 | first-version)) | ||
| 334 | (vc-file-setprop file 'vc-state 'edited) | 335 | (vc-file-setprop file 'vc-state 'edited) |
| 335 | (with-current-buffer (get-buffer "*vc*") | 336 | (with-current-buffer (get-buffer "*vc*") |
| 336 | (goto-char (point-min)) | 337 | (goto-char (point-min)) |
| 337 | (if (re-search-forward "conflicts during merge" nil t) | 338 | (if (looking-at "C ") |
| 338 | 1 ; signal error | 339 | 1 ; signal conflict |
| 339 | 0))) ; signal success | 340 | 0))) ; signal success |
| 340 | 341 | ||
| 341 | (defun vc-svn-merge-news (file) | 342 | (defun vc-svn-merge-news (file) |