From e583eaa8f11fdbe2d122b6a272eae5db768a6169 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Thu, 6 Feb 2014 14:29:29 -0700 Subject: [PATCH] fix bug when results butt up against headline * lisp/ob-core.el (org-babel-examplize-region): Don't treat exampleized regions adjoining headlines as inline examples. --- lisp/ob-core.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 95258e967..d0c9efd4f 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -2291,11 +2291,16 @@ file's directory then expand relative links." "Comment out region using the inline '==' or ': ' org example quote." (interactive "*r") (let ((chars-between (lambda (b e) - (not (string-match "^[\\s]*$" (buffer-substring b e))))) + (not (string-match "^[\\s]*$" + (buffer-substring b e))))) (maybe-cap (lambda (str) (if org-babel-capitalize-examplize-region-markers - (upcase str) str)))) - (if (or (funcall chars-between (save-excursion (goto-char beg) (point-at-bol)) beg) - (funcall chars-between end (save-excursion (goto-char end) (point-at-eol)))) + (upcase str) str))) + (beg-bol (save-excursion (goto-char beg) (point-at-bol))) + (end-bol (save-excursion (goto-char end) (point-at-bol))) + (end-eol (save-excursion (goto-char end) (point-at-eol)))) + (if (and (not (= end end-bol)) + (or (funcall chars-between beg-bol beg) + (funcall chars-between end end-eol))) (save-excursion (goto-char beg) (insert (format org-babel-inline-result-wrap