From: Philip K <philip@warpmail.net>
Date: Wed, 5 Aug 2020 14:07:41 +0000 (+0200)
Subject: Wrap skeleton logic in atomic-change-group
X-Git-Tag: emacs-28.0.90~6802
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b22b1f935d47c71b59d59da1b6d125635470beca;p=emacs.git

Wrap skeleton logic in atomic-change-group

* lisp/skeleton.el (define-skeleton): Use an atomic change group
so that if the user `C-g's in the middle of it, we're not left
with half a skeleton in the buffer (bug#42311).
---

diff --git a/lisp/skeleton.el b/lisp/skeleton.el
index 8c694c128b5..3609d6ba6a0 100644
--- a/lisp/skeleton.el
+++ b/lisp/skeleton.el
@@ -135,7 +135,8 @@ A prefix argument of -1 says to wrap around region, even if not highlighted.
 A prefix argument of zero says to wrap around zero words---that is, nothing.
 This is a way of overriding the use of a highlighted region.")
        (interactive "*P\nP")
-       (skeleton-proxy-new ',skeleton str arg))))
+       (atomic-change-group
+         (skeleton-proxy-new ',skeleton str arg)))))
 
 ;;;###autoload
 (defun skeleton-proxy-new (skeleton &optional str arg)