New maintainer. Change author's address.

(eudc-pre-select-window-configuration, eudc-insertion-marker): Variables
removed.
(eudc-insert-selected): Function removed.
(eudc-select): Reimplemented.
(eudc-expand-inline): Delete the strings only after its expansion is chosen
not before.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ddb737f5ae6ad95a18fd1539193a75e6f43b9416..d80528556400b1775aea6353437dbfb2dc5051ab 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,22 @@
 2002-01-16  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
 
-       * net/eudc-export.el: New maintainer.  Change author's address.
+       * net/eudc.el: New maintainer.  Change author's address.
+       (eudc-pre-select-window-configuration, eudc-insertion-marker):
+       Variables removed.
+       (eudc-insert-selected): Function removed.
+       (eudc-select): Reimplemented.
+       (eudc-expand-inline): Delete the strings only after its expansion
+       is chosen not before.
+
+       * net/eudcb-ph.el (eudc-ph-open-session): Remove XEmacs case.
+       Minor coding style fixes.
+
+       * net/eudcb-ldap.el: New maintainer.  Change author's address.
+       (eudc-attribute-display-method-alist): Display mail with
+       eudc-display-mail.
+
+       * net/eudcb-bbdb.el, net/eudc-export.el, net/eudc-hotlist.el,
+       * net/eudc-vars.el: New maintainer.  Change author's address.
 
        * net/eudc-bob.el: New maintainer.  Change author's address.
        (eudc-bob-mail-keymap): New keymap for e-mail addresses.

diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el
index ba46daad44db86671d07bcec4868e99318a3061e..81caa04e45d6fc661d2114342bc11dd871e55a2e 100644 (file)
--- a/lisp/net/eudc.el
+++ b/lisp/net/eudc.el
@@ -1,9 +1,9 @@
 ;;; eudc.el --- Emacs Unified Directory Client
 
-;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2002 Free Software Foundation, Inc.
 
-;; Author: Oscar Figueiredo <oscar@xemacs.org>
-;; Maintainer: Oscar Figueiredo <oscar@xemacs.org>
+;; Author: Oscar Figueiredo <oscar@cpe.fr>
+;; Maintainer: Pavel Janík <Pavel@Janik.cz>
 ;; Keywords: comm
 
 ;; This file is part of GNU Emacs.
@@ -74,9 +74,6 @@
 
 (defvar eudc-form-widget-list nil)
 (defvar eudc-mode-map nil)
-;; Used by the selection insertion mechanism
-(defvar eudc-pre-select-window-configuration nil)
-(defvar eudc-insertion-marker nil)
 
 ;; List of known servers
 ;; Alist of (SERVER . PROTOCOL)
@@ -375,26 +372,15 @@ The translation is done according to
                list))
     list))
 
-(defun eudc-select (choices)
-  "Choose one from CHOICES using a completion buffer."
-  (setq eudc-pre-select-window-configuration (current-window-configuration))
-  (setq eudc-insertion-marker (point-marker))
-  (with-output-to-temp-buffer "*EUDC Completions*"
-    (apply 'display-completion-list
-          choices
-          (if eudc-xemacs-p
-              '(:activate-callback eudc-insert-selected)))))
-
-(defun eudc-insert-selected (event extent user)
-  "Insert a completion at the appropriate point."
-  (when eudc-insertion-marker
-    (set-buffer (marker-buffer eudc-insertion-marker))
-    (goto-char eudc-insertion-marker)
-    (insert (extent-string extent)))
-  (if eudc-pre-select-window-configuration
-      (set-window-configuration eudc-pre-select-window-configuration))
-  (setq eudc-pre-select-window-configuration nil
-       eudc-insertion-marker nil))
+(defun eudc-select (choices beg end)
+  "Choose one from CHOICES using a completion.
+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)))
 
 (defun eudc-query (query &optional return-attributes no-translation)
    "Query the current directory server with QUERY.
@@ -824,8 +810,8 @@ The variable `eudc-inline-query-format' controls how to associate the
 individual inline query words with directory attribute names.
 After querying the server for the given string, the expansion specified by
 `eudc-inline-expansion-format' is inserted in the buffer at point.
-If REPLACE is non nil, then this expansion replaces the name in the buffer.
-`eudc-expansion-overwrites-query' being non nil inverts the meaning of REPLACE.
+If REPLACE is non-nil, then this expansion replaces the name in the buffer.
+`eudc-expansion-overwrites-query' being non-nil inverts the meaning of REPLACE.
 Multiple servers can be tried with the same query until one finds a match,
 see `eudc-inline-expansion-servers'"
   (interactive)
@@ -923,19 +909,19 @@ see `eudc-inline-expansion-servers'"
            (if (or
                 (and replace (not eudc-expansion-overwrites-query))
                 (and (not replace) eudc-expansion-overwrites-query))
-               (delete-region beg end))
+               (kill-ring-save beg end))
            (cond
             ((or (= (length response-strings) 1)
                  (null eudc-multiple-match-handling-method)
                  (eq eudc-multiple-match-handling-method 'first))
+             (delete-region beg end)
              (insert (car response-strings)))
             ((eq eudc-multiple-match-handling-method 'select)
-             (eudc-select response-strings))
+             (eudc-select response-strings beg end))
             ((eq eudc-multiple-match-handling-method 'all)
              (insert (mapconcat 'identity response-strings ", ")))
             ((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"))))
          (or (and (equal eudc-server eudc-former-server)
                   (equal eudc-protocol eudc-former-protocol))
              (eudc-set-server eudc-former-server eudc-former-protocol t)))
@@ -1115,7 +1101,6 @@ queries the server for the existing fields and displays a corresponding form."
          (goto-char pt)
        (error "No more records before point")))))
 
-
 ;;}}}
 
 ;;{{{      Menus an keymaps