Mercurial > emacs

comparison lisp/gnus/ecomplete.el @ 110111:5b9f64b04a04

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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))))))