[elpa] 22/31: company-sort-by-occurrence: do stable sorting

[Dmitry Gutov]

dgutov pushed a commit to branch master
in repository elpa.

commit 663ef3bc9d8358559c5a5ebf2a6ed97755081657
Author: Dmitry Gutov <address@hidden>
Date:   Thu Mar 13 19:49:40 2014 +0200

    company-sort-by-occurrence: do stable sorting
---
 company.el |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/company.el b/company.el
index 2a77cb1..6367cba 100644
--- a/company.el
+++ b/company.el
@@ -1061,7 +1061,7 @@ Keywords and function definition names are ignored."
                    t))))
            candidates)))
     (nconc
-     (mapcar #'car (sort occurs (lambda (e1 e2) (< (cdr e1) (cdr e2)))))
+     (mapcar #'car (sort occurs (lambda (e1 e2) (<= (cdr e1) (cdr e2)))))
      noccurs)))
 
 (defun company-idle-begin (buf win tick pos)