el/dot-emacs.el: Turn on `smerge-mode' if we see conflict markers.

[profile] / el / dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index c6c038c7bcd14b2c70698c1b6fb3e2271ba84877..c46143c62432a07c22386db00b2996f7bfab7eda 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -3979,6 +3979,13 @@ (defun mdw-repolist-column-unpushed-to-upstream (_id)
           (propertize (number-to-string n) 'face
                       (if (> n 0) 'bold 'shadow))))))
 
+(defun mdw-try-smerge ()
+  (save-excursion
+    (goto-char (point-min))
+    (when (re-search-forward "^<<<<<<< " nil t)
+      (smerge-mode 1))))
+(add-hook 'find-file-hook 'mdw-try-smerge t)
+
 ;;;--------------------------------------------------------------------------
 ;;; MPC configuration.