Mercurial > emacs

changeset 49132:99f9777a831b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sh-set-shell): Make sh-shell-file the default shell.
author Juanma Barranquero <lekktu@gmail.com>
date Fri, 10 Jan 2003 08:07:26 +0000
parents c814bafa1987
children 4d76986458e8
files lisp/progmodes/sh-script.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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)