Jelajahi Sumber

org-element: Fix src-block interpreter

* lisp/org-element.el (org-element-src-block-interpreter): Fix function
  according to previous change.
Nicolas Goaziou 9 tahun lalu
induk
melakukan
a1d9daa452
1 mengubah file dengan 3 tambahan dan 2 penghapusan
  1. 3 2
      lisp/org-element.el

+ 3 - 2
lisp/org-element.el

@@ -2443,11 +2443,12 @@ Assume point is at the beginning of the block."
 	    ((or org-src-preserve-indentation
 		 (org-element-property :preserve-indent src-block))
 	     val)
-	    ((zerop org-edit-src-content-indentation) val)
+	    ((zerop org-edit-src-content-indentation)
+	     (org-remove-indentation val))
 	    (t
 	     (let ((ind (make-string org-edit-src-content-indentation ?\s)))
 	       (replace-regexp-in-string
-		"\\(^\\)[ \t]*\\S-" ind val nil nil 1)))))))
+		"^" ind (org-remove-indentation val))))))))
     (concat (format "#+BEGIN_SRC%s\n"
 		    (concat (and lang (concat " " lang))
 			    (and switches (concat " " switches))