aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2003-05-05 16:06:10 +0000
committerStefan Monnier2003-05-05 16:06:10 +0000
commit1468d75485eeb4dc227384f6dbfed4c7b1db5f86 (patch)
treea2dc655e97b194e14fa8a7d3fd25aa57549e8e4e
parent478e7df5d072f364d06847540ca09adb22d5abde (diff)
downloademacs-1468d75485eeb4dc227384f6dbfed4c7b1db5f86.tar.gz
emacs-1468d75485eeb4dc227384f6dbfed4c7b1db5f86.zip
(vc-svn-merge-news): Adjust for subversion.
-rw-r--r--lisp/vc-svn.el18
1 files changed, 8 insertions, 10 deletions
diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index 3117a0a33bd..031ca0d9018 100644
--- a/lisp/vc-svn.el
+++ b/lisp/vc-svn.el
@@ -350,29 +350,27 @@ The changes are between FIRST-VERSION and SECOND-VERSION."
350 (goto-char (point-min)) 350 (goto-char (point-min))
351 ;; get new workfile version 351 ;; get new workfile version
352 (if (re-search-forward 352 (if (re-search-forward
353 "^Merging differences between [0-9.]* and \\([0-9.]*\\) into" nil t) 353 "^\\(Updated to\\|At\\) revision \\([0-9]+\\)" nil t)
354 (vc-file-setprop file 'vc-workfile-version (match-string 1)) 354 (vc-file-setprop file 'vc-workfile-version (match-string 2))
355 (vc-file-setprop file 'vc-workfile-version nil)) 355 (vc-file-setprop file 'vc-workfile-version nil))
356 ;; get file status 356 ;; get file status
357 (goto-char (point-min))
357 (prog1 358 (prog1
358 (if (eq (buffer-size) 0) 359 (if (looking-at "At revision")
359 0 ;; there were no news; indicate success 360 0 ;; there were no news; indicate success
360 (if (re-search-forward 361 (if (re-search-forward
361 (concat "^\\([CMUP] \\)?" 362 (concat "^\\([CGDU] \\)?"
362 (regexp-quote (file-name-nondirectory file)) 363 (regexp-quote (file-name-nondirectory file)))
363 "\\( already contains the differences between \\)?")
364 nil t) 364 nil t)
365 (cond 365 (cond
366 ;; Merge successful, we are in sync with repository now 366 ;; Merge successful, we are in sync with repository now
367 ((or (match-string 2) 367 ((string= (match-string 1) "U ")
368 (string= (match-string 1) "U ")
369 (string= (match-string 1) "P "))
370 (vc-file-setprop file 'vc-state 'up-to-date) 368 (vc-file-setprop file 'vc-state 'up-to-date)
371 (vc-file-setprop file 'vc-checkout-time 369 (vc-file-setprop file 'vc-checkout-time
372 (nth 5 (file-attributes file))) 370 (nth 5 (file-attributes file)))
373 0);; indicate success to the caller 371 0);; indicate success to the caller
374 ;; Merge successful, but our own changes are still in the file 372 ;; Merge successful, but our own changes are still in the file
375 ((string= (match-string 1) "M ") 373 ((string= (match-string 1) "G ")
376 (vc-file-setprop file 'vc-state 'edited) 374 (vc-file-setprop file 'vc-state 'edited)
377 0);; indicate success to the caller 375 0);; indicate success to the caller
378 ;; Conflicts detected! 376 ;; Conflicts detected!