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

1 files changed, 5 insertions, 1 deletions

diff --git a/+bindings.el b/+bindings.el
index 9596d485f2..e2dec2a3ad 100644
--- a/+bindings.el
+++ b/+bindings.el
@@ -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