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.
This commit is contained in:
Dan Davison 2011-01-31 19:31:17 +00:00
parent 13c894d0bb
commit 978b34bc08
1 changed files with 2 additions and 1 deletions

View File

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