Mercurial > emacs

comparison lisp/progmodes/sh-script.el @ 16839:daaa2c5bb40a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sh-shell-file): Downcase and remove extension on shells in NT.
author Richard M. Stallman <rms@gnu.org>
date Tue, 07 Jan 1997 09:02:48 +0000
parents 20dc495230a0
children d1391b21626f
comparison
equal deleted inserted replaced
16838:9bcab3c812bb 16839:daaa2c5bb40a
101 shell it really is.") 101 shell it really is.")
102 102
103 103
104 (defvar sh-shell-file 104 (defvar sh-shell-file
105 (or 105 (or
106 ;; On MSDOS, collapse $SHELL to lower-case and remove the 106 ;; On MSDOS and Windows, collapse $SHELL to lower-case and remove
107 ;; executable extension, so comparisons with the list of 107 ;; the executable extension, so comparisons with the list of
108 ;; known shells work. 108 ;; known shells work.
109 (and (eq system-type 'ms-dos) 109 (and (memq system-type '(ms-dos windows-nt))
110 (file-name-sans-extension (downcase (getenv "SHELL")))) 110 (file-name-sans-extension (downcase (getenv "SHELL"))))
111 (getenv "SHELL") 111 (getenv "SHELL")
112 "/bin/sh") 112 "/bin/sh")
113 "*The executable file name for the shell being programmed.") 113 "*The executable file name for the shell being programmed.")
114 114