;;; eudc.el --- Emacs Unified Directory Client
-;; Copyright (C) 1998, 1999, 2000, 2002, 2005 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004,
+;; 2005, 2006 Free Software Foundation, Inc.
;; Author: Oscar Figueiredo <oscar@cpe.fr>
;; Maintainer: Pavel JanÃk <Pavel@Janik.cz>
(defvar eudc-form-widget-list nil)
(defvar eudc-mode-map nil)
+(defvar mode-popup-menu)
+
;; List of known servers
;; Alist of (SERVER . PROTOCOL)
(defvar eudc-server-hotlist nil)
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)))
((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"))))