[nongnu] elpa/eat 8ee08d2b22: Don't prompt for program in M-x eat by default

[ELPA Syncer]

branch: elpa/eat
commit 8ee08d2b22ad06d572a47ad83067554353ac524a
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    Don't prompt for program in M-x eat by default
    
    * eat.el (eat): Prompt for program to run only if double prefix
    argument is given, otherwise use the default one.
---
 eat.el | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/eat.el b/eat.el
index def750e20a..79d4768209 100644
--- a/eat.el
+++ b/eat.el
@@ -5555,12 +5555,17 @@ With a numeric prefix ARG (like \\[universal-argument] 
42 \\[eshell]),
 switch to the session with that number, or create it if it doesn't
 already exist.
 
+With double prefix argument ARG, ask for the program to run and run it
+in a newly created session.
+
 PROGRAM can be a shell command."
-  (interactive (list (read-shell-command "Run program: "
-                                         (or explicit-shell-file-name
-                                             (getenv "ESHELL")
-                                             shell-file-name))
-                     current-prefix-arg))
+  (interactive
+   (list (when (equal current-prefix-arg '(16))
+           (read-shell-command "Run program: "
+                               (or explicit-shell-file-name
+                                   (getenv "ESHELL")
+                                   shell-file-name)))
+         current-prefix-arg))
   (let ((program (or program (or explicit-shell-file-name
                                  (getenv "ESHELL")
                                  shell-file-name)))