make insert-src-block handle #+NAME:d blocks

the name of a src block is part of the org-element, so need to go down a
line if it's present
This commit is contained in:
Griffin Smith 2020-05-27 10:17:14 -04:00
parent 699da9cebd
commit 9a430d5844

View file

@ -1253,7 +1253,11 @@ If invoked with a prefix ARG eval the expression after inserting it"
(src-block-head (save-excursion
(goto-char (org-element-property
:begin current-src-block))
(thing-at-point 'line t)))
(let ((line (thing-at-point 'line t)))
(if (not (s-starts-with? "#+NAME:" (s-trim line)))
line
(forward-line)
(thing-at-point 'line t)))))
(point-to-insert
(if-let (results-loc (org-babel-where-is-src-block-result))
(save-excursion