|
@@ -225,10 +225,10 @@ italicized, in all other cases it is left unchanged."
|
|
|
(let ((inhibit-redisplay (not debug-on-error))
|
|
|
(bbdb-electric-p nil))
|
|
|
(if (fboundp 'bbdb-name)
|
|
|
- (org-bbdb-open-old)
|
|
|
- (org-bbdb-open-new))))
|
|
|
+ (org-bbdb-open-old name)
|
|
|
+ (org-bbdb-open-new name))))
|
|
|
|
|
|
-(defun org-bbdb-open-old ()
|
|
|
+(defun org-bbdb-open-old (name)
|
|
|
(catch 'exit
|
|
|
;; Exact match on name
|
|
|
(bbdb-name (concat "\\`" name "\\'") nil)
|
|
@@ -248,7 +248,7 @@ italicized, in all other cases it is left unchanged."
|
|
|
(delete-window (get-buffer-window "*BBDB*"))
|
|
|
(error "No matching BBDB record"))))
|
|
|
|
|
|
-(defun org-bbdb-open-new ()
|
|
|
+(defun org-bbdb-open-new (name)
|
|
|
(catch 'exit
|
|
|
;; Exact match on name
|
|
|
(bbdb-search-name (concat "\\`" name "\\'") nil)
|