[elpa] elpa-admin 26d341c: * elpa-admin.el (elpaa--make): Add support for non-make command

[Stefan Monnier]

branch: elpa-admin
commit 26d341c3cdd624846f3c2550b118bce0dd094126
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * elpa-admin.el (elpaa--make): Add support for non-make command
---
 elpa-admin.el | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/elpa-admin.el b/elpa-admin.el
index 5776521..619d6ab 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -1474,14 +1474,20 @@ More at " (elpaa--default-url pkgname))
           (message "%s" (buffer-string)))))))
 
 (defun elpaa--make (pkg-spec dir)
-  (let ((target (elpaa--spec-get pkg-spec :make)))
-    (when target
+  (let ((target (elpaa--spec-get pkg-spec :make))
+        (cmd (elpaa--spec-get pkg-spec :shell-command)))
+    (when (or cmd target)
       (with-temp-buffer
         (let ((elpaa--sandboxed-ro-binds
                (cons default-directory elpaa--sandboxed-ro-binds))
               (default-directory (elpaa--dirname dir)))
-          (apply #'elpaa--call-sandboxed t "make"
-                 (if (consp target) target (list target)))
+          (when cmd
+            (elpaa--call-sandboxed t shell-file-name
+                                   shell-command-switch
+                                   cmd))
+          (when target
+            (apply #'elpaa--call-sandboxed t "make"
+                   (if (consp target) target (list target))))
           (elpaa--message "%s" (buffer-string)))))))
 
 ;;; Fetch updates from upstream