소스 검색

Fix 9323857 (again)

Bastien Guerry 11 년 전
부모
커밋
5ef5e7119f
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제
  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))