Function: org-bbdb-store-link

org-bbdb-store-link is a byte-compiled function defined in ol-bbdb.el.gz.

Signature

(org-bbdb-store-link)

Documentation

Store a link to a BBDB database entry.

Source Code

;; Defined in /usr/src/emacs/lisp/org/ol-bbdb.el.gz
;;; Implementation

(defun org-bbdb-store-link ()
  "Store a link to a BBDB database entry."
  (when (eq major-mode 'bbdb-mode)
    ;; This is BBDB, we make this link!
    (let* ((rec (bbdb-current-record))
           (name (bbdb-record-name rec))
	   (company (if (fboundp 'bbdb-record-getprop)
                        (bbdb-record-getprop rec 'company)
                      (car (bbdb-record-field rec 'organization))))
	   (link (concat "bbdb:" name)))
      (org-link-store-props :type "bbdb" :name name :company company
			    :link link :description name)
      link)))