emacs: Tell the user how many addresses matched when completing

When completing an address, tell the user how many addresses in the
database matched the query.

Edited-by: Carl Worth <cworth@cworth.org>: Removed a stray numeric
literal that was causing a compiler warning.
This commit is contained in:
David Edmondson 2010-04-26 17:25:21 +01:00 committed by Carl Worth
parent 975307c945
commit b66ff567f6

View file

@ -53,9 +53,11 @@ line."
(orig (buffer-substring-no-properties beg end))
(completion-ignore-case t)
(options (notmuch-address-options orig))
(chosen (if (eq (length options) 1)
(num-options (length options))
(chosen (if (eq num-options 1)
(car options)
(completing-read "Address: " (cdr options) nil nil (car options)
(completing-read (format "Address (%s matches): " num-options)
(cdr options) nil nil (car options)
'notmuch-address-history))))
(when chosen
(push chosen notmuch-address-history)