[elpa] externals/org ef31364 03/85: ob-tangle: Fix incorrect buff name in org-src edit

[ELPA Syncer]

branch: externals/org
commit ef31364bc86891cb30d2b027bb238cc9fcca7bcb
Author: Mark Dawson <markgdawson@gmail.com>
Commit: TEC <tec@tecosaur.com>

    ob-tangle: Fix incorrect buff name in org-src edit
    
    * lisp/ob-tangle.el (org-babel-tangle): Fix stringp error which happens
    when confirming successful tangle when `org-babel-tangle' is called from
    an org-src edit buffer.
    
    TINYCHANGE
---
 lisp/ob-tangle.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el
index b5c22c5..30b55e5 100644
--- a/lisp/ob-tangle.el
+++ b/lisp/ob-tangle.el
@@ -284,7 +284,10 @@ matching a regular expression."
                 (if (= block-counter 1) "" "s")
                 (file-name-nondirectory
                  (buffer-file-name
-                  (or (buffer-base-buffer) (current-buffer)))))
+                  (or (buffer-base-buffer)
+                       (current-buffer)
+                       (and (org-src-edit-buffer-p)
+                            (org-src-source-buffer))))))
        ;; run `org-babel-post-tangle-hook' in all tangled files
        (when org-babel-post-tangle-hook
          (mapc