Luj/eat-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't prompt for program in M-x eat by default

Browse source 
* eat.el (eat): Prompt for program to run only if double prefix
argument is given, otherwise use the default one.
This commit is contained in:
Akib Azmain Turja 2023-03-29 22:39:45 +06:00
parent 5a2123910a
commit 8ee08d2b22
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
eat.el
View file

@ -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)))