procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 1997-01-07 09:02:48 +00:00
parent c5c890bac4
commit 5c4491697a
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/sh-script.el
View file

@ -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")