[nongnu] elpa/ws-butler 8ccf6a0b74 61/64: Merge pull request #31 from hlissner/patch-1

[Stefan Kangas]

branch: elpa/ws-butler
commit 8ccf6a0b74c74abf662e0a4099ecae8a845d145b
Merge: 52321b99be b9bcf50496
Author: Le Wang <lewang@users.noreply.github.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #31 from hlissner/patch-1
    
    Inhibit modification hooks in ws-butler-after-save
---
 ws-butler.el | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/ws-butler.el b/ws-butler.el
index 262ef572e0..0cb5f62d84 100644
--- a/ws-butler.el
+++ b/ws-butler.el
@@ -279,15 +279,15 @@ ensure point doesn't jump due to white space trimming."
   (ws-butler-clear-properties)
   ;; go to saved line+col
   (when ws-butler-presave-coord
-    (let (remaining-lines)
-      (ws-butler-with-save
-       (widen)
-       (goto-char (point-min))
-       (setq remaining-lines (forward-line (1- (car 
ws-butler-presave-coord)))))
-      (unless (eq remaining-lines 0)
-        (insert (make-string remaining-lines ?\n))))
-    (move-to-column (cadr ws-butler-presave-coord) t)
-    (set-buffer-modified-p nil)))
+    (with-silent-modifications
+      (let (remaining-lines)
+        (ws-butler-with-save
+         (widen)
+         (goto-char (point-min))
+         (setq remaining-lines (forward-line (1- (car 
ws-butler-presave-coord)))))
+        (unless (eq remaining-lines 0)
+          (insert (make-string remaining-lines ?\n))))
+      (move-to-column (cadr ws-butler-presave-coord) t))))
 
 (defun ws-butler-before-revert ()
   "Clear `ws-butler-presave-coord'."