Mercurial > emacs
comparison lisp/progmodes/sh-script.el @ 20385:e1ea41eba8be
(sh-mode): Set `comment-start-skip' always.
author | Dave Love <fx@gnu.org> |
---|---|
date | Sun, 30 Nov 1997 12:21:42 +0000 |
parents | 53f502cfd081 |
children | 2bd6621697d5 |
comparison
equal
deleted
inserted
replaced
20384:931b472be076 | 20385:e1ea41eba8be |
---|---|
729 (goto-char (point-min)) | 729 (goto-char (point-min)) |
730 (if (looking-at "#![ \t]?\\([^ \t\n]*/bin/env[ \t]\\)?\\([^ \t\n]+\\)") | 730 (if (looking-at "#![ \t]?\\([^ \t\n]*/bin/env[ \t]\\)?\\([^ \t\n]+\\)") |
731 (match-string 2))))) | 731 (match-string 2))))) |
732 (if interpreter | 732 (if interpreter |
733 (sh-set-shell interpreter nil nil) | 733 (sh-set-shell interpreter nil nil) |
734 ;; If we don't know the shell for this file, | 734 (progn |
735 ;; set the syntax table anyway, for the user's normal choice of shell. | 735 ;; If we don't know the shell for this file, set the syntax |
736 (set-syntax-table (sh-feature sh-mode-syntax-table)))) | 736 ;; table anyway, for the user's normal choice of shell. |
737 (set-syntax-table (sh-feature sh-mode-syntax-table)) | |
738 ;; And avoid indent-new-comment-line (at least) losing. | |
739 (setq comment-start-skip "#+[\t ]*")))) | |
737 (run-hooks 'sh-mode-hook)) | 740 (run-hooks 'sh-mode-hook)) |
738 ;;;###autoload | 741 ;;;###autoload |
739 (defalias 'shell-script-mode 'sh-mode) | 742 (defalias 'shell-script-mode 'sh-mode) |
740 | 743 |
741 | 744 |