diff options
| author | Stefan Monnier | 2003-05-05 16:06:10 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-05-05 16:06:10 +0000 |
| commit | 1468d75485eeb4dc227384f6dbfed4c7b1db5f86 (patch) | |
| tree | a2dc655e97b194e14fa8a7d3fd25aa57549e8e4e | |
| parent | 478e7df5d072f364d06847540ca09adb22d5abde (diff) | |
| download | emacs-1468d75485eeb4dc227384f6dbfed4c7b1db5f86.tar.gz emacs-1468d75485eeb4dc227384f6dbfed4c7b1db5f86.zip | |
(vc-svn-merge-news): Adjust for subversion.
| -rw-r--r-- | lisp/vc-svn.el | 18 |
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! |