From 888ca6f573bea3361d7039dde2a125531c825ae1 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 13 Oct 2007 03:02:35 +0000 Subject: [PATCH] (eudc-bbdb-filter-non-matching-record) (eudc-bbdb-query-internal): Use mapc rather than mapcar. --- lisp/net/eudcb-bbdb.el | 34 +++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 deletions(-) diff --git a/lisp/net/eudcb-bbdb.el b/lisp/net/eudcb-bbdb.el index f84d98aaed8..7e37d9d4123 100644 --- a/lisp/net/eudcb-bbdb.el +++ b/lisp/net/eudcb-bbdb.el @@ -75,7 +75,7 @@ "Return RECORD if it matches `eudc-bbdb-current-query', nil otherwise." (catch 'unmatch (progn - (mapcar + (mapc (function (lambda (condition) (let ((attr (car condition)) @@ -197,22 +197,22 @@ RETURN-ATTRS is a list of attributes to return, defaulting to (if (car query-attrs) (setq records (eval `(bbdb-search ,(quote records) ,@bbdb-attrs)))) (setq query-attrs (cdr query-attrs))) - (mapcar (function - (lambda (record) - (setq filtered (eudc-filter-duplicate-attributes record)) - ;; If there were duplicate attributes reverse the order of the - ;; record so the unique attributes appear first - (if (> (length filtered) 1) - (setq filtered (mapcar (function - (lambda (rec) - (reverse rec))) - filtered))) - (setq result (append result filtered)))) - (delq nil - (mapcar 'eudc-bbdb-format-record-as-result - (delq nil - (mapcar 'eudc-bbdb-filter-non-matching-record - records))))) + (mapc (function + (lambda (record) + (setq filtered (eudc-filter-duplicate-attributes record)) + ;; If there were duplicate attributes reverse the order of the + ;; record so the unique attributes appear first + (if (> (length filtered) 1) + (setq filtered (mapcar (function + (lambda (rec) + (reverse rec))) + filtered))) + (setq result (append result filtered)))) + (delq nil + (mapcar 'eudc-bbdb-format-record-as-result + (delq nil + (mapcar 'eudc-bbdb-filter-non-matching-record + records))))) result)) ;;}}} -- 2.39.5