[elpa] externals/org 8800d28e84 02/10: org: Use buffer-base-buffer in safe resource fns

[ELPA Syncer]

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

    org: Use buffer-base-buffer in safe resource fns
    
    * lisp/org.el (org--confirm-resource-safe, org--safe-remote-resource-p):
    Replace instances of buffer-file-name
    with (buffer-file-name (buffer-base-buffer)) so these functions work in
    indirect buffers.
---
 lisp/org.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 73b18ca1da..35adcc434b 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -4596,8 +4596,8 @@ is available.  This option applies only if FILE is a URL."
 This checks every pattern in `org-safe-remote-resources', and
 returns non-nil if any of them match."
   (let ((uri-patterns org-safe-remote-resources)
-        (file-uri (and buffer-file-name
-                       (concat "file://" (file-truename buffer-file-name))))
+        (file-uri (and (buffer-file-name (buffer-base-buffer))
+                       (concat "file://" (file-truename (buffer-file-name 
(buffer-base-buffer))))))
         match-p)
     (while (and (not match-p) uri-patterns)
       (setq match-p (or (string-match-p (car uri-patterns) uri)
@@ -4608,7 +4608,8 @@ returns non-nil if any of them match."
 (defun org--confirm-resource-safe (uri)
   "Ask the user if URI should be considered safe, returning non-nil if so."
   (unless noninteractive
-    (let ((current-file (and buffer-file-name (file-truename 
buffer-file-name)))
+    (let ((current-file (and (buffer-file-name (buffer-base-buffer))
+                             (file-truename (buffer-file-name 
(buffer-base-buffer)))))
           (domain (and (string-match
                         (rx (seq "http" (? "s") "://")
                             (optional (+ (not (any "@/\n"))) "@")