mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-15 22:10:24 +00:00
Code Releases Activity

allow comments between code blocks and un-named res

Browse source 
* lisp/ob-core.el (org-babel-where-is-src-block-result): Allow comments
  between code blocks and un-named results.
This commit is contained in:
Eric Schulte 2013-03-17 19:56:40 -05:00
parent 90faed3672
commit a461b0a444
1 changed files with 19 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/ob-core.el
View file

@ -1807,12 +1807,17 @@ following the source block."
(progn (end-of-line 1) (progn (end-of-line 1)
(if (eobp) (insert "\n") (forward-char 1)) (if (eobp) (insert "\n") (forward-char 1))
(setq end (point)) (setq end (point))
(or (and (not name) (or (and
(not name)
(progn ;; unnamed results line already exists (progn ;; unnamed results line already exists
(re-search-forward "[^ \f\t\n\r\v]" nil t) (catch 'non-comment
(while (re-search-forward "[^ \f\t\n\r\v]" nil t)
(beginning-of-line 1) (beginning-of-line 1)
(looking-at (cond
(concat org-babel-result-regexp "\n"))) ((looking-at (concat org-babel-result-regexp "\n"))
(throw 'non-comment t))
((looking-at "^[ \t]*#") (end-of-line 1))
(t (throw 'non-comment nil))))))
(let ((this-hash (match-string 5))) (let ((this-hash (match-string 5)))
(prog1 (point) (prog1 (point)
;; must remove and rebuild if hash!=old-hash ;; must remove and rebuild if hash!=old-hash