mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

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

Browse Source 
set to `all', delete the query string before inserting the query
result.
This commit is contained in:
John Wiegley 2005-11-01 07:07:25 +00:00
parent 73f99a662d
commit 6ce65ff678
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/net/eudc.el
View File

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