Lines Matching +defs:record +defs:record
74 (defun eudc-bbdb-filter-non-matching-record (record)
88 (eval (list (intern (concat "bbdb-record-"
90 'record)))
104 record)))
106 (defun eudc-bbdb-extract-phones (record)
115 (bbdb-record-phones record)))
117 (defun eudc-bbdb-extract-addresses (record)
137 (bbdb-record-addresses record))))
139 (defun eudc-bbdb-format-record-as-result (record)
140 "Format the BBDB RECORD as a EUDC query result record.
141 The record is filtered according to `eudc-bbdb-current-return-attributes'"
152 (setq val (eudc-bbdb-extract-phones record)))
154 (setq val (eudc-bbdb-extract-addresses record)))
158 (concat "bbdb-record-"
160 'record))))
201 (lambda (record)
202 (setq filtered (eudc-filter-duplicate-attributes record))
204 ;; record so the unique attributes appear first
212 (mapcar 'eudc-bbdb-format-record-as-result
214 (mapcar 'eudc-bbdb-filter-non-matching-record