@@ -30,7 +30,8 @@ commands. And to all the other commands, too. The commands are displayed in an Ido completion buffer, ordered by relevance. The 7 most recently executed commands come first, the rest -are sorted by frequency of use and in alphabetical order. +are sorted by frequency of use, command length and in alphabetical +order. Ido completion in 10 seconds: Typing selects matching commands: e.g. 'lnmd' matches 'line-number-mode'. `C-s`/`C-r` switches to the README.markdown @@ -169,13 +169,17 @@ Must be set before initializing Smex." (defun smex-sorting-rules (command-item other-command-item) "Returns true if COMMAND-ITEM should sort before OTHER-COMMAND-ITEM." - (let ((count (or (cdr command-item) 0)) - (other-count (or (cdr other-command-item) 0)) - (name (car command-item)) - (other-name (car other-command-item))) - (or (> count other-count) ; 1. Frequency of use + (let* ((count (or (cdr command-item ) 0)) + (other-count (or (cdr other-command-item) 0)) + (name (car command-item)) + (other-name (car other-command-item)) + (length (length (symbol-name name))) + (other-length (length (symbol-name other-name)))) + (or (> count other-count) ; 1. Frequency of use (and (= count other-count) - (string< name other-name))))) ; 2. Alphabetical order + (or (< length other-length) ; 2. Command length + (and (= length other-length) + (string< name other-name))))))) ; 3. Alphabetical order (defun smex-rank (command) (let ((command-item (assq command smex-cache))) smex.el e394dc16b1bf6469c5a54f5c7ec8bc711617a67f Cornelius Mika cornelius.mika@gmail.com http://github.com/nonsequitur/smex/commit/d83f137bd3947afcac07bf3c2e0916d4c3da68e2 d83f137bd3947afcac07bf3c2e0916d4c3da68e2 2009-07-16T10:45:08-07:00 2009-07-16T10:44:04-07:00 Sorting Rules: Consider command length. 8ab3410c314f710e320392338792c7ed28811044 Cornelius Mika cornelius.mika@gmail.com