user-error for an error, rather than message.

[pelican-mode.git] / pelican-mode.el

diff --git a/pelican-mode.el b/pelican-mode.el
index 1ad70df..3691c2f 100644 (file)
--- a/pelican-mode.el
+++ b/pelican-mode.el
@@ -3,7 +3,7 @@
 ;; Copyright 2013-2017 Joe Wreschnig
 ;;
 ;; Author: Joe Wreschnig <joe.wreschnig@gmail.com>
 ;; Copyright 2013-2017 Joe Wreschnig
 ;;
 ;; Author: Joe Wreschnig <joe.wreschnig@gmail.com>

-;; Package-Version: 20170618
+;; Package-Version: 20170730

 ;; Package-Requires: ((emacs "25"))
 ;; Keywords: convenience, editing
 ;;
 ;; Package-Requires: ((emacs "25"))
 ;; Keywords: convenience, editing
 ;;


@@ -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*"))
   (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."
 
 (defun pelican-make-html ()
   "Generate HTML via a Makefile at the root of the site."