diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2013-11-04 09:00:20 +0100 |
|---|---|---|
| committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2013-11-04 09:00:20 +0100 |
| commit | b740a4b4c12da582bf99d739e8b8acfc64f5ccc7 (patch) | |
| tree | 729ea259f5ebf3f9c5f7823ff539ac648a45aa3f /helm-adaptative.el | |
| parent | b82caa80eaa937adc1246298865bb52cc4534fc1 (diff) | |
Finish replacing cl symbols and requiring cl-lib, no compile error.
Diffstat (limited to 'helm-adaptative.el')
| -rw-r--r-- | helm-adaptative.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/helm-adaptative.el b/helm-adaptative.el index 59f25d5a..24aa4529 100644 --- a/helm-adaptative.el +++ b/helm-adaptative.el @@ -20,7 +20,7 @@ ;;; Code: -(require 'cl) +(require 'cl-lib) (require 'helm) @@ -177,7 +177,7 @@ This is a filtered candidate transformer you can use with the ;; ... assemble a list containing the (CANIDATE . USAGE-COUNT) ;; pairs (mapcar (lambda (candidate-info) - (let ((cl-count 0)) + (let ((count 0)) (cl-dolist (pattern-info (cdr candidate-info)) (if (not (equal (car pattern-info) helm-pattern)) @@ -197,7 +197,7 @@ This is a filtered candidate transformer you can use with the ;; sort the list in descending order, so candidates with highest ;; priorty come first (progn - (setq usage (sort usage (lambda (cl-first second) + (setq usage (sort usage (lambda (first second) (> (cdr first) (cdr second))))) ;; put those candidates first which have the highest usage count |