emacs company sort by occurrences