# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1207876243 0
# Node ID 955774916817cf92261730e222a24966f0b3d094
# Parent  ec7aefc66165d16cc6b088c3fb955eb7591130b2
(smerge-apply-resolution-patch): Fix typo.
(smerge-resolve): Merge the "2-way refinement" case with one half of
the "mere whitespace" resolution.

diff -r ec7aefc66165 -r 955774916817 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Apr 10 20:35:54 2008 +0000
+++ b/lisp/ChangeLog	Fri Apr 11 01:10:43 2008 +0000
@@ -1,3 +1,9 @@
+2008-04-11  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* smerge-mode.el (smerge-apply-resolution-patch): Fix typo.
+	(smerge-resolve): Merge the "2-way refinement" case with one half of
+	the "mere whitespace" resolution.
+
 2008-04-10  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* vc-bzr.el (vc-bzr-after-dir-status): Detect the conflict state.
diff -r ec7aefc66165 -r 955774916817 lisp/smerge-mode.el
--- a/lisp/smerge-mode.el	Thu Apr 10 20:35:54 2008 +0000
+++ b/lisp/smerge-mode.el	Fri Apr 11 01:10:43 2008 +0000
@@ -457,7 +457,7 @@
             (with-current-buffer textbuf
               (forward-line (- startline line))
               (insert "<<<<<<< " name1 "\n" othertext
-                      (if name2 (concat "||||||| " name2))
+                      (if name2 (concat "||||||| " name2 "\n"))
                       "=======\n")
               (forward-line lines)
               (insert ">>>>>>> " name3 "\n")
@@ -498,42 +498,48 @@
               (error nil))
             ;; Nothing to do: the resolution function has done it already.
             nil)
-	   ;; "Mere whitespace" conflicts.
-	   ((or (and (eq m1e m3e) (eq m1b m3b)) ;Non-conflict.
-		(progn
-		  (setq m (make-temp-file "smm"))
-		  (write-region m1b m1e m nil 'silent)
-		  (setq o (make-temp-file "smo"))
-		  (write-region m3b m3e o nil 'silent)
-                  ;; Same patch applied on both sides, with whitespace changes.
-		  (zerop (call-process diff-command nil nil nil "-b" m o)))
-		(when m2e
-		  (setq b (make-temp-file "smb"))
-		  (write-region m2b m2e b nil 'silent)
-                  ;; Only minor whitespace changes made locally.
-		  (zerop (call-process diff-command nil buf nil "-bc" b m))))
-	    (set-match-data md)
-	    (smerge-keep-n 3))
+           ;; Non-conflict.
+	   ((and (eq m1e m3e) (eq m1b m3b))
+	    (set-match-data md) (smerge-keep-n 3))
            ;; Refine a 2-way conflict using "diff -b".
            ;; In case of a 3-way conflict with an empty base
            ;; (i.e. 2 conflicting additions), we do the same, presuming
            ;; that the 2 additions should be somehow merged rather
            ;; than concatenated.
-	   ((not (or (and m2b (not (eq m2b m2e)))
-                     (eq m1b m1e) (eq m3b m3e)
-                     (let ((lines (count-lines m3b m3e)))
-                       (call-process diff-command nil buf nil "-b" o m)
+	   ((let ((lines (count-lines m3b m3e)))
+              (setq m (make-temp-file "smm"))
+              (write-region m1b m1e m nil 'silent)
+              (setq o (make-temp-file "smo"))
+              (write-region m3b m3e o nil 'silent)
+              (not (or (eq m1b m1e) (eq m3b m3e)
+                       (and (not (zerop (call-process diff-command
+                                                      nil buf nil "-b" o m)))
+                            ;; TODO: We don't know how to do the refinement
+                            ;; if there's a non-empty ancestor and m1 and m3
+                            ;; aren't just plain equal.
+                            m2b (not (eq m2b m2e)))
                        (with-current-buffer buf
                          (goto-char (point-min))
                          ;; Make sure there's some refinement.
                          (looking-at
                           (concat "1," (number-to-string lines) "c"))))))
             (smerge-apply-resolution-patch buf m0b m0e m3b m3e m2b))
+	   ;; "Mere whitespace changes" conflicts.
+           ((when m2e
+              (setq b (make-temp-file "smb"))
+              (write-region m2b m2e b nil 'silent)
+              (with-current-buffer buf (erase-buffer))
+              ;; Only minor whitespace changes made locally.
+              ;; BEWARE: pass "-c" 'cause the output is reused in the next test.
+              (zerop (call-process diff-command nil buf nil "-bc" b m)))
+            (set-match-data md)
+	    (smerge-keep-n 3))
 	   ;; Try "diff -b BASE MINE | patch OTHER".
 	   ((when (and (not safe) m2e b
                        ;; If the BASE is empty, this would just concatenate
                        ;; the two, which is rarely right.
                        (not (eq m2b m2e)))
+              ;; BEWARE: we're using here the patch of the previous test.
 	      (with-current-buffer buf
 		(zerop (call-process-region
 			(point-min) (point-max) "patch" t nil nil