tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-src: Fix reference to free variable 

* lisp/org-src.el (org-src--contents-area): Replace a let with let*.
This commit is contained in:
Kyle Meyer 2015-05-23 15:18:07 -04:00 committed by Nicolas Goaziou
parent 71641bc3a0
commit e50472d926
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-src.el
View File

@ -273,10 +273,10 @@ where BEG and END are buffer positions and CONTENTS is a string."
(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)