Browse Source

Fix 9323857 (again)

Bastien Guerry 11 years ago
parent
commit
5ef5e7119f
1 changed files with 2 additions and 2 deletions
  1. 2 2
      lisp/org-src.el

+ 2 - 2
lisp/org-src.el

@@ -737,10 +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)
+        (while (and (not (eobp)) (re-search-forward "^" nil t))
           (if (not (looking-at "$"))
               (replace-match indent)
-	    (or (eobp) (forward-char 1)))))
+	    (forward-char 1))))
       (if (org-bound-and-true-p org-edit-src-picture)
 	  (setq total-nindent (+ total-nindent 2)))
       (setq code (buffer-string))