From: Juanma Barranquero <lekktu@gmail.com>
Date: Fri, 10 Jan 2003 08:07:26 +0000 (+0000)
Subject: (sh-set-shell): Make sh-shell-file the default shell.
X-Git-Tag: ttn-vms-21-2-B4~11754
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=54aaebc516611904630c64e70ea7b3c068f9afd5;p=emacs.git

(sh-set-shell): Make sh-shell-file the default shell.
---

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)