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.
This commit is contained in:
Henrik Lissner 2020-05-26 21:45:31 -04:00
parent f5e120eefe
commit 7ed96590e6
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -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