From 6ce65ff6782fff5179619f2a23273706bf297c12 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Tue, 1 Nov 2005 07:07:25 +0000 Subject: [PATCH] (eudc-expand-inline): If the `eudc-multiple-match-handling-method' is set to `all', delete the query string before inserting the query result. --- lisp/net/eudc.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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")))) -- 2.39.5