[Emacs-diffs] scratch/eudc-bbdb-3 e355a65: EUDC: Remove inline requires of bbdb in BBDB backend

[Thomas Fitzsimmons]

branch: scratch/eudc-bbdb-3
commit e355a6536108d5ed5e90b693835849935883b479
Author: Thomas Fitzsimmons <address@hidden>
Commit: Thomas Fitzsimmons <address@hidden>

    EUDC: Remove inline requires of bbdb in BBDB backend
    
    * 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.
---
 lisp/net/eudcb-bbdb.el | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/lisp/net/eudcb-bbdb.el b/lisp/net/eudcb-bbdb.el
index 6541a2e..cd7afcf 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))