diff options
Diffstat (limited to 'lisp/net/eudcb-ldap.el')
| -rw-r--r-- | lisp/net/eudcb-ldap.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/net/eudcb-ldap.el b/lisp/net/eudcb-ldap.el index 1764f03e213..14cc7db2fa8 100644 --- a/lisp/net/eudcb-ldap.el +++ b/lisp/net/eudcb-ldap.el @@ -76,12 +76,11 @@ "Do some cleanup in a RECORD to make it suitable for EUDC." (declare (obsolete eudc-ldap-cleanup-record-filtering-addresses "25.1")) (mapcar - (function - (lambda (field) - (cons (intern (downcase (car field))) - (if (cdr (cdr field)) - (cdr field) - (car (cdr field)))))) + (lambda (field) + (cons (intern (downcase (car field))) + (if (cdr (cdr field)) + (cdr field) + (car (cdr field))))) record)) (defun eudc-filter-$ (string) |