[elpa] externals/xeft 6fcc903bbb 51/55: ; * xeft.el (xeft--compile-module): Refactor.

[ELPA Syncer]

branch: externals/xeft
commit 6fcc903bbb0a41fb23404fc49ab180fa6652ac20
Author: Yuan Fu <casouri@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>

    ; * xeft.el (xeft--compile-module): Refactor.
---
 xeft.el | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/xeft.el b/xeft.el
index c3d449396e..4f3d6df801 100644
--- a/xeft.el
+++ b/xeft.el
@@ -157,16 +157,15 @@ This function takes no arguments and return a list of 
absolute paths."
   ;; Just following vterm.el here.
   (when (not (executable-find "make"))
     (user-error "Couldn’t compile xeft: cannot find make"))
-  (let* ((source-dir
+  (let* ((default-directory
           (shell-quote-argument
            (file-name-directory
             (locate-library "xeft.el" t))))
-         (command (format "cd %s; make PREFIX=%s"
-                          source-dir
-                          (read-string "PREFIX (empty by default): ")))
+         (prefix (concat "PREFIX="
+                         (read-string "PREFIX (empty by default): ")))
          (buffer (get-buffer-create "*xeft compile*")))
     (if (zerop (let ((inhibit-read-only t))
-                 (call-process "sh" nil buffer t "-c" command)))
+                 (call-process "make" nil buffer t prefix)))
         (progn (message "Successfully compiled the module :-D") t)
       (pop-to-buffer buffer)
       (compilation-mode)