branch: elpa/ws-butler
commit a7f62dcb0083585b6f7040b9bb5b64cb16468ddb
Author: Le Wang <[email protected]>
Commit: Le Wang <[email protected]>
fix bug when point is after a tab at save time
#1
---
ws-butler.el | 10 ++++------
1 file changed, 4 insertions(+), 6 deletions(-)
diff --git a/ws-butler.el b/ws-butler.el
index 9f5ac79417..4a67b2936e 100644
--- a/ws-butler.el
+++ b/ws-butler.el
@@ -129,7 +129,10 @@ replaced by spaces.
This will also ensure point doesn't jump due to white space
trimming. (i.e. keep whitespace after EOL text but before
point."
- (setq ws-butler-presave-coord nil)
+ ;; save data to restore later
+ (setq ws-butler-presave-coord (list
+ (line-number-at-pos (point))
+ (current-column)))
(let (last-end)
(ws-butler-map-changes
(lambda (_prop beg end)
@@ -138,11 +141,6 @@ point."
(point-at-bol))
end (progn (goto-char end)
(point-at-eol))))
- (when (and (>= (point) beg)
- (<= (point) end))
- (setq ws-butler-presave-coord (list
- (line-number-at-pos (point))
- (current-column))))
(ws-butler-clean-region beg end)
(setq last-end end)))
;; trim EOF newlines if required
