From 993581b3d5ab84df353d312cac09b803c782795b Mon Sep 17 00:00:00 2001 From: Joe Wreschnig Date: Sun, 16 Jul 2017 21:24:40 +0200 Subject: [PATCH] Use `compilation-start` rather than custom buffer initialization. --- pelican-mode.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/pelican-mode.el b/pelican-mode.el index dce4bb8..df0503f 100644 --- a/pelican-mode.el +++ b/pelican-mode.el @@ -179,12 +179,9 @@ (defun pelican-make (target) "Execute TARGET in a Makefile at the root of the site." (interactive "sMake Pelican target: ") - (if-let ((default-directory (pelican-find-root))) - (let ((output (get-buffer-create "*Pelican Output*"))) - (display-buffer output) - (pop-to-buffer output) - (compilation-mode) - (start-process "Pelican Makefile" output "make" target)) + (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."))) (defun pelican-make-html () -- 2.30.2