branch: externals/pabbrev
commit 7bdb74afcd520c24381d836ee947dff77bed4fa2
Author: Arthur Miller <arthur.mil...@live.com>
Commit: Arthur Miller <arthur.mil...@live.com>
Change to inlined comparitor function.
---
pabbrev.el | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/pabbrev.el b/pabbrev.el
index 9ef0bca221..78ac5c0049 100644
--- a/pabbrev.el
+++ b/pabbrev.el
@@ -473,9 +473,8 @@ This is a function internal to the data structures. The
;; emacs spent most of its time in this loop, but now I've bolted
;; on a user interface, its not so much of a problem, as plenty of
;; time is spent in placing on the "been here" overlays....
- (sort alist
- ;;'pabbrev-comparitor-function))
- (lambda(a b) (> (cdr a) (cdr b)))))
+ (sort alist #'pabbrev-comparitor-function)) ; inlined, is speed ok?
+ ;;(lambda(a b) (> (cdr a) (cdr b)))))
(defun pabbrev-add-word-cons-with-prefix (prefix conscell)
"Add a word usage, and a PREFIX.
