diff options
-rw-r--r-- | lisp/bbdb-com.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/bbdb-com.el b/lisp/bbdb-com.el index 8e33ffc..8b9a8f2 100644 --- a/lisp/bbdb-com.el +++ b/lisp/bbdb-com.el @@ -2337,7 +2337,7 @@ Completion behaviour can be controlled with `bbdb-completion-type'." (setq only-one-p nil)) (if (not (memq sym all-the-completions)) (setq all-the-completions (cons sym all-the-completions)))))) - (completion (try-completion pattern ht pred)) + (completion (progn (all-completions pattern ht pred) (try-completion pattern ht))) (exact-match (eq completion t))) (cond @@ -2505,7 +2505,7 @@ Completion behaviour can be controlled with `bbdb-completion-type'." (not (string= completion last)) (setq last completion pattern (downcase orig) - completion (try-completion pattern ht pred))) + completion (progn (all-completions pattern ht pred) (try-completion pattern ht)))) (if (stringp completion) (progn (delete-region beg end) (insert completion)))) |