aboutsummaryrefslogtreecommitdiffstats
path: root/admin/gitmerge.el
diff options
context:
space:
mode:
authorStefan Monnier2025-07-01 09:24:19 -0400
committerStefan Monnier2025-07-01 09:24:19 -0400
commit549232e2e45c77852d2ecd278fe233ea93ce172e (patch)
treeb2d69e122fd4e000b7868eb2f44cc8981c32c0ed /admin/gitmerge.el
parentab568bce0c9b9f5cc478ebdcdeea6d93e0c711ae (diff)
downloademacs-549232e2e45c77852d2ecd278fe233ea93ce172e.tar.gz
emacs-549232e2e45c77852d2ecd278fe233ea93ce172e.zip
Revert "admin/gitmerge.el (gitmerge-resolve): Use `replace-region-contents`"
This reverts commit 17d976e22e9b0ba10dcbe1655a93bc4d165d7097 because the change is not worth the risk.
Diffstat (limited to 'admin/gitmerge.el')
-rw-r--r--admin/gitmerge.el8
1 files changed, 6 insertions, 2 deletions
diff --git a/admin/gitmerge.el b/admin/gitmerge.el
index ec2e5dd267b..5bfb23dc3a2 100644
--- a/admin/gitmerge.el
+++ b/admin/gitmerge.el
@@ -324,8 +324,12 @@ Returns non-nil if conflicts remain."
324 ;; match-3's first. 324 ;; match-3's first.
325 (let ((match3 (buffer-substring start3 end3)) 325 (let ((match3 (buffer-substring start3 end3))
326 (match1 (buffer-substring start1 end1))) 326 (match1 (buffer-substring start1 end1)))
327 (replace-region-contents start3 end3 match1 0) 327 (delete-region start3 end3)
328 (replace-region-contents start1 end1 match3 0))))) 328 (goto-char start3)
329 (insert match1)
330 (delete-region start1 end1)
331 (goto-char start1)
332 (insert match3)))))
329 ;; (pop-to-buffer (current-buffer)) (debug 'before-resolve) 333 ;; (pop-to-buffer (current-buffer)) (debug 'before-resolve)
330 )) 334 ))
331 ;; Try to resolve the conflicts. 335 ;; Try to resolve the conflicts.