user-error for an error, rather than message.

diff --git a/pelican-mode.el b/pelican-mode.el
index e032242cf9e1126ea5e0ccc42bb1e3be51bed075..3691c2fe4095a95dc6468c5001e2cd69235fd834 100644 (file)
--- a/pelican-mode.el
+++ b/pelican-mode.el
@@ -224,7 +224,7 @@ the unquoted printed representation of it is used:
   (if-let (default-directory (pelican-find-root))
       (compilation-start (format "make %s" target)
                          nil (lambda (_) "*pelican*"))
-    (message "This doesn't look like a Pelican site.")))
+    (user-error "This doesn't look like a Pelican site")))
 
 (defun pelican-make-html ()
   "Generate HTML via a Makefile at the root of the site."