mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

(smerge-refine): Also work on "same change conflicts".

Browse Source 
(smerge-makeup-conflict): New command.
This commit is contained in:
Stefan Monnier 2008-01-15 21:40:09 +00:00
parent 2507310c84
commit 30e68410fe
2 changed files with 37 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2008-01-15 Stefan Monnier <monnier@iro.umontreal.ca>
* smerge-mode.el (smerge-refine): Also work on "same change conflicts".
(smerge-makeup-conflict): New command.
2008-01-15 Thien-Thi Nguyen <ttn@gnuvola.org> 2008-01-15 Thien-Thi Nguyen <ttn@gnuvola.org>
* log-edit.el (log-edit): Doc fix. * log-edit.el (log-edit): Doc fix.

36
lisp/smerge-mode.el
View File

@ -851,10 +851,12 @@ replace chars to try and eliminate some spurious differences."
(remove-overlays (match-beginning 0) (match-end 0) 'smerge 'refine) (remove-overlays (match-beginning 0) (match-end 0) 'smerge 'refine)
(smerge-ensure-match 1) (smerge-ensure-match 1)
(smerge-ensure-match 3) (smerge-ensure-match 3)
(smerge-refine-subst (match-beginning 1) (match-end 1) ;; Match 1 and 3 may be one and the same in case of trivial diff3 -A conflict.
(match-beginning 3) (match-end 3) (let ((n1 (if (eq (match-end 1) (match-end 3)) 2 1)))
'((smerge . refine) (smerge-refine-subst (match-beginning n1) (match-end n1)
(face . smerge-refined-change)))) (match-beginning 3) (match-end 3)
'((smerge . refine)
(face . smerge-refined-change)))))
(defun smerge-diff (n1 n2) (defun smerge-diff (n1 n2)
(smerge-match-conflict) (smerge-match-conflict)
@ -992,6 +994,32 @@ buffer names."
(message "Conflict resolution finished; you may save the buffer"))))) (message "Conflict resolution finished; you may save the buffer")))))
(message "Please resolve conflicts now; exit ediff when done"))) (message "Please resolve conflicts now; exit ediff when done")))
(defun smerge-makeup-conflict (pt1 pt2 pt3 &optional pt4)
"Insert diff3 markers to make a new conflict.
Uses point and mark for 2 of the relevant positions and previous marks
for the other ones.
By default, makes up a 2-way conflict,
with a \\[universal-argument] prefix, makes up a 3-way conflict."
(interactive
(list (point)
(mark)
(progn (pop-mark) (mark))
(when current-prefix-arg (pop-mark) (mark))))
;; Start from the end so as to avoid problems with pos-changes.
(destructuring-bind (pt1 pt2 pt3 &optional pt4)
(sort (list* pt1 pt2 pt3 (if pt4 (list pt4))) '>=)
(goto-char pt1) (beginning-of-line)
(insert ">>>>>>> OTHER\n")
(goto-char pt2) (beginning-of-line)
(insert "=======\n")
(goto-char pt3) (beginning-of-line)
(when pt4
(insert "||||||| BASE\n")
(goto-char pt4) (beginning-of-line))
(insert "<<<<<<< MINE\n"))
(if smerge-mode nil (smerge-mode 1))
(smerge-refine))
(defconst smerge-parsep-re (defconst smerge-parsep-re
(concat smerge-begin-re "\\|" smerge-end-re "\\|" (concat smerge-begin-re "\\|" smerge-end-re "\\|"