[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/eat 8ee08d2b22: Don't prompt for program in M-x eat by def
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/eat 8ee08d2b22: Don't prompt for program in M-x eat by default |
Date: |
Wed, 29 Mar 2023 13:01:18 -0400 (EDT) |
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/eat 8ee08d2b22: Don't prompt for program in M-x eat by default,
ELPA Syncer <=