diff options
| author | John Wiegley <johnw@newartisans.com> | 2005-11-01 07:07:25 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2005-11-01 07:07:25 +0000 |
| commit | 6ce65ff6782fff5179619f2a23273706bf297c12 (patch) | |
| tree | 4c4291a93f0742597c5ad64dfaa4100087cc2ed1 /lisp/net/eudc.el | |
| parent | 73f99a662dcefaf4687b37d17a501f24569e573c (diff) | |
| download | emacs-6ce65ff6782fff5179619f2a23273706bf297c12.tar.gz | |
(eudc-expand-inline): If the `eudc-multiple-match-handling-method' is
set to `all', delete the query string before inserting the query
result.
Diffstat (limited to 'lisp/net/eudc.el')
| -rw-r--r-- | lisp/net/eudc.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el index 1c5fb7fbbcf..6c877df6ea4 100644 --- a/lisp/net/eudc.el +++ b/lisp/net/eudc.el @@ -380,7 +380,7 @@ The translation is done according to BEG and END delimit the text which is to be replaced." (let ((replacement)) (setq replacement - (completing-read "Multiple matches found; choose one:" + (completing-read "Multiple matches found; choose one: " (mapcar 'list choices))) (delete-region beg end) (insert replacement))) @@ -923,6 +923,7 @@ see `eudc-inline-expansion-servers'" ((eq eudc-multiple-match-handling-method 'select) (eudc-select response-strings beg end)) ((eq eudc-multiple-match-handling-method 'all) + (delete-region beg end) (insert (mapconcat 'identity response-strings ", "))) ((eq eudc-multiple-match-handling-method 'abort) (error "There is more than one match for the query")))) |