[Emacs-diffs] Changes to emacs/lisp/net/eudc.el

[John Wiegley]

Index: emacs/lisp/net/eudc.el
diff -c emacs/lisp/net/eudc.el:1.17 emacs/lisp/net/eudc.el:1.18
*** emacs/lisp/net/eudc.el:1.17 Tue Aug 30 10:23:09 2005
--- emacs/lisp/net/eudc.el      Tue Nov  1 07:07:25 2005
***************
*** 380,386 ****
  BEG and END delimit the text which is to be replaced."
    (let ((replacement))
     (setq replacement
!        (completing-read "Multiple matches found; choose one:"
                          (mapcar 'list choices)))
     (delete-region beg end)
     (insert replacement)))
--- 380,386 ----
  BEG and END delimit the text which is to be replaced."
    (let ((replacement))
     (setq replacement
!        (completing-read "Multiple matches found; choose one: "
                          (mapcar 'list choices)))
     (delete-region beg end)
     (insert replacement)))
***************
*** 923,928 ****
--- 923,929 ----
             ((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"))))