diff options
| author | Richard M. Stallman | 2006-02-21 19:55:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2006-02-21 19:55:46 +0000 |
| commit | f623a9d2e6e89ea12dc80fabc636a6b1fb4af5e9 (patch) | |
| tree | 97ceb94d1f532471f5fac7082ccfe42b8693c19d /lisp/progmodes/sh-script.el | |
| parent | fe541a2743944789a066e5bcdf461d88791a18f8 (diff) | |
| download | emacs-f623a9d2e6e89ea12dc80fabc636a6b1fb4af5e9.tar.gz emacs-f623a9d2e6e89ea12dc80fabc636a6b1fb4af5e9.zip | |
(sh-mode): Set shell type based on file name if no other specific basis.
Diffstat (limited to 'lisp/progmodes/sh-script.el')
| -rw-r--r-- | lisp/progmodes/sh-script.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index e331268391a..02ce4a21c97 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el | |||
| @@ -1438,6 +1438,16 @@ with your script for an edit-interpret-debug cycle." | |||
| 1438 | ((and buffer-file-name | 1438 | ((and buffer-file-name |
| 1439 | (string-match "\\.m?spec\\'" buffer-file-name)) | 1439 | (string-match "\\.m?spec\\'" buffer-file-name)) |
| 1440 | "rpm"))))) | 1440 | "rpm"))))) |
| 1441 | (unless interpreter | ||
| 1442 | (setq interpreter | ||
| 1443 | (cond ((string-match "[.]sh\\>" buffer-file-name) | ||
| 1444 | "sh") | ||
| 1445 | ((string-match "[.]bash\\>" buffer-file-name) | ||
| 1446 | "bash") | ||
| 1447 | ((string-match "[.]ksh\\>" buffer-file-name) | ||
| 1448 | "ksh") | ||
| 1449 | ((string-match "[.]csh\\>" buffer-file-name) | ||
| 1450 | "csh")))) | ||
| 1441 | (sh-set-shell (or interpreter sh-shell-file) nil nil)) | 1451 | (sh-set-shell (or interpreter sh-shell-file) nil nil)) |
| 1442 | (run-mode-hooks 'sh-mode-hook)) | 1452 | (run-mode-hooks 'sh-mode-hook)) |
| 1443 | 1453 | ||