[elpa] externals/org-transclusion b6c7bcb632 7/7: chg: visit file as RAWFILE

[ELPA Syncer]

branch: externals/org-transclusion
commit b6c7bcb632f4d91a1fb8e485f73cc83377b2535d
Author: Noboru Ota <me@nobiot.com>
Commit: Noboru Ota <me@nobiot.com>

    chg: visit file as RAWFILE
---
 org-transclusion-src-lines.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/org-transclusion-src-lines.el b/org-transclusion-src-lines.el
index 0670bbb257..9587b996a7 100644
--- a/org-transclusion-src-lines.el
+++ b/org-transclusion-src-lines.el
@@ -17,7 +17,7 @@
 
 ;; Author: Noboru Ota <me@nobiot.com>
 ;; Created: 24 May 2021
-;; Last modified: 26 June 2022
+;; Last modified: 10 July 2022
 
 ;;; Commentary:
 ;;  This is an extension to `org-transclusion'.  When active, it adds features
@@ -110,7 +110,7 @@ it means from line 10 to the end of file."
          (end-search-op (plist-get plist :end)))
     (if (not (string= type "id")) (setq buf (find-file-noselect path))
       (let ((filename-pos (org-id-find path)))
-        (setq buf (find-file-noselect (car filename-pos)))
+        (setq buf (find-file-noselect nil 'RAWFILE (car filename-pos)))
         (setq entry-pos (cdr filename-pos))))
     (when buf
       (with-current-buffer buf