diff options
| author | Richard M. Stallman | 1997-01-07 09:02:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-01-07 09:02:48 +0000 |
| commit | 5c4491697ae28c426d29db170a12dbebf39b8367 (patch) | |
| tree | f82235dd2d5450b114e5ebe0477e1a1c01f64193 | |
| parent | c5c890bac4615ecb61ccc05e89c6e5e9661cd250 (diff) | |
| download | emacs-5c4491697ae28c426d29db170a12dbebf39b8367.tar.gz emacs-5c4491697ae28c426d29db170a12dbebf39b8367.zip | |
(sh-shell-file): Downcase and remove extension on shells in NT.
| -rw-r--r-- | lisp/progmodes/sh-script.el | 6 |
1 files changed, 3 insertions, 3 deletions
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.") | |||
| 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") |