From c9482d61a83ddd9ddfa205ad9831e25a51638d7d Mon Sep 17 00:00:00 2001 From: David Maus Date: Sun, 4 Mar 2012 20:37:46 +0100 Subject: [PATCH] org-bbdb: Pass variable to avoid dynamic scoping. * org-bbdb.el (org-bbdb-open, org-bbdb-open-old) (org-bbdb-open-new): Pass record name to avoid dynamic scoping. --- lisp/org-bbdb.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/org-bbdb.el b/lisp/org-bbdb.el index 7fb9fc9d9..c4ef2a48d 100644 --- a/lisp/org-bbdb.el +++ b/lisp/org-bbdb.el @@ -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)