Function: cider-repl-history-forward
cider-repl-history-forward is an interactive and byte-compiled
function defined in cider-repl-history.el.
Signature
(cider-repl-history-forward &optional ARG)
Documentation
Move forward by ARG command history entries.
Key Bindings
Source Code
;; Defined in ~/.emacs.d/elpa/cider-20260414.1619/cider-repl-history.el
(defun cider-repl-history-forward (&optional arg)
"Move forward by ARG command history entries."
(interactive "p")
(beginning-of-line)
(while (not (zerop arg))
(let ((o (cider-repl-history-target-overlay-at (point) t)))
(cond
((>= arg 0)
(setq arg (1- arg))
;; We're on a cider-repl-history overlay, skip to the end of it.
(when o
(goto-char (overlay-end o))
(setq o nil))
(while (not (or o (eobp)))
(goto-char (next-overlay-change (point)))
(setq o (cider-repl-history-target-overlay-at (point) t))))
(t
(setq arg (1+ arg))
(when o
(goto-char (overlay-start o))
(setq o nil))
(while (not (or o (bobp)))
(goto-char (previous-overlay-change (point)))
(setq o (cider-repl-history-target-overlay-at (point) t)))))))
(when cider-repl-history-recenter
(recenter 1)))