From: Mauro Aranda <maurooaranda@gmail.com>
Date: Sat, 22 Feb 2025 21:31:40 +0000 (-0300)
Subject: Fix last commit to wid-edit.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=26a2b97fa6a20b8c2ee9f178ebbbd4ef387524fe;p=emacs.git

Fix last commit to wid-edit.el

* lisp/wid-edit.el (widget-editable-list-entry-create): Don't
use save-excursion when indenting.  Previously, it was needed
because we inserted the :entry-format string, but we don't do
that anymore.  (Bug#53606)

https://lists.gnu.org/archive/html/emacs-devel/2025-02/msg00958.html
(cherry picked from commit 44a1c4a9aea54d6542bcf0c231b080f0ed023229)
---

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 0bfe9ef730f..1ddfd0cc08e 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -3071,10 +3071,9 @@ Save CHILD into the :last-deleted list, so it can be inserted later."
         (onext 0) (next 0)
 	child delete insert)
     (widget-specify-insert
-     (save-excursion
-       (and (widget--should-indent-p)
-            (widget-get widget :indent)
-            (insert-char ?\s (widget-get widget :indent))))
+     (and (widget--should-indent-p)
+          (widget-get widget :indent)
+          (insert-char ?\s (widget-get widget :indent)))
      ;; Parse % escapes in format.
      (while (string-match "%\\(.\\)" str next)
        (setq next (match-end 1))