From e731d652bd1ed4e8c6bfeccc54726a87a9a75009 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Thu, 20 Feb 2014 06:12:59 +0200 Subject: [PATCH] Declare bbdb functions, instead of requiring it --- company-bbdb.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/company-bbdb.el b/company-bbdb.el index 4e7fdda60..fb665cb96 100644 --- a/company-bbdb.el +++ b/company-bbdb.el @@ -1,4 +1,4 @@ -;;; company-bbdb.el --- A company-mode completion back-end for BBDB in message-mode +;;; company-bbdb.el --- company-mode completion back-end for BBDB in message-mode ;; Copyright (C) 2013-2014 Free Software Foundation, Inc. @@ -21,14 +21,17 @@ (require 'company) (eval-when-compile (require 'cl)) -(require 'bbdb nil t) -(require 'bbdb-com nil t) + +(declare-function bbdb-record-get-field "bbdb") +(declare-function bbdb-records "bbdb") +(declare-function bbdb-dwim-mail "bbdb-com") +(declare-function bbdb-search "bbdb-com") (defvar company-bbdb-records (make-hash-table :test 'equal)) ;;;###autoload (defun company-bbdb (command &optional arg &rest ignore) - "A `company-mode' completion back-end for `bbdb'." + "`company-mode' completion back-end for `bbdb'." (interactive (list 'interactive)) (case command (interactive (company-begin-backend 'company-bbdb)) @@ -44,10 +47,8 @@ full-mail)) (bbdb-record-get-field record 'mail))) (bbdb-search (bbdb-records) arg nil arg))) - (sorted t) - (no-cache t) - (t nil))) + (no-cache t))) (provide 'company-bbdb) ;;; company-bbdb.el ends here -- 2.39.2