浏览代码

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.
Dan Davison 14 年之前
父节点
当前提交
978b34bc08
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      lisp/ob-ref.el

+ 2 - 1
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.