[elpa] externals/org 392ccbbf5d 1/3: ob-core: Display position of executed babel blocks

[ELPA Syncer]

branch: externals/org
commit 392ccbbf5d450ad47cd5952ed2f4ef35e454648e
Author: TEC <git@tecosaur.net>
Commit: TEC <git@tecosaur.net>

    ob-core: Display position of executed babel blocks
    
    * lisp/ob-core.el (org-babel-execute-src-block): When an unnamed babel
    block is executed, show the position of the block.
    
    This makes it easier to track the execution without having to name every
    block.
    
    ob-core: point
    
    * lisp/ob-core.el (org-babel-execute-src-block):
---
 lisp/ob-core.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index 8a963fa8e2..392de999e9 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -779,7 +779,9 @@ block."
            (message "executing %s code block%s..."
                     (capitalize lang)
                     (let ((name (nth 4 info)))
-                      (if name (format " (%s)" name) "")))
+                      (if name
+                           (format "(%s)" name)
+                         (format "at position %d" (nth 5 info)))))
            (setq result
                  (let ((r (funcall cmd body params)))
                    (if (and (eq (cdr (assq :result-type params)) 'value)