From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 7 Jan 1997 09:02:48 +0000 (+0000)
Subject: (sh-shell-file): Downcase and remove extension on shells in NT.
X-Git-Tag: emacs-20.1~3105
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c4491697ae28c426d29db170a12dbebf39b8367;p=emacs.git

(sh-shell-file): Downcase and remove extension on shells in NT.
---

diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index 299b4527016..6ba2856938f 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -103,10 +103,10 @@ shell it really is.")
 
 (defvar sh-shell-file
   (or
-   ;; On MSDOS, collapse $SHELL to lower-case and remove the
-   ;; executable extension, so comparisons with the list of
+   ;; On MSDOS and Windows, collapse $SHELL to lower-case and remove
+   ;; the executable extension, so comparisons with the list of
    ;; known shells work.
-   (and (eq system-type 'ms-dos)
+   (and (memq system-type '(ms-dos windows-nt))
 	(file-name-sans-extension (downcase (getenv "SHELL"))))
    (getenv "SHELL")
    "/bin/sh")