Mercurial > emacs
comparison lisp/gnus/ecomplete.el @ 110111:5b9f64b04a04
Delete all trailing white space.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Thu, 02 Sep 2010 01:42:32 +0000 |
parents | 8d09094063d0 |
children | 627742e646c4 |
comparison
equal
deleted
inserted
replaced
110110:91cc7bab2ca4 | 110111:5b9f64b04a04 |
---|---|
93 | 93 |
94 (defun ecomplete-get-matches (type match) | 94 (defun ecomplete-get-matches (type match) |
95 (let* ((elems (cdr (assq type ecomplete-database))) | 95 (let* ((elems (cdr (assq type ecomplete-database))) |
96 (match (regexp-quote match)) | 96 (match (regexp-quote match)) |
97 (candidates | 97 (candidates |
98 (sort | 98 (sort |
99 (loop for (key count time text) in elems | 99 (loop for (key count time text) in elems |
100 when (string-match match text) | 100 when (string-match match text) |
101 collect (list count time text)) | 101 collect (list count time text)) |
102 (lambda (l1 l2) | 102 (lambda (l1 l2) |
103 (> (car l1) (car l2)))))) | 103 (> (car l1) (car l2)))))) |