Remove unnecessary whitespaces.

6 files changed, 63 insertions, 64 deletions

diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el
index 822a6e7db1e..a005e7f4523 100644
--- a/lisp/net/eudc-bob.el
+++ b/lisp/net/eudc-bob.el
@@ -56,14 +56,14 @@
     ["Toggle inline display" eudc-bob-toggle-inline-display
      (eudc-bob-can-display-inline-images)]
     ,@(cdr (cdr eudc-bob-generic-menu))))
- 
+
 (defconst eudc-bob-sound-menu
   `("EUDC Sound Menu"
     ["---" nil nil]
     ["Play sound" eudc-bob-play-sound-at-point
      (fboundp 'play-sound)]
     ,@(cdr (cdr eudc-bob-generic-menu))))
- 
+
 (defun eudc-jump-to-event (event)
   "Jump to the window and point where EVENT occurred."
   (if eudc-xemacs-p
@@ -270,7 +270,7 @@ display a button."
 (defun eudc-bob-menu ()
   "Retrieve the menu attached to a binary object."
   (eudc-bob-get-overlay-prop 'menu))
-  
+
 (defun eudc-bob-popup-menu (event)
   "Pop-up a menu of EUDC multimedia commands."
   (interactive "@e")
@@ -321,7 +321,6 @@ display a button."
 (set-keymap-parent eudc-bob-image-keymap eudc-bob-generic-keymap)
 (set-keymap-parent eudc-bob-sound-keymap eudc-bob-generic-keymap)
 
-    
 (if eudc-emacs-p
     (progn
       (easy-menu-define eudc-bob-generic-menu
@@ -362,5 +361,5 @@ display a button."
 (defun eudc-display-jpeg-as-button (data)
   "Display a button for the JPEG DATA."
   (eudc-bob-display-jpeg data nil))
-    
+
 ;;; eudc-bob.el ends here
diff --git a/lisp/net/eudc-export.el b/lisp/net/eudc-export.el
index 8d6ff308eae..25823fcb22f 100644
--- a/lisp/net/eudc-export.el
+++ b/lisp/net/eudc-export.el
@@ -44,7 +44,7 @@ symbol and VALUE is the corresponding value for the record.
 If SILENT is non-nil then the created BBDB record is not displayed."
   ;; This function runs in a special context where lisp symbols corresponding
   ;; to field names in record are bound to the corresponding values
-  (eval 
+  (eval
    `(let* (,@(mapcar '(lambda (c)
                         (list (car c) (if (listp (cdr c))
                                           (list 'quote (cdr c))
@@ -86,8 +86,8 @@ If SILENT is non-nil then the created BBDB record is not displayed."
                                               (cons (car mapping) value))))
                                        conversion-alist)))
       (setq bbdb-notes (delq nil bbdb-notes))
-      (setq bbdb-record (bbdb-create-internal bbdb-name 
-                                              bbdb-company 
+      (setq bbdb-record (bbdb-create-internal bbdb-name
+                                              bbdb-company
                                               bbdb-net
                                               bbdb-address
                                               bbdb-phones
@@ -98,7 +98,7 @@ If SILENT is non-nil then the created BBDB record is not displayed."
 (defun eudc-parse-spec (spec record recurse)
   "Parse the conversion SPEC using RECORD.
 If RECURSE is non-nil then SPEC may be a list of atomic specs."
-  (cond 
+  (cond
    ((or (stringp spec)
         (symbolp spec)
         (and (listp spec)
@@ -149,7 +149,7 @@ LOCATION is used as the address location for bbdb."
               zip (string-to-number (match-string 1 last1))))
        (t
         (error "Cannot parse the address"))))
-    (vector location 
+    (vector location
             (or (nth 0 addr-components) "")
             (or (nth 1 addr-components) "")
             (or (nth 2 addr-components) "")
@@ -162,7 +162,7 @@ LOCATION is used as the address location for bbdb."
 PHONE is either a string supposedly containing a phone number or
 a list of such strings which are concatenated.
 LOCATION is used as the phone location for BBDB."
-  (cond 
+  (cond
    ((stringp phone)
     (let (phone-list)
       (condition-case err
@@ -180,7 +180,7 @@ LOCATION is used as the phone location for BBDB."
     (vector location (mapconcat 'identity phone ", ")))
    (t
     (error "Invalid phone specification"))))
-      
+
 (defun eudc-batch-export-records-to-bbdb ()
   "Insert all the records returned by a directory query into BBDB."
   (interactive)
diff --git a/lisp/net/eudc-hotlist.el b/lisp/net/eudc-hotlist.el
index 2496a28e633..7853b3878c6 100644
--- a/lisp/net/eudc-hotlist.el
+++ b/lisp/net/eudc-hotlist.el
@@ -67,7 +67,7 @@ These are the special commands of this mode:
     (switch-to-buffer (get-buffer-create "*EUDC Servers*"))
     (setq buffer-read-only nil)
     (erase-buffer)
-    (mapcar (function 
+    (mapcar (function
              (lambda (entry)
                (setq proto-col (max (length (car entry)) proto-col))))
             eudc-server-hotlist)
@@ -113,7 +113,7 @@ These are the special commands of this mode:
   (let ((buffer-read-only nil))
     (save-excursion
       (beginning-of-line)
-      (if (and (>= (point) eudc-hotlist-list-beginning)     
+      (if (and (>= (point) eudc-hotlist-list-beginning)
                (looking-at "^\\([-.a-zA-Z:0-9]+\\)[ \t]+\\([a-zA-Z]+\\)"))
           (kill-line 1)
         (error "No server on this line")))))
@@ -131,7 +131,7 @@ These are the special commands of this mode:
                           hotlist))
       (forward-line 1))
     (if (not (looking-at "^[ \t]*$"))
-        (error "Malformed entry in hotlist, discarding edits")) 
+        (error "Malformed entry in hotlist, discarding edits"))
     (setq eudc-server-hotlist (nreverse hotlist))
     (eudc-install-menu)
     (eudc-save-options)
@@ -150,7 +150,7 @@ These are the special commands of this mode:
           (eudc-set-server (match-string 1) (intern (match-string 2)))
           (message "Current directory server is %s (%s)" eudc-server eudc-protocol))
       (error "No server on this line"))))
-      
+
 (defun eudc-hotlist-transpose-servers ()
   "Swap the order of the server with the previous one in the list."
   (interactive)
@@ -161,13 +161,13 @@ These are the special commands of this mode:
       (beginning-of-line)
       (if (and (>= (point) eudc-hotlist-list-beginning)
                (looking-at "^\\([-.a-zA-Z:0-9]+\\)[ \t]+\\([a-zA-Z]+\\)")
-               (progn 
+               (progn
                  (forward-line -1)
                  (looking-at "^\\([-.a-zA-Z:0-9]+\\)[ \t]+\\([a-zA-Z]+\\)")))
           (progn
             (forward-line 1)
             (transpose-lines 1))))))
-  
+
 (setq eudc-hotlist-mode-map
       (let ((map (make-sparse-keymap)))
         (define-key map "a" 'eudc-hotlist-add-server)
@@ -189,7 +189,7 @@ These are the special commands of this mode:
     ["Exit without Saving" kill-this-buffer t]))
 
 (if eudc-emacs-p
-    (easy-menu-define eudc-hotlist-emacs-menu 
+    (easy-menu-define eudc-hotlist-emacs-menu
                       eudc-hotlist-mode-map
                       ""
                       eudc-hotlist-menu))
diff --git a/lisp/net/eudcb-bbdb.el b/lisp/net/eudcb-bbdb.el
index a7441c2c295..258f9518659 100644
--- a/lisp/net/eudcb-bbdb.el
+++ b/lisp/net/eudcb-bbdb.el
@@ -24,7 +24,7 @@
 ;; Boston, MA 02111-1307, USA.
 
 ;;; Commentary:
-;;    This library provides an interface to use BBDB as a backend of 
+;;    This library provides an interface to use BBDB as a backend of
 ;;    the Emacs Unified Directory Client.
 
 ;;; Code:
@@ -214,7 +214,7 @@ RETURN-ATTRS is a list of attributes to return, defaulting to
                                         records)))))
     result))
 
-;;}}}        
+;;}}}
 
 ;;{{{      High-level interfaces (interactive functions)
 
@@ -224,7 +224,7 @@ RETURN-ATTRS is a list of attributes to return, defaulting to
   (eudc-set-server dummy 'bbdb)
   (message "BBDB server selected"))
 
-;;;}}}
+;;}}}
 
 
 (eudc-register-protocol 'bbdb)
diff --git a/lisp/net/eudcb-ldap.el b/lisp/net/eudcb-ldap.el
index 9d66f3cadae..661841ba5b6 100644
--- a/lisp/net/eudcb-ldap.el
+++ b/lisp/net/eudcb-ldap.el
@@ -24,7 +24,7 @@
 ;; Boston, MA 02111-1307, USA.
 
 ;;; Commentary:
-;;    This library provides specific LDAP protocol support for the 
+;;    This library provides specific LDAP protocol support for the
 ;;    Emacs Unified Directory Client package
 
 ;;; Installation:
@@ -53,31 +53,31 @@
     (phone . telephonenumber))
   "Alist mapping EUDC attribute names to LDAP names.")
 
-(eudc-protocol-set 'eudc-query-function 'eudc-ldap-simple-query-internal 
+(eudc-protocol-set 'eudc-query-function 'eudc-ldap-simple-query-internal
                    'ldap)
 (eudc-protocol-set 'eudc-list-attributes-function 'eudc-ldap-get-field-list
                    'ldap)
-(eudc-protocol-set 'eudc-protocol-attributes-translation-alist 
+(eudc-protocol-set 'eudc-protocol-attributes-translation-alist
                    'eudc-ldap-attributes-translation-alist 'ldap)
-(eudc-protocol-set 'eudc-bbdb-conversion-alist 
-                   'eudc-ldap-bbdb-conversion-alist 
+(eudc-protocol-set 'eudc-bbdb-conversion-alist
+                   'eudc-ldap-bbdb-conversion-alist
                    'ldap)
 (eudc-protocol-set 'eudc-protocol-has-default-query-attributes nil 'ldap)
-(eudc-protocol-set 'eudc-attribute-display-method-alist 
+(eudc-protocol-set 'eudc-attribute-display-method-alist
                    '(("jpegphoto" . eudc-display-jpeg-inline)
                      ("labeledurl" . eudc-display-url)
                      ("audio" . eudc-display-sound)
                      ("labeleduri" . eudc-display-url)
-                     ("url" . eudc-display-url)) 
+                     ("url" . eudc-display-url))
                    'ldap)
-(eudc-protocol-set 'eudc-switch-to-server-hook 
-                   '(eudc-ldap-check-base) 
+(eudc-protocol-set 'eudc-switch-to-server-hook
+                   '(eudc-ldap-check-base)
                    'ldap)
 
 (defun eudc-ldap-cleanup-record-simple (record)
   "Do some cleanup in a RECORD to make it suitable for EUDC."
-  (mapcar 
-   (function 
+  (mapcar
+   (function
     (lambda (field)
       (cons (intern (car field))
             (if (cdr (cdr field))
@@ -92,8 +92,8 @@
 ;;   Make the record a cons-cell instead of a list if the it's single-valued
 ;;   Filter the $ character in addresses into \n if not done by the LDAP lib
 (defun eudc-ldap-cleanup-record-filtering-addresses (record)
-  (mapcar 
-   (function 
+  (mapcar
+   (function
     (lambda (field)
       (let ((name (intern (car field)))
             (value (cdr field)))
@@ -107,9 +107,9 @@
 
 (defun eudc-ldap-simple-query-internal (query &optional return-attrs)
   "Query the LDAP server with QUERY.
-QUERY is a list of cons cells (ATTR . VALUE) where ATTRs should be valid 
-LDAP attribute names.  
-RETURN-ATTRS is a list of attributes to return, defaulting to 
+QUERY is a list of cons cells (ATTR . VALUE) where ATTRs should be valid
+LDAP attribute names.
+RETURN-ATTRS is a list of attributes to return, defaulting to
 `eudc-default-return-attributes'."
   (let ((result (ldap-search (eudc-ldap-format-query-as-rfc1558 query)
                              eudc-server
@@ -118,7 +118,7 @@ RETURN-ATTRS is a list of attributes to return, defaulting to
         final-result)
     (if (or (not (boundp 'ldap-ignore-attribute-codings))
             ldap-ignore-attribute-codings)
-        (setq result 
+        (setq result
               (mapcar 'eudc-ldap-cleanup-record-filtering-addresses result))
       (setq result (mapcar 'eudc-ldap-cleanup-record-simple result)))
 
@@ -128,9 +128,9 @@ RETURN-ATTRS is a list of attributes to return, defaulting to
         (setq result (eudc-filter-partial-records result return-attrs)))
     ;; Apply eudc-duplicate-attribute-handling-method
     (if (not (eq 'list eudc-duplicate-attribute-handling-method))
-        (mapcar 
+        (mapcar
          (function (lambda (record)
-                     (setq final-result 
+                     (setq final-result
                            (append (eudc-filter-duplicate-attributes record)
                                    final-result))))
          result))
@@ -143,12 +143,12 @@ attribute names are returned. Default to `person'"
   (interactive)
   (or eudc-server
       (call-interactively 'eudc-set-server))
-  (let ((ldap-host-parameters-alist 
+  (let ((ldap-host-parameters-alist
          (list (cons eudc-server
                      '(scope subtree sizelimit 1)))))
     (mapcar 'eudc-ldap-cleanup-record
-            (ldap-search 
-             (eudc-ldap-format-query-as-rfc1558 
+            (ldap-search
+             (eudc-ldap-format-query-as-rfc1558
               (list (cons "objectclass"
                           (or objectclass
                               "person"))))
@@ -156,13 +156,13 @@ attribute names are returned. Default to `person'"
 
 (defun eudc-ldap-escape-query-special-chars (string)
   "Value is STRING with characters forbidden in LDAP queries escaped."
-;; Note that * should also be escaped but in most situations I suppose 
+;; Note that * should also be escaped but in most situations I suppose
 ;; the user doesn't want this
   (eudc-replace-in-string
    (eudc-replace-in-string
     (eudc-replace-in-string
-      (eudc-replace-in-string 
-       string 
+      (eudc-replace-in-string
+       string
        "\\\\" "\\5c")
       "(" "\\28")
      ")" "\\29")
@@ -170,16 +170,16 @@ attribute names are returned. Default to `person'"
 
 (defun eudc-ldap-format-query-as-rfc1558 (query)
   "Format the EUDC QUERY list as a RFC1558 LDAP search filter."
-  (format "(&%s)" 
-          (apply 'concat 
+  (format "(&%s)"
+          (apply 'concat
                  (mapcar '(lambda (item)
-                            (format "(%s=%s)" 
-                                    (car item) 
+                            (format "(%s=%s)"
+                                    (car item)
                                     (eudc-ldap-escape-query-special-chars (cdr item))))
                          query))))
 
 
-;;}}}        
+;;}}}
 
 ;;{{{      High-level interfaces (interactive functions)
 
@@ -196,11 +196,11 @@ attribute names are returned. Default to `person'"
     ;; If the server is not in ldap-host-parameters-alist we add it for the
     ;; user
     (if (null (assoc eudc-server ldap-host-parameters-alist))
-        (setq ldap-host-parameters-alist 
+        (setq ldap-host-parameters-alist
               (cons (list eudc-server) ldap-host-parameters-alist)))
     (customize-variable 'ldap-host-parameters-alist)))
 
-;;;}}}
+;;}}}
 
 
 (eudc-register-protocol 'ldap)
diff --git a/lisp/net/eudcb-ph.el b/lisp/net/eudcb-ph.el
index 5466aaa1493..0f783ce31fb 100644
--- a/lisp/net/eudcb-ph.el
+++ b/lisp/net/eudcb-ph.el
@@ -24,7 +24,7 @@
 ;; Boston, MA 02111-1307, USA.
 
 ;;; Commentary:
-;;    This library provides specific CCSO PH/QI protocol support for the 
+;;    This library provides specific CCSO PH/QI protocol support for the
 ;;    Emacs Unified Directory Client package
 
 ;;; Code:
@@ -50,8 +50,8 @@
 
 (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 
-and/or cons cells (KEY . VALUE) where KEYs should be valid 
+QUERY can be a string NAME or a list made of strings NAME
+and/or cons cells (KEY . VALUE) where KEYs should be valid
 CCSO database keys.  NAME is equivalent to (DEFAULT . NAME),
 where DEFAULT is the default key of the database.
 RETURN-FIELDS is a list of database fields to return,
@@ -61,7 +61,7 @@ defaulting to `eudc-default-return-attributes'."
         (setq return-fields eudc-default-return-attributes))
     (if (eq 'all return-fields)
         (setq return-fields '(all)))
-    (setq request 
+    (setq request
           (concat "query "
                   (if (stringp query)
                       query
@@ -88,9 +88,9 @@ are returned"
 
 
 (defun eudc-ph-parse-query-result (&optional fields)
-  "Return a list of alists of key/values from in `eudc-ph-process-buffer'. 
+  "Return a list of alists of key/values from in `eudc-ph-process-buffer'.
 Fields not in FIELDS are discarded."
-  (let (record 
+  (let (record
         records
         line-regexp
         current-key
@@ -122,7 +122,7 @@ Fields not in FIELDS are discarded."
                                (intern (match-string 2)))
                     value (match-string 3))
               (if (and current-key
-                       (eq key current-key)) 
+                       (eq key current-key))
                   (setq key nil)
                 (setq current-key key))
               (if (or (null fields)
@@ -156,7 +156,7 @@ Wait for response and return the buffer containing it."
           (message "Contacting server...")
           (setq process (eudc-ph-open-session))
           (if process
-              (save-excursion 
+              (save-excursion
                 (set-buffer (setq buffer (process-buffer process)))
                 (eudc-ph-send-command process request)
                 (message "Request sent, waiting for reply...")
@@ -164,7 +164,7 @@ Wait for response and return the buffer containing it."
       (if process
           (eudc-ph-close-session process)))
     buffer))
-        
+
 (defun eudc-ph-open-session (&optional server)
   "Open a connection to the given CCSO/QI SERVER.
 SERVER is either a string naming the server or a list (NAME PORT)."
@@ -232,7 +232,7 @@ depending on RETURN-RESPONSE."
           (buffer-substring (point) match-end)
         return-code))))
 
-;;}}}        
+;;}}}
 
 ;;{{{      High-level interfaces (interactive functions)