[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/eudcb-bbdb.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/eudcb-bbdb.el,v |
Date: |
Thu, 29 Nov 2007 04:28:29 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 07/11/29 04:28:29
Index: eudcb-bbdb.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/eudcb-bbdb.el,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -b -r1.13 -r1.14
--- eudcb-bbdb.el 13 Oct 2007 03:02:35 -0000 1.13
+++ eudcb-bbdb.el 29 Nov 2007 04:28:28 -0000 1.14
@@ -103,6 +103,20 @@
eudc-bbdb-current-query)
record)))
+;; External.
+(declare-function bbdb-phone-location "ext:bbdb") ; via bbdb-defstruct
+(declare-function bbdb-phone-string "ext:bbdb" (phone))
+(declare-function bbdb-record-phones "ext:bbdb") ; via bbdb-defstruct
+;; FIXME: bbdb-address-street1/2/3 don't seem to exist in current
+;; bbdb, so this code is probably broken.
+(declare-function bbdb-address-city "ext:bbdb") ; via bbdb-defstruct
+(declare-function bbdb-address-state "ext:bbdb") ; via bbdb-defstruct
+(declare-function bbdb-address-zip "ext:bbdb") ; via bbdb-defstruct
+(declare-function bbdb-address-location "ext:bbdb") ; via bbdb-defstruct
+(declare-function bbdb-record-addresses "ext:bbdb") ; via bbdb-defstruct
+(declare-function bbdb-records "ext:bbdb"
+ (&optional dont-check-disk already-in-db-buffer))
+
(defun eudc-bbdb-extract-phones (record)
(mapcar (function
(lambda (phone)
@@ -130,7 +144,7 @@
(if (and (> (length c) 0) (> (length s) 0))
(concat c ", " s " ")
(concat c " ")))
- (bbdb-address-zip-string address)))
+ (bbdb-address-zip address)))
(if eudc-bbdb-use-locations-as-attribute-names
(cons (intern (bbdb-address-location address)) val)
(cons 'addresses (concat (bbdb-address-location address) "\n"
val)))))
- [Emacs-diffs] Changes to emacs/lisp/net/eudcb-bbdb.el,v,
Glenn Morris <=