[nongnu] elpa/ws-butler e3a38d93e0 64/64: Merge pull request #37 from lewang/revert-31-patch-1

[Stefan Kangas]

branch: elpa/ws-butler
commit e3a38d93e01014cd47bf5af4924459bd145fd7c4
Merge: 2d546097bb 6f46d5885a
Author: Le Wang <lewang@users.noreply.github.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #37 from lewang/revert-31-patch-1
    
    Revert "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 a6e94fb346..4eb2261996 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
-    (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))))
+    (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)))
 
 (defun ws-butler-before-revert ()
   "Clear `ws-butler-presave-coord'."