forked from mirrors/org-mode
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 <https://orgmode.org/list/87eeos3w7v.fsf@localhost> TINYCHANGE
This commit is contained in:
parent
114d509829
commit
f45591630f
|
@ -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)))))))
|
||||
(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 "]") "")))))
|
||||
|
|
Loading…
Reference in New Issue