X-Git-Url: https://git.korewanetadesu.com/?p=pelican-mode.git;a=blobdiff_plain;f=pelican-mode.el;h=418a82531f0887f9bc20152419ec287c5c93c7bc;hp=f2f23577061b6cc2f51ddbda4e0454c09df1200d;hb=209ad24318e1f28675da430aa10ef3467694b9ac;hpb=9c1c188d974e6284124b590286f74ea22f0b1978

diff --git a/pelican-mode.el b/pelican-mode.el
index f2f2357..418a825 100644
--- a/pelican-mode.el
+++ b/pelican-mode.el
@@ -1,9 +1,9 @@
 ;;; pelican-mode.el --- Minor mode for editing Pelican sites -*- lexical-binding: t -*-
 ;;
-;; Copyright 2013-2017 Joe Wreschnig
+;; Copyright 2013-2018 Joe Wreschnig
 ;;
 ;; Author: Joe Wreschnig <joe.wreschnig@gmail.com>
-;; Package-Version: 20170808
+;; Package-Version: 20180605.1
 ;; Package-Requires: ((emacs "25"))
 ;; URL: https://git.korewanetadesu.com/pelican-mode.git
 ;; Keywords: convenience, editing
@@ -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."