mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-15 21:39:58 +00:00
allow comments between code blocks and un-named res
* 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:
parent
90faed3672
commit
a461b0a444
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue