branch: externals/org-transclusion
commit b6c7bcb632f4d91a1fb8e485f73cc83377b2535d
Author: Noboru Ota <m...@nobiot.com>
Commit: Noboru Ota <m...@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 <m...@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
