Fix 9323857 (again^2)

Thanks to Florian Beck for providing the right fix.

lisp/org-src.el

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