branch: elpa/ws-butler
commit 8ca373047a368df520e06400f916cd8429e1c354
Author: Le Wang <[email protected]>
Commit: Le Wang <[email protected]>
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 ()
