diff options
| author | Trey Peacock <git@treypeacock.com> | 2021-01-31 23:03:38 -0700 |
|---|---|---|
| committer | James N <james@jojojames.com> | 2021-02-01 00:03:25 -0800 |
| commit | be33708835ddbac6dad2d7ff1dde17f3d712a993 (patch) | |
| tree | d18441618d34c040adf90fc414e1e79cde6715ed /modes | |
| parent | 3dc3c72a49c725899080e5aa5cd9fc16cd967f2e (diff) | |
internal function & mark ring fix
corrected global marker check in mark ring
Diffstat (limited to 'modes')
| -rw-r--r-- | modes/consult/evil-collection-consult.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/modes/consult/evil-collection-consult.el b/modes/consult/evil-collection-consult.el index 0602f2a..eaf7383 100644 --- a/modes/consult/evil-collection-consult.el +++ b/modes/consult/evil-collection-consult.el @@ -46,10 +46,10 @@ (evil-set-command-property 'consult-mark :jump t) (evil-set-command-property 'consult-line :jump t)) -(defun evil-collection-consult-evil-mark-ring () +(defun evil-collection-consult--evil-mark-ring () "Return alist of char & marker for evil markers in current buffer." (sort (cl-remove-if (lambda (elem) - (or (not (evil-global-marker-p (car elem))) + (or (evil-global-marker-p (car elem)) (not (markerp (cdr-safe elem))))) evil-markers-alist) #'car-less-than-car)) @@ -58,13 +58,13 @@ "Return alist of lines containing markers. The alist contains (string . position) pairs." (consult--forbid-minibuffer) - (unless (evil-collection-consult-evil-mark-ring) + (unless (evil-collection-consult--evil-mark-ring) (user-error "No marks")) (consult--fontify-all) (let* ((max-line 0) (candidates)) (save-excursion - (dolist (marker (evil-collection-consult-evil-mark-ring)) + (dolist (marker (evil-collection-consult--evil-mark-ring)) (let ((pos (marker-position (cdr marker)))) (when (consult--in-range-p pos) (goto-char pos) |