[nongnu] elpa/ws-butler a7f62dcb00 17/64: fix bug when point is after a tab at save time

[Stefan Kangas]

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

    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