From f45591630fbd5fbf191699e5c980a0cae922502f Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Sat, 5 Sep 2020 16:40:45 +0200 Subject: [PATCH] ob-core.el: Use `buffer-base-buffer' where needed * lisp/ob-core.el (org-babel-result-to-file): Use `buffer-base-buffer' so that `buffer-file-name' returns correct results in indirect buffers too. See TINYCHANGE --- lisp/ob-core.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index cd876da0f..eb61763d3 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -2506,16 +2506,19 @@ If the `default-directory' is different from the containing file's directory then expand relative links." (when (stringp result) (let ((same-directory? - (and buffer-file-name + (and (buffer-file-name (buffer-base-buffer)) (not (string= (expand-file-name default-directory) - (expand-file-name - (file-name-directory buffer-file-name))))))) + (expand-file-name + (file-name-directory + (buffer-file-name (buffer-base-buffer))))))))) (format "[[file:%s]%s]" - (if (and default-directory buffer-file-name same-directory?) + (if (and default-directory + (buffer-file-name (buffer-base-buffer)) same-directory?) (if (eq org-link-file-path-type 'adaptive) (file-relative-name (expand-file-name result default-directory) - (file-name-directory (buffer-file-name))) + (file-name-directory + (buffer-file-name (buffer-base-buffer)))) (expand-file-name result default-directory)) result) (if description (concat "[" description "]") "")))))