Function: cider-repl-history-pattern

cider-repl-history-pattern is a byte-compiled function defined in cider-repl.el.

Signature

(cider-repl-history-pattern &optional USE-CURRENT-INPUT)

Documentation

Return the regexp for the navigation commands.

If USE-CURRENT-INPUT is non-nil, use the current input.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260414.1619/cider-repl.el
(defun cider-repl-history-pattern (&optional use-current-input)
  "Return the regexp for the navigation commands.
If USE-CURRENT-INPUT is non-nil, use the current input."
  (cond ((cider-history-search-in-progress-p)
         cider-repl-history-pattern)
        (use-current-input
         (cl-assert (<= cider-repl-input-start-mark (point)))
         (let ((str (cider-repl--current-input t)))
           (cond ((string-match-p "^[ \n]*$" str) nil)
                 (t (concat "^" (regexp-quote str))))))
        (t nil)))