;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (require 'evil-collection) (defconst evil-collection-consult-maps nil)#@19 Set the bindings. (defalias 'evil-collection-consult-set-bindings #[0 "\300\211\205\211@\301!\210\302\303\304#\210A\266\202\202\207" [(consult-outline consult-mark consult-global-mark consult-imenu consult-org-heading consult-org-agenda consult-line) evil-declare-not-repeat evil-set-command-property :jump t] 6 (#$ . 154)])#@67 Return alist of char & marker for evil markers in current buffer. (defalias 'evil-collection-consult--evil-mark-ring #[0 "\301\302\303\"\304\"\207" [evil-markers-alist sort cl-remove-if #[257 "\300@!\206\f\301\243!?\207" [evil-global-marker-p markerp] 3 "\n\n(fn ELEM)"] car-less-than-car] 4 (#$ . 491)])#@215 Return alist of lines containing markers from `evil-mark-alist'. Opional MARKERS should be an alist containing (char . marker) pairs as defined in `evil-collection-consult--evil-mark-ring'. (fn &optional MARKERS) (defalias 'evil-collection-consult--mark-candidates #[256 "\301 \210\302 \204\f\303\304!\210\305p\212\206\302 \211\203W\211@\211\242\243\306!\307!\211=\203N\310!\203Nb\210\311\312\313\314!\315!#\316\"$B\262\266A\266\202\202)\210\317!\237\207" [consult-line-numbers-widen consult--forbid-minibuffer evil-collection-consult--evil-mark-ring user-error "No marks" nil marker-position marker-buffer consult--in-range-p consult--location-candidate format "%s: %s" char-to-string consult--line-with-mark line-number-at-pos delete-dups] 15 (#$ . 806)])#@47 Jump to an evil marker in the current buffer. (defalias 'evil-collection-consult-mark #[0 "\300K\301\302\"\216\300\303M\210\304\305 !)\207" [consult--mark-candidates make-closure #[0 "\301\300M\207" [V0 consult--mark-candidates] 2] evil-collection-consult--mark-candidates consult-mark evil-collection-consult--evil-mark-ring] 4 (#$ . 1601) nil])#@43 Jump to a position in the evil jump list. (defalias 'evil-collection-consult-jump-list #[0 "\300\301\302\303\304\305\306 !\"\"!\207" [consult-global-mark delq nil mapcar #[257 "\211@\300!\205 \211\207" [markerp] 4 "\n\n(fn JUMP)"] ring-elements evil--jumps-get-window-jump-list] 7 (#$ . 1954) nil])#@39 Set up `evil' bindings for `consult'. (defalias 'evil-collection-consult-setup #[0 "\300 \207" [evil-collection-consult-set-bindings] 1 (#$ . 2260)]) (provide 'evil-collection-consult)