company-sort-by-occurrence: do stable sorting

diff --git a/company.el b/company.el
index 2a77cb1b48240376b0bd9ca562787992615b612b..6367cba893e905b0b43b289456058a69755cc885 100644 (file)
--- 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)