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.")
(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")
......
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