Bläddra i källkod

org-src: Fix reference to free variable

* lisp/org-src.el (org-src--contents-area): Replace a let with let*.
Kyle Meyer 9 år sedan
förälder
incheckning
e50472d926
1 ändrade filer med 4 tillägg och 4 borttagningar
  1. 4 4
      lisp/org-src.el

+ 4 - 4
lisp/org-src.el

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