Commit 5c449169 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent c5c890ba
...@@ -103,10 +103,10 @@ shell it really is.") ...@@ -103,10 +103,10 @@ shell it really is.")
(defvar sh-shell-file (defvar sh-shell-file
(or (or
;; On MSDOS, collapse $SHELL to lower-case and remove the ;; On MSDOS and Windows, collapse $SHELL to lower-case and remove
;; executable extension, so comparisons with the list of ;; the executable extension, so comparisons with the list of
;; known shells work. ;; known shells work.
(and (eq system-type 'ms-dos) (and (memq system-type '(ms-dos windows-nt))
(file-name-sans-extension (downcase (getenv "SHELL")))) (file-name-sans-extension (downcase (getenv "SHELL"))))
(getenv "SHELL") (getenv "SHELL")
"/bin/sh") "/bin/sh")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment