changeset 42780:b136d94976d9

(eudc-ph-open-session): Remove XEmacs case. Minor coding style fixes.

--- a/lisp/net/eudcb-ph.el	Wed Jan 16 08:14:05 2002 +0000
+++ b/lisp/net/eudcb-ph.el	Wed Jan 16 08:16:01 2002 +0000
@@ -24,14 +24,14 @@
 ;; Boston, MA 02111-1307, USA.
 
 ;;; Commentary:
+
 ;;    This library provides specific CCSO PH/QI protocol support for the
-;;    Emacs Unified Directory Client package
+;;    Emacs Unified Directory Client package.
 
 ;;; Code:
 
 (require 'eudc)
 
-
 ;;{{{      Internal cooking
 
 (eudc-protocol-set 'eudc-bbdb-conversion-alist 'eudc-ph-bbdb-conversion-alist 'ph)
@@ -45,9 +45,6 @@
 (defconst eudc-ph-default-server-port 105
   "Default TCP port for CCSO PH/QI directory services.")
 
-
-
-
 (defun eudc-ph-query-internal (query &optional return-fields)
   "Query the PH/QI server with QUERY.
 QUERY can be a string NAME or a list made of strings NAME
@@ -86,7 +83,6 @@
       (eudc-ph-parse-query-result)
     (mapcar 'eudc-caar (eudc-ph-parse-query-result))))
 
-
 (defun eudc-ph-parse-query-result (&optional fields)
   "Return a list of alists of key/values from in `eudc-ph-process-buffer'.
 Fields not in FIELDS are discarded."
@@ -140,11 +136,9 @@
 	     (setq record (if (not (eq 'list eudc-duplicate-attribute-handling-method))
 			      (eudc-filter-duplicate-attributes record)
 			    (list record)))
-	     (setq records (append record records))))
-      )
+	     (setq records (append record records)))))
     (message "Done")
-    records)
-  )
+    records))
 
 (defun eudc-ph-do-request (request)
   "Send REQUEST to the server.
@@ -192,15 +186,12 @@
       (process-kill-without-query process)
       process)))
 
-
 (defun eudc-ph-close-session (process)
   (save-excursion
     (set-buffer (process-buffer process))
     (eudc-ph-send-command process "quit")
     (eudc-ph-read-response process)
-    (if (fboundp 'add-async-timeout)
-	(add-async-timeout 10 'delete-process process)
-      (run-at-time 2 nil 'delete-process process))))
+    (run-at-time 2 nil 'delete-process process)))
 
 (defun eudc-ph-send-command (process command)
   (goto-char (point-max))
@@ -249,7 +240,6 @@
 
 ;;}}}
 
-
 (eudc-register-protocol 'ph)
 
 (provide 'eudcb-ph)