diff options
| author | Bailey Ling <bling@live.ca> | 2016-02-10 19:42:52 -0500 |
|---|---|---|
| committer | Bailey Ling <bling@live.ca> | 2016-02-10 19:42:52 -0500 |
| commit | 119b2acbaa30b017eedc99fb6583aa791ead323e (patch) | |
| tree | 491d04d1d6d6df38424868ad89280ef0aecde1c6 /evil-jumps.el | |
| parent | 47b92625128e0550435ebdff1cccc762f127245a (diff) | |
add more jump lists tests
Diffstat (limited to 'evil-jumps.el')
| -rw-r--r-- | evil-jumps.el | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/evil-jumps.el b/evil-jumps.el index fea6f90..57c74ba 100644 --- a/evil-jumps.el +++ b/evil-jumps.el @@ -185,26 +185,26 @@ POS defaults to point." "Go to older position in jump list. To go the other way, press \ \\<evil-motion-state-map>\\[evil-jump-forward]." - (let* ((count (or count 1)) - (struct (evil--jumps-get-current)) - (idx (evil-jumps-struct-idx struct))) + (let ((count (or count 1))) (evil-motion-loop (nil count) - (evil--jumps-message "jumping back %s" idx) - (when (= idx -1) - (setq idx (+ idx 1)) - (setf (evil-jumps-struct-idx struct) 0) - (evil--jumps-push)) - (evil--jumps-jump-to-index (+ idx 1))))) + (let* ((struct (evil--jumps-get-current)) + (idx (evil-jumps-struct-idx struct))) + (evil--jumps-message "jumping back %s" idx) + (when (= idx -1) + (setq idx (+ idx 1)) + (setf (evil-jumps-struct-idx struct) 0) + (evil--jumps-push)) + (evil--jumps-jump-to-index (+ idx 1)))))) (evil-define-motion evil-jump-forward (count) "Go to newer position in jump list. To go the other way, press \ \\<evil-motion-state-map>\\[evil-jump-backward]." - (let* ((count (or count 1)) - (struct (evil--jumps-get-current)) - (idx (evil-jumps-struct-idx struct))) + (let ((count (or count 1))) (evil-motion-loop (nil count) - (evil--jumps-jump-to-index (- idx 1))))) + (let* ((struct (evil--jumps-get-current)) + (idx (evil-jumps-struct-idx struct))) + (evil--jumps-jump-to-index (- idx 1)))))) (defun evil--jumps-window-configuration-hook (&rest args) (let* ((window-list (window-list-1 nil nil t)) |
