(newsticker--insert-image): Update docstring. Insert the image directly.

[gnu-emacs] / lisp / net / eudc.el

diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el
index 1c5fb7fbbcf668d3cc3709d9a6b58f8eaa0e57dc..291bcbf481365eaec0ac1b729303d68359ab30ca 100644 (file)
--- a/lisp/net/eudc.el
+++ b/lisp/net/eudc.el
@@ -1,7 +1,7 @@
 ;;; eudc.el --- Emacs Unified Directory Client
 
-;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004,
-;;   2005 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
+;;   2005, 2006, 2007 Free Software Foundation, Inc.
 
 ;; Author: Oscar Figueiredo <oscar@cpe.fr>
 ;; Maintainer: Pavel Janík <Pavel@Janik.cz>
@@ -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"))))