[nongnu] elpa/ws-butler de5d1569bf 26/64: Clear buffer-modified-p only when necessary.

[Stefan Kangas]

branch: elpa/ws-butler
commit de5d1569bf2f1ef99bbe01c107d9cab95757f4df
Author: Le Wang <le.wang@agworld.com.au>
Commit: Le Wang <le.wang@agworld.com.au>

    Clear buffer-modified-p only when necessary.
    
    - #9
---
 ws-butler.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ws-butler.el b/ws-butler.el
index 76752970ba..33ec24aba1 100644
--- a/ws-butler.el
+++ b/ws-butler.el
@@ -207,8 +207,8 @@ ensure point doesn't jump due to white space trimming.
        (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))
+    (move-to-column (cadr ws-butler-presave-coord) t)
+    (set-buffer-modified-p nil)))
 
 (defun ws-butler-before-revert ()
   "Clear `ws-butler-presave-coord'"