Function: evil--next-mark

evil--next-mark is a byte-compiled function defined in evil-commands.el.

Signature

(evil--next-mark FORWARDP)

Documentation

Move to next lowercase mark.

Move forward if FORWARDP is non-nil, and backward otherwise. Loop back to the beginning of buffer if the end is reached.

Source Code

;; Defined in ~/.emacs.d/elpa/evil-20251108.138/evil-commands.el
(defun evil--next-mark (forwardp)
  "Move to next lowercase mark.
Move forward if FORWARDP is non-nil, and backward otherwise. Loop back
to the beginning of buffer if the end is reached."
  (let* ((pos (if forwardp (1+ (point)) (point)))
         (centered-markers
          (cl-sort
           (or (evil--lowercase-markers) (user-error "No marks in this buffer"))
           (if forwardp #'< #'>)
           :key (lambda (x) (+ (if (< (cdr x) pos) 0 most-negative-fixnum)
                               (cdr x))))))
    (goto-char (cdar centered-markers))))