Mercurial > emacs

comparison lisp/net/eudcb-ldap.el @ 85227:d1f4134ad896

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(eudc-ldap-simple-query-internal): Use mapc rather than mapcar.
author Glenn Morris <rgm@gnu.org>
date Sat, 13 Oct 2007 03:02:15 +0000
parents 84cf1e2214c5
children 107ccd98fa12 d38543a1c0f9
comparison
equal deleted inserted replaced
85226:716b4c75ab5f 85227:d1f4134ad896
128 return-attrs 128 return-attrs
129 (not (eq 'all return-attrs))) 129 (not (eq 'all return-attrs)))
130 (setq result (eudc-filter-partial-records result return-attrs))) 130 (setq result (eudc-filter-partial-records result return-attrs)))
131 ;; Apply eudc-duplicate-attribute-handling-method 131 ;; Apply eudc-duplicate-attribute-handling-method
132 (if (not (eq 'list eudc-duplicate-attribute-handling-method)) 132 (if (not (eq 'list eudc-duplicate-attribute-handling-method))
133 (mapcar 133 (mapc
134 (function (lambda (record) 134 (function (lambda (record)
135 (setq final-result 135 (setq final-result
136 (append (eudc-filter-duplicate-attributes record) 136 (append (eudc-filter-duplicate-attributes record)
137 final-result)))) 137 final-result))))
138 result)) 138 result))