From 9ba6a2f4af05c1104c678d959ff285bc7df5a70a Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sat, 23 May 2015 15:18:07 -0400 Subject: [PATCH] org-src: Fix reference to free variable * lisp/org-src.el (org-src--contents-area): Replace a let with let*. --- lisp/org-src.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/org-src.el b/lisp/org-src.el index 5201dca..88c8dd2 100644 --- a/lisp/org-src.el +++ b/lisp/org-src.el @@ -273,10 +273,10 @@ (defun org-src--contents-area (datum) (let ((type (org-element-type datum))) (cond ((eq type 'footnote-definition) - (let ((beg (org-with-wide-buffer - (goto-char (org-element-property :post-affiliated datum)) - (search-forward "]"))) - (end (or (org-element-property :contents-end datum) beg))) + (let* ((beg (org-with-wide-buffer + (goto-char (org-element-property :post-affiliated datum)) + (search-forward "]"))) + (end (or (org-element-property :contents-end datum) beg))) (list beg end (buffer-substring-no-properties beg end)))) ((org-element-property :contents-begin datum) (list (org-element-property :contents-begin datum) -- 2.4.1