branch: externals/consult
commit 9bb753c6fdf82c4e66f002a9399d4bd9657ee51a
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Simplify consult--mark-candidates
---
consult.el | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/consult.el b/consult.el
index eb855f7d3a..4748b67f66 100644
--- a/consult.el
+++ b/consult.el
@@ -3463,7 +3463,6 @@ argument. The symbol at point is added to the future
history."
"Return list of candidates strings for MARKERS."
(consult--forbid-minibuffer)
(let* ((candidates)
- (current-buf (current-buffer))
(width (length (number-to-string (line-number-at-pos
(point-max)
consult-line-numbers-widen))))
@@ -3471,8 +3470,8 @@ argument. The symbol at point is added to the future
history."
(save-excursion
(dolist (marker markers)
(when-let ((pos (marker-position marker))
- (buf (marker-buffer marker))
- ((and (eq buf current-buf) (consult--in-range-p pos))))
+ ((and (eq (marker-buffer marker) (current-buffer))
+ (consult--in-range-p pos))))
(goto-char pos)
;; `line-number-at-pos' is a very slow function, which should be
;; replaced everywhere. However in this case the slow
