# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1042186046 0
# Node ID 99f9777a831bed8f1e02c3be0cff7e84cbafceb9
# Parent  c814bafa1987e506a9e1c2b5e130d57ee75e06d3
(sh-set-shell): Make sh-shell-file the default shell.

diff -r c814bafa1987 -r 99f9777a831b lisp/progmodes/sh-script.el
--- a/lisp/progmodes/sh-script.el	Fri Jan 10 07:01:14 2003 +0000
+++ b/lisp/progmodes/sh-script.el	Fri Jan 10 08:07:26 2003 +0000
@@ -1447,9 +1447,11 @@
 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)