mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-29 11:02:33 +00:00
Code

org-bbdb: Pass variable to avoid dynamic scoping.

Browse Source 
* org-bbdb.el (org-bbdb-open, org-bbdb-open-old)
(org-bbdb-open-new): Pass record name to avoid dynamic scoping.
This commit is contained in:
David Maus 2012-03-04 20:37:46 +01:00
parent 595769d359
commit c9482d61a8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-bbdb.el
View File

@ -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)