diff options
| author | Ronan Waide <waider@waider.ie> | 2006-01-07 06:49:39 +0000 |
|---|---|---|
| committer | Ronan Waide <waider@waider.ie> | 2006-01-07 06:49:39 +0000 |
| commit | 7e624f9e84ee092815d78ad2bfa44c6fc929c64b (patch) | |
| tree | acff09c10f627b6ca7ba69172a195ab513d4525c | |
| parent | 95b5a61281748fd15faa4a40f4c534623867c429 (diff) | |
Use all-completions instead of try-completion (Chris Mears)
| -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)))) |