[elpa] master 46db1b9 107/184: counsel.el (counsel-mark-ring): Add customize variable to sort or not

[Oleh Krehel]

branch: master
commit 46db1b987feb0b15f0a070a0d37f93247881a571
Author: SAITOU Keita <address@hidden>
Commit: SAITOU Keita <address@hidden>

    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