[nongnu] elpa/ws-butler 8ca373047a 24/64: Fix point moving if after blanks.

[Stefan Kangas]

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

    Fix point moving if after blanks.
    
    - fixes #5
---
 ws-butler.el | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/ws-butler.el b/ws-butler.el
index 09d2f00c01..5f0298c73f 100644
--- a/ws-butler.el
+++ b/ws-butler.el
@@ -188,13 +188,14 @@ point."
   (highlight-changes-mode 1)
   ;; go to saved line+col
   (when ws-butler-presave-coord
-    (ws-butler-with-save
-     (widen)
-     (goto-char (point-min))
-     (let ((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 ()