branch: elpa/javelin
commit 61521bbffacf702ecd30f807c86025663b1e48f7
Author: Damian Barabonkov <[email protected]>
Commit: Damian Barabonkov <[email protected]>
fix: Improve line wrapping and use seq-position for compatibility
---
javelin.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/javelin.el b/javelin.el
index bc1d8d5b2e3..bc7bb236765 100644
--- a/javelin.el
+++ b/javelin.el
@@ -363,7 +363,8 @@ JAVELIN-NUMBER: The position (1-9) to assign the current
buffer to."
(defun javelin-go-or-assign-to (javelin-number &optional force)
"Go to javelin position if occupied, otherwise assign current buffer to it.
JAVELIN-NUMBER: The position (1-9) to go to or assign.
-With FORCE (or prefix arg \[universal-argument]), always assign even if
position is occupied."
+With FORCE (or prefix arg \[universal-argument]), always assign even if
+position is occupied."
(if (and (not force)
(bookmark-get-bookmark (javelin--bookmark-name javelin-number)
'noerror))
(javelin-go-to javelin-number)
@@ -440,7 +441,7 @@ DIRECTION should be 1 for next, -1 for previous."
(if (null positions)
(message "No javelin positions set.")
(let* ((current (javelin--position-for-current-buffer))
- (current-index (or (cl-position current positions) -1))
+ (current-index (or (seq-position positions current) -1))
(new-index (mod (+ current-index direction) (length positions)))
(new-pos (nth new-index positions)))
(when new-pos
