commit - 24b533224c84158e85343d16141f8a2cb5c800e8
commit + 36267e0bf9ca63a9bf33f5fe6fb72a7509b7c278
blob - 0bf8d6dba7222606507655c16bbd34c17362b1b8
blob + bc5ba2f5af0fa7bed61e2abc9527cfefdff622f7
--- vmd.el
+++ vmd.el
@@ -66,7 +66,8 @@ commands in cmd."
                       (mapcar (lambda (x)
                                 (split-string x nil t))
                               (cdr
-                               (split-string (shell-command-to-string "vmctl status")
+                               (split-string (shell-command-to-string
+                                              (concat vmd-vmctl-cmd " status"))
                                              "\n" t))))))
     (setq tabulated-list-format columns
           tabulated-list-entries rows)
@@ -86,7 +87,7 @@ commands in cmd."
 
 (defun vmd--vmctl (&rest args)
   "Run a vmctl command with ARGS."
-  (shell-command (mapconcat #'shell-quote-argument (cons "vmctl" args) " ")))
+  (shell-command (mapconcat #'shell-quote-argument (cons vmd-vmctl-cmd args) " ")))
 
 (defun vmd-console (vm)
   "Open a console for the virtual machine VM at point."