From 7ed96590e6cacff4d4edbc72333b5d06a6854a41 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 26 May 2020 21:45:31 -0400 Subject: [PATCH] Fix #3232: wrong-type-argument arrayp error on org-journal Because both org-journal-is-journal and +org--journal-resolve-symlinks-a assumed buffer-file-name is always non-nil. --- modules/lang/org/contrib/journal.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/modules/lang/org/contrib/journal.el b/modules/lang/org/contrib/journal.el index db2bb43e6..9371e8c57 100644 --- a/modules/lang/org/contrib/journal.el +++ b/modules/lang/org/contrib/journal.el @@ -26,8 +26,9 @@ ;; treatment later, as well. (defadvice! +org--journal-resolve-symlinks-a (orig-fn) :around #'org-journal-is-journal - (let ((buffer-file-name (file-truename buffer-file-name))) - (funcall orig-fn))) + (when buffer-file-name + (let ((buffer-file-name (file-truename buffer-file-name))) + (funcall orig-fn)))) ;; `org-journal-dir' defaults to "~/Documents/journal/", which is an odd ;; default, so we change it to {org-directory}/journal (we expand it after