aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMasaya Tojo <masaya@tojo.tokyo>2024-03-19 03:59:41 +0900
committerMasaya Tojo <masaya@tojo.tokyo>2024-03-19 04:00:24 +0900
commitaba63448954e2e2242f1f5b5d8b17dc54c754acf (patch)
tree2896d5f3df3969031ce89faaec836b9933278b61
parent9f7c2e9bf63cb69a1cb8e00545e198338ca05428 (diff)
Use absolute path.
-rw-r--r--scripts/export-to-html.el4
-rw-r--r--scripts/export-to-text.el4
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 <source-file> <output-file>"))
-(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 <source-file> <output-file>"))
-(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*"))