X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/782fc81943849d699d74c3039be80d4068bb3422..4f91a8160fe71295b7ad4d6e3f90f004caa3546c:/lisp/net/eudcb-ldap.el

diff --git a/lisp/net/eudcb-ldap.el b/lisp/net/eudcb-ldap.el
index 14594409df..fc7519e5b3 100644
--- a/lisp/net/eudcb-ldap.el
+++ b/lisp/net/eudcb-ldap.el
@@ -172,10 +172,10 @@ attribute names are returned. Default to `person'"
   "Format the EUDC QUERY list as a RFC1558 LDAP search filter."
   (format "(&%s)"
 	  (apply 'concat
-		 (mapcar '(lambda (item)
-			    (format "(%s=%s)"
-				    (car item)
-				    (eudc-ldap-escape-query-special-chars (cdr item))))
+		 (mapcar (lambda (item)
+                           (format "(%s=%s)"
+                                   (car item)
+                                   (eudc-ldap-escape-query-special-chars (cdr item))))
 			 query))))