branch: elpa/ws-butler
commit de5d1569bf2f1ef99bbe01c107d9cab95757f4df
Author: Le Wang <[email protected]>
Commit: Le Wang <[email protected]>
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'"
