495 |
|
|
496 |
(defcustom sh-require-final-newline |
(defcustom sh-require-final-newline |
497 |
'((csh . t) |
'((csh . t) |
498 |
(pdksh . t) |
(pdksh . t)) |
|
(rc . require-final-newline) |
|
|
(sh . require-final-newline)) |
|
499 |
"*Value of `require-final-newline' in Shell-Script mode buffers. |
"*Value of `require-final-newline' in Shell-Script mode buffers. |
500 |
|
\(SHELL . t) means use the value of `mode-require-final-newline' for SHELL. |
501 |
See `sh-feature'." |
See `sh-feature'." |
502 |
:type '(repeat (cons (symbol :tag "Shell") |
:type '(repeat (cons (symbol :tag "Shell") |
503 |
(choice (const :tag "require" t) |
(choice (const :tag "require" t) |
1484 |
(executable-set-magic shell (sh-feature sh-shell-arg) |
(executable-set-magic shell (sh-feature sh-shell-arg) |
1485 |
no-query-flag insert-flag))) |
no-query-flag insert-flag))) |
1486 |
(let ((tem (sh-feature sh-require-final-newline))) |
(let ((tem (sh-feature sh-require-final-newline))) |
1487 |
(unless (eq tem 'require-final-newline) |
(if (eq tem t) |
1488 |
(setq require-final-newline tem))) |
(setq require-final-newline mode-require-final-newline))) |
1489 |
(setq |
(setq |
1490 |
comment-start-skip "#+[\t ]*" |
comment-start-skip "#+[\t ]*" |
1491 |
local-abbrev-table sh-mode-abbrev-table |
local-abbrev-table sh-mode-abbrev-table |