branch: master
commit 46db1b987feb0b15f0a070a0d37f93247881a571
Author: SAITOU Keita <keita44...@gmail.com>
Commit: SAITOU Keita <keita44...@gmail.com>
counsel.el (counsel-mark-ring): Add customize variable to sort or not
---
counsel.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/counsel.el b/counsel.el
index d2aa51f..ca13fb3 100644
--- a/counsel.el
+++ b/counsel.el
@@ -3717,6 +3717,10 @@ This variable has no effect unless
;;* Misc. Emacs
;;** `counsel-mark-ring'
+(defcustom counsel-mark-ring-sort-selections t
+ "If non-nil, sort `mark-ring' list by line number."
+ :type 'boolean)
+
(defface counsel--mark-ring-highlight
'((t (:inherit highlight)))
"Face for current `counsel-mark-ring' line."
@@ -3769,12 +3773,12 @@ Obeys `widen-automatically', which see."
(line-beginning-position) (line-end-position))))
(cons (format fmt linum line) (point)))))
(marks (copy-sequence mark-ring))
+ (marks (delete-dups marks))
(marks
;; mark-marker is empty?
(if (equal (mark-marker) (make-marker))
marks
(cons (copy-marker (mark-marker)) marks)))
- (marks (sort (delete-dups marks) #'<))
(cands
;; Widen, both to save `line-number-at-pos' the trouble
;; and for `buffer-substring' to work.
@@ -3786,6 +3790,7 @@ Obeys `widen-automatically', which see."
(ivy-read "Mark: " cands
:require-match t
:update-fn #'counsel--mark-ring-update-fn
+ :sort counsel-mark-ring-sort-selections
:action (lambda (cand)
(let ((pos (cdr-safe cand)))
(when pos
