Function: eudc-bbdb-extract-phones

eudc-bbdb-extract-phones is a byte-compiled function defined in eudcb-bbdb.el.gz.

Signature

(eudc-bbdb-extract-phones RECORD)

Source Code

;; Defined in /usr/src/emacs/lisp/net/eudcb-bbdb.el.gz
(declare-function bbdb-record-xfield "ext:bbdb" t) ; via bbdb-defstruct

(defun eudc-bbdb-extract-phones (record)
  (require 'bbdb)
  (mapcar (lambda (phone)
            (if eudc-bbdb-use-locations-as-attribute-names
                (cons (intern (if (eudc--using-bbdb-3-or-newer-p)
                                  (bbdb-phone-label phone)
                                (bbdb-phone-location phone)))
                      (bbdb-phone-string phone))
              (cons 'phones (format "%s: %s"
                                    (if (eudc--using-bbdb-3-or-newer-p)
                                        (bbdb-phone-label phone)
                                      (bbdb-phone-location phone))
                                    (bbdb-phone-string phone)))))
	  (if (eudc--using-bbdb-3-or-newer-p)
              (bbdb-record-phone record)
            (bbdb-record-phones record))))