Mimic some aspects of file visiting.

Set ‘default-directory’ to the directory of the visited file so that relative filenames are interpreted correctly.
phst · Sep 17, 2024 · 40adffa · 40adffa
1 parent 05e3c01
commit 40adffa
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/elisp/export-org.el b/elisp/export-org.el
@@ -45,7 +45,8 @@
          (org-export-time-stamp-file nil)
          (org-export-use-babel nil))
      (with-temp-buffer
-       (insert-file-contents input)
+       (insert-file-contents input :visit)
+       (setq default-directory (file-name-directory input))
        (write-region (org-export-as 'texinfo) nil output))))
   (_ (user-error "Usage: elisp/export-org INPUT OUTPUT")))