Mercurial > emacs
comparison lisp/progmodes/sh-script.el @ 26917:3d9aa6cec283
(sh-mode): If there is no #!-line, use the shell
from sh-shell-file.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Thu, 16 Dec 1999 13:21:37 +0000 |
parents | da094b0ffe3c |
children | e1c54e3a7a61 |
comparison
equal
deleted
inserted
replaced
26916:1255a8a95f46 | 26917:3d9aa6cec283 |
---|---|
1295 ((and buffer-file-name | 1295 ((and buffer-file-name |
1296 (string-match "\\.m?spec$" buffer-file-name)) | 1296 (string-match "\\.m?spec$" buffer-file-name)) |
1297 "rpm"))))) | 1297 "rpm"))))) |
1298 (if interpreter | 1298 (if interpreter |
1299 (sh-set-shell interpreter nil nil) | 1299 (sh-set-shell interpreter nil nil) |
1300 (progn | 1300 (sh-set-shell sh-shell-file nil t)) |
1301 ;; If we don't know the shell for this file, set the syntax | |
1302 ;; table anyway, for the user's normal choice of shell. | |
1303 (set-syntax-table (sh-feature sh-mode-syntax-table)) | |
1304 ;; And avoid indent-new-comment-line (at least) losing. | |
1305 (setq comment-start-skip "#+[\t ]*")))) | |
1306 (run-hooks 'sh-mode-hook)) | 1301 (run-hooks 'sh-mode-hook)) |
1307 ;;;###autoload | 1302 ;;;###autoload |
1308 (defalias 'shell-script-mode 'sh-mode) | 1303 (defalias 'shell-script-mode 'sh-mode) |
1309 | 1304 |
1310 | 1305 |