From 8ee08d2b22ad06d572a47ad83067554353ac524a Mon Sep 17 00:00:00 2001 From: Akib Azmain Turja Date: Wed, 29 Mar 2023 22:39:45 +0600 Subject: [PATCH] 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 def750e..79d4768 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)))