X-Git-Url: https://git.korewanetadesu.com/?p=pelican-mode.git;a=blobdiff_plain;f=pelican-mode.el;h=9886e8c43fd1a04c838e513f42445eb7a8e5c42a;hp=02d90782404c45f109a0f088b3f13fccb6159a65;hb=c48bd6c3b7369787a09923c53b452d9ec460399c;hpb=64d41f0ee5970b2d875880994eb287b97cad24a1

diff --git a/pelican-mode.el b/pelican-mode.el
index 02d9078..9886e8c 100644
--- a/pelican-mode.el
+++ b/pelican-mode.el
@@ -51,7 +51,7 @@
 ;; Or with ‘use-package’ and deferred loading:
 ;;
 ;;     (use-package pelican-mode
-;;       :after (:any org rst markdown-mode adoc-mode)
+;;       :demand :after (:any org rst markdown-mode adoc-mode)
 ;;       :config
 ;;       (pelican-global-mode))
 ;;
@@ -269,10 +269,11 @@ has no status."
 (defun pelican-make (target)
   "Execute TARGET in a Makefile at the root of the site."
   (interactive "sMake Pelican target: ")
-  (if-let (default-directory (pelican-mode-find-root))
-      (compilation-start (format "make %s" target)
-                         nil (lambda (_) "*pelican*"))
-    (user-error "No Pelican site root could be found")))
+  (let ((default-directory (pelican-mode-find-root)))
+    (if default-directory
+        (compilation-start (format "make %s" target)
+                           nil (lambda (_) "*pelican*"))
+      (user-error "No Pelican site root could be found"))))
 
 (defun pelican-make-html ()
   "Generate HTML via a Makefile at the root of the site."