Commit 6ce65ff6 authored by John Wiegley's avatar John Wiegley
Browse files

(eudc-expand-inline): If the `eudc-multiple-match-handling-method' is

set to `all', delete the query string before inserting the query
result.
parent 73f99a66
...@@ -380,7 +380,7 @@ The translation is done according to ...@@ -380,7 +380,7 @@ The translation is done according to
BEG and END delimit the text which is to be replaced." BEG and END delimit the text which is to be replaced."
(let ((replacement)) (let ((replacement))
(setq replacement (setq replacement
(completing-read "Multiple matches found; choose one:" (completing-read "Multiple matches found; choose one: "
(mapcar 'list choices))) (mapcar 'list choices)))
(delete-region beg end) (delete-region beg end)
(insert replacement))) (insert replacement)))
...@@ -923,6 +923,7 @@ see `eudc-inline-expansion-servers'" ...@@ -923,6 +923,7 @@ see `eudc-inline-expansion-servers'"
((eq eudc-multiple-match-handling-method 'select) ((eq eudc-multiple-match-handling-method 'select)
(eudc-select response-strings beg end)) (eudc-select response-strings beg end))
((eq eudc-multiple-match-handling-method 'all) ((eq eudc-multiple-match-handling-method 'all)
(delete-region beg end)
(insert (mapconcat 'identity response-strings ", "))) (insert (mapconcat 'identity response-strings ", ")))
((eq eudc-multiple-match-handling-method 'abort) ((eq eudc-multiple-match-handling-method 'abort)
(error "There is more than one match for the query")))) (error "There is more than one match for the query"))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment