diff options
| author | Dan Davison <dandavison7@gmail.com> | 2011-01-31 19:31:17 +0000 |
|---|---|---|
| committer | Dan Davison <dandavison7@gmail.com> | 2011-01-31 19:36:43 +0000 |
| commit | 978b34bc0858ca2a930c2783f6315e5f0c4bfa69 (patch) | |
| tree | 5d2fc9844ba34a260ff44616690cb8174668b4d4 | |
| parent | 13c894d0bb208906ec2aebb2e583283b517c5174 (diff) | |
| download | org-mode-978b34bc0858ca2a930c2783f6315e5f0c4bfa69.tar.gz | |
ob: don't disturb windows when resolving references in external files
* lisp/ob-ref.el (org-babel-ref-resolve): save-window-excursion when
resolving references.
| -rw-r--r-- | lisp/ob-ref.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/ob-ref.el b/lisp/ob-ref.el index f11fcf4..dba1924 100644 --- a/lisp/ob-ref.el +++ b/lisp/ob-ref.el @@ -84,6 +84,7 @@ the variable." (defvar org-babel-library-of-babel) (defun org-babel-ref-resolve (ref) "Resolve the reference REF and return its value." + (save-window-excursion (save-excursion (let ((case-fold-search t) type args new-refere new-header-args new-referent result @@ -156,7 +157,7 @@ the variable." (format "%S" result) (if (and index (listp result)) (org-babel-ref-index-list index result) - result)))))) + result))))))) (defun org-babel-ref-index-list (index lis) "Return the subset of LIS indexed by INDEX. |