From c48bd6c3b7369787a09923c53b452d9ec460399c Mon Sep 17 00:00:00 2001 From: Joe Wreschnig Date: Sun, 1 Apr 2018 10:48:50 +0200 Subject: [PATCH] =?utf8?q?Remove=20use=20of=20=E2=80=98if-let=E2=80=99=20f?= =?utf8?q?or=20Emacs=2026+=20compatibility?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- pelican-mode.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/pelican-mode.el b/pelican-mode.el index f2f2357..9886e8c 100644 --- a/pelican-mode.el +++ b/pelican-mode.el @@ -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." -- 2.30.2