diff options
author | David Edmondson <dme@dme.org> | 2010-04-26 17:25:21 +0100 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2010-04-26 10:58:42 -0700 |
commit | b66ff567f6b65c7aafa1216294900303ad3aa4d4 (patch) | |
tree | 17f007a8eb308199054aca4af421acf6ec3bd097 /emacs/notmuch-address.el | |
parent | 975307c945575bc660b451d13291956271e92e93 (diff) |
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.
Diffstat (limited to 'emacs/notmuch-address.el')
-rw-r--r-- | emacs/notmuch-address.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/emacs/notmuch-address.el b/emacs/notmuch-address.el index 69a52a29..1a7c5771 100644 --- a/emacs/notmuch-address.el +++ b/emacs/notmuch-address.el @@ -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) |