From: John Wiegley <johnw@newartisans.com>
Date: Tue, 1 Nov 2005 07:07:25 +0000 (+0000)
Subject: (eudc-expand-inline): If the `eudc-multiple-match-handling-method' is
X-Git-Tag: emacs-pretest-22.0.90~6153
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ce65ff6782fff5179619f2a23273706bf297c12;p=emacs.git

(eudc-expand-inline): If the `eudc-multiple-match-handling-method' is
set to `all', delete the query string before inserting the query
result.
---

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"))))