emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/evil-escape 17023f4ce4 072/133: Correctly revert modified


From: ELPA Syncer
Subject: [nongnu] elpa/evil-escape 17023f4ce4 072/133: Correctly revert modified status of the buffer
Date: Wed, 3 Jan 2024 21:59:54 -0500 (EST)

branch: elpa/evil-escape
commit 17023f4ce41c1bf1fbde4d309c7439cd82840338
Author: syl20bnr <sylvain.benner@gmail.com>
Commit: syl20bnr <sylvain.benner@gmail.com>

    Correctly revert modified status of the buffer
---
 evil-escape.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/evil-escape.el b/evil-escape.el
index 47408d82ba..45c91a2c60 100644
--- a/evil-escape.el
+++ b/evil-escape.el
@@ -99,10 +99,12 @@ with a key sequence."
 (defun evil-escape-pre-command-hook ()
   "evil-escape pre-command hook."
   (when (evil-escape-p)
-    (let ((inserted (evil-escape--insert))
+    (let ((modified (buffer-modified-p))
+          (inserted (evil-escape--insert))
           (skey (elt evil-escape-key-sequence 1))
           (evt (read-event nil nil evil-escape-delay)))
       (when inserted (evil-escape--delete))
+      (set-buffer-modified-p modified)
       (cond
        ((and (integerp evt) (char-equal evt skey))
         (evil-escape--escape)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]