fixing the use of called-interactively-p

1 files changed, 1 insertions, 1 deletions

diff --git a/hmm.el b/hmm.el
index 72951d7..f3cd7e0 100644
--- a/hmm.el
+++ b/hmm.el
@@ -294,7 +294,7 @@
        (with-temp-buffer
          (call-process "file" nil '(t t) nil "-Li" file)
          (setq out (string-trim (buffer-string)))
-         (if (called-interactively-p)
+         (if (called-interactively-p 'interactive)
              (message out)
            out))))))