From: Morgan Willcock <morgan@ice9.digital>
Date: Sun, 31 Dec 2023 20:47:17 +0000 (+0000)
Subject: Fix last change in tempo.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=af11952ea698deb42cbf4b0b668b3cb3b6243f90;p=emacs.git

Fix last change in tempo.el

* lisp/tempo.el: Set marker type for tempo-region-start to
move when text is inserted at its position.  This prevents
the template from inserting text into the region.  (Bug#68185)

(cherry picked from commit d69fb6dab28e55447516341cf28f1b6d06937ad6)
---

diff --git a/lisp/tempo.el b/lisp/tempo.el
index f32313d80d0..513e778e4ef 100644
--- a/lisp/tempo.el
+++ b/lisp/tempo.el
@@ -198,6 +198,10 @@ This is an abnormal hook where the functions are called with one argument
 (defvar-local tempo-region-start (make-marker)
   "Region start when inserting around the region.")
 
+;; Insertion by the template at the region start position should move
+;; the marker to preserve the original region contents.
+(set-marker-insertion-type tempo-region-start t)
+
 (defvar-local tempo-region-stop (make-marker)
   "Region stop when inserting around the region.")