From 54aaebc516611904630c64e70ea7b3c068f9afd5 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 10 Jan 2003 08:07:26 +0000 Subject: [PATCH] (sh-set-shell): Make sh-shell-file the default shell. --- lisp/progmodes/sh-script.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index d6592cbc603..b4bde797552 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el @@ -1447,9 +1447,11 @@ the visited file executable, and NO-QUERY-FLAG (the second argument) controls whether to query about making the visited file executable. Calls the value of `sh-set-shell-hook' if set." - (interactive (list (completing-read "Name or path of shell: " - interpreter-mode-alist - (lambda (x) (eq (cdr x) 'sh-mode))) + (interactive (list (completing-read (format "Shell \(default %s\): " + sh-shell-file) + interpreter-mode-alist + (lambda (x) (eq (cdr x) 'sh-mode)) + nil nil nil sh-shell-file) (eq executable-query 'function) t)) (if (string-match "\\.exe\\'" shell) -- 2.39.5