Browse Source

org-src.el (org-edit-src-exit): Don't add indentation on empty lines

* org-src.el (org-edit-src-exit): Don't add indentation on
empty lines.

TINYCHANGE
Arun Persaud 11 years ago
parent
commit
9323857411
1 changed files with 4 additions and 2 deletions
  1. 4 2
      lisp/org-src.el

+ 4 - 2
lisp/org-src.el

@@ -737,8 +737,10 @@ with \",*\", \",#+\", \",,*\" and \",,#+\"."
       (unless (or single preserve-indentation (= total-nindent 0))
 	(setq indent (make-string total-nindent ?\ ))
 	(goto-char (point-min))
-	(while (re-search-forward "^" nil t)
-	  (replace-match indent)))
+        (while (re-search-forward "^" nil t)
+          (if (not (looking-at "$"))
+              (replace-match indent)
+	    (forward-char 1))))
       (if (org-bound-and-true-p org-edit-src-picture)
 	  (setq total-nindent (+ total-nindent 2)))
       (setq code (buffer-string))