diff options
author | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:32 +0200 |
---|---|---|
committer | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:32 +0200 |
commit | efc77ab6f5e8883fc38d8c6f75b6db54a0965c15 (patch) | |
tree | a34b12897145816f4ab7fbeb2fe6db437651e98e /lisp/ob-ref.el | |
parent | 52fbfeb04b10aa78f24f339a352fe1161c0b37e4 (diff) |
Imported Upstream version 8.2.5h
Diffstat (limited to 'lisp/ob-ref.el')
-rw-r--r-- | lisp/ob-ref.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ob-ref.el b/lisp/ob-ref.el index 5a3c8ba..152af86 100644 --- a/lisp/ob-ref.el +++ b/lisp/ob-ref.el @@ -1,6 +1,6 @@ ;;; ob-ref.el --- org-babel functions for referencing external data -;; Copyright (C) 2009-2013 Free Software Foundation, Inc. +;; Copyright (C) 2009-2014 Free Software Foundation, Inc. ;; Authors: Eric Schulte ;; Dan Davison @@ -85,7 +85,9 @@ the variable." (cons (intern var) (let ((out (save-excursion (when org-babel-current-src-block-location - (goto-char org-babel-current-src-block-location)) + (goto-char (if (markerp org-babel-current-src-block-location) + (marker-position org-babel-current-src-block-location) + org-babel-current-src-block-location))) (org-babel-read ref)))) (if (equal out ref) (if (string-match "^\".*\"$" ref) |