From 367072d11bc21b932522ab4b9fc7d6bb089a0bd0 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Fri, 14 Aug 2009 15:49:05 -0600 Subject: [PATCH] OK, now I really think that we're done inserting superfluous interests with results --- lisp/org-babel.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/org-babel.el b/lisp/org-babel.el index e67c8cd5e..0fa933d2a 100644 --- a/lisp/org-babel.el +++ b/lisp/org-babel.el @@ -556,10 +556,9 @@ relies on `org-babel-insert-result'." (let ((case-fold-search nil)) (if (looking-at "#\\+begin_example") (search-forward "#+end_example" nil t) - (while (if (looking-at "\\(: \\|\\[\\[\\)") - (progn (while (looking-at "\\(: \\|\\[\\[\\)") - (forward-line 1)) t)) - (forward-line 1)))) + (progn (while (looking-at "\\(: \\|\\[\\[\\)") + (forward-line 1)) + (forward-line 1)))) (point)))) (defun org-babel-result-to-file (result) -- 2.11.4.GIT