mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-23 07:18:53 +00:00
Code

fix bug when results butt up against headline

Browse Source 
* lisp/ob-core.el (org-babel-examplize-region): Don't treat
  exampleized regions adjoining headlines as inline examples.
This commit is contained in:
Eric Schulte 2014-02-06 14:29:29 -07:00
parent 61dbb84081
commit e583eaa8f1
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/ob-core.el
View File

@ -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