diff options
| author | Thomas Fitzsimmons <fitzsim@fitzsim.org> | 2018-04-16 20:54:01 -0400 |
|---|---|---|
| committer | Thomas Fitzsimmons <fitzsim@fitzsim.org> | 2018-04-16 20:54:01 -0400 |
| commit | e355a6536108d5ed5e90b693835849935883b479 (patch) | |
| tree | a4c3fc9fa71e1654082429faf6006a8dbe0d59f5 | |
| parent | f083b86aaf9c33fc619db666b9d0a40ebb84beab (diff) | |
| download | emacs-scratch/eudc-bbdb-3.tar.gz | |
EUDC: Remove inline requires of bbdb in BBDB backendscratch/eudc-bbdb-3
* lisp/net/eudcb-bbdb.el
(eudc-bbdb-filter-non-matching-record): Remove inline require
of bbdb.
(eudc-bbdb-extract-phones): Likewise.
(eudc-bbdb-extract-addresses): Likewise.
(eudc-bbdb-format-record-as-result): Likewise.
(eudc-bbdb-query-internal): Likewise.
| -rw-r--r-- | lisp/net/eudcb-bbdb.el | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/lisp/net/eudcb-bbdb.el b/lisp/net/eudcb-bbdb.el index 6541a2e788b..cd7afcf2861 100644 --- a/lisp/net/eudcb-bbdb.el +++ b/lisp/net/eudcb-bbdb.el @@ -88,7 +88,6 @@ for continued use of those old names." (defun eudc-bbdb-filter-non-matching-record (record) "Return RECORD if it is a match for `eudc-bbdb-current-query', nil otherwise." - (require 'bbdb) (catch 'unmatch (progn (dolist (condition eudc-bbdb-current-query) @@ -118,7 +117,6 @@ for continued use of those old names." (defun eudc-bbdb-extract-phones (record) "Extract phone numbers from BBDB RECORD." - (require 'bbdb) ;; Keep same order as in BBDB record. (nreverse (mapcar (function @@ -133,7 +131,6 @@ for continued use of those old names." (defun eudc-bbdb-extract-addresses (record) "Extract addresses from BBDB RECORD." - (require 'bbdb) (let (s c val) (nreverse (mapcar (lambda (address) @@ -159,7 +156,6 @@ for continued use of those old names." (defun eudc-bbdb-format-record-as-result (record) "Format the BBDB RECORD as a EUDC query result record. The record is filtered according to `eudc-bbdb-current-return-attributes'" - (require 'bbdb) (let ((attrs (or eudc-bbdb-current-return-attributes '(firstname lastname aka organization phone address mail notes))) @@ -208,7 +204,6 @@ QUERY is a list of cons cells (ATTR . VALUE) where ATTRs should be valid BBDB attribute names. RETURN-ATTRS is a list of attributes to return, defaulting to `eudc-default-return-attributes'." - (require 'bbdb) (let ((eudc-bbdb-current-query query) (eudc-bbdb-current-return-attributes return-attrs) (query-attrs (eudc-bbdb-format-query query)) |