[#52] Fix handling of non-file buffers

1 files changed, 8 insertions, 1 deletions

diff --git a/apheleia.el b/apheleia.el
index a0d9e31..c6168fe 100644
--- a/apheleia.el
+++ b/apheleia.el
@@ -598,7 +598,14 @@ sequence unless it's first in the sequence"))
                                     (setq stdin nil))
                                   (if (memq arg '(file filepath))
                                       (prog1 file-name
-                                        (when (buffer-modified-p)
+                                        ;; If `buffer-file-name' is
+                                        ;; nil then there is no
+                                        ;; backing file, so
+                                        ;; `buffer-modified-p' should
+                                        ;; be ignored (it always
+                                        ;; returns non-nil).
+                                        (when (and (buffer-modified-p)
+                                                   buffer-file-name)
                                           (cl-return)))
                                     arg))
                                 command))))