From aba63448954e2e2242f1f5b5d8b17dc54c754acf Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Tue, 19 Mar 2024 03:59:41 +0900 Subject: Use absolute path. --- scripts/export-to-html.el | 4 ++-- scripts/export-to-text.el | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/scripts/export-to-html.el b/scripts/export-to-html.el index 735414c..e2a7177 100644 --- a/scripts/export-to-html.el +++ b/scripts/export-to-html.el @@ -1,8 +1,8 @@ (unless (= 2 (length argv)) (error "Usage: emacs --script scripts/export-to-html ")) -(let* ((source-filename (elt argv 0)) - (output-filename (elt argv 1)) +(let* ((source-filename (file-truename (elt argv 0))) + (output-filename (file-truename (elt argv 1))) (source-buffer (find-file source-filename)) (output-buffer (find-file output-filename)) (html-buffer (get-buffer-create "*Org HTML Export*")) diff --git a/scripts/export-to-text.el b/scripts/export-to-text.el index debe18b..4280d21 100644 --- a/scripts/export-to-text.el +++ b/scripts/export-to-text.el @@ -1,8 +1,8 @@ (unless (= 2 (length argv)) (error "Usage: emacs --script scripts/export-to-text ")) -(let* ((source-filename (elt argv 0)) - (output-filename (elt argv 1)) +(let* ((source-filename (file-truename (elt argv 0))) + (output-filename (file-truename (elt argv 1))) (source-buffer (find-file source-filename)) (output-buffer (find-file output-filename)) (text-buffer (get-buffer-create "*Org ASCII Export*")) -- cgit v1.2.3