Mercurial > emacs
changeset 66591:5f00d2caf8cf
(eudc-expand-inline): If the `eudc-multiple-match-handling-method' is
set to `all', delete the query string before inserting the query
result.
| author | John Wiegley <johnw@newartisans.com> |
|---|---|
| date | Tue, 01 Nov 2005 07:07:25 +0000 |
| parents | bbcc51021698 |
| children | a30dfd31ff22 |
| files | lisp/net/eudc.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/eudc.el Tue Nov 01 07:07:05 2005 +0000 +++ b/lisp/net/eudc.el Tue Nov 01 07:07:25 2005 +0000 @@ -380,7 +380,7 @@ 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 @@ ((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"))))