mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-23 07:19:15 +00:00
(vc-svn-merge): First attempt.
This commit is contained in:
parent
1468d75485
commit
c217cb0452
@ -328,14 +328,15 @@ This is only possible if SVN is responsible for FILE's directory.")
|
||||
"Merge changes into current working copy of FILE.
|
||||
The changes are between FIRST-VERSION and SECOND-VERSION."
|
||||
(vc-svn-command nil 0 file
|
||||
"update" "-kk"
|
||||
(concat "-j" first-version)
|
||||
(concat "-j" second-version))
|
||||
"merge"
|
||||
-r (if second-version
|
||||
(concat first-version ":" second-version)
|
||||
first-version))
|
||||
(vc-file-setprop file 'vc-state 'edited)
|
||||
(with-current-buffer (get-buffer "*vc*")
|
||||
(goto-char (point-min))
|
||||
(if (re-search-forward "conflicts during merge" nil t)
|
||||
1 ; signal error
|
||||
(if (looking-at "C ")
|
||||
1 ; signal conflict
|
||||
0))) ; signal success
|
||||
|
||||
(defun vc-svn-merge-news (file)
|
||||
|
Loading…
Reference in New Issue
Block a user