mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(sh-require-final-newline):

Browse Source 
Alist value now controls whether to use mode-require-final-newline.
(sh-set-shell): Implement that new meaning.
This commit is contained in:
Richard M. Stallman 2004-12-31 14:57:21 +00:00
parent 68e442738d
commit 61871c70f8
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/progmodes/sh-script.el
View File

@ -495,10 +495,9 @@ This is buffer-local in every such buffer.")
(defcustom sh-require-final-newline
'((csh . t)
(pdksh . t)
(rc . require-final-newline)
(sh . require-final-newline))
(pdksh . t))
"*Value of `require-final-newline' in Shell-Script mode buffers.
\(SHELL . t) means use the value of `mode-require-final-newline' for SHELL.
See `sh-feature'."
:type '(repeat (cons (symbol :tag "Shell")
(choice (const :tag "require" t)
@ -1485,8 +1484,8 @@ Calls the value of `sh-set-shell-hook' if set."
(executable-set-magic shell (sh-feature sh-shell-arg)
no-query-flag insert-flag)))
(let ((tem (sh-feature sh-require-final-newline)))
(unless (eq tem 'require-final-newline)
(setq require-final-newline tem)))
(if (eq tem t)
(setq require-final-newline mode-require-final-newline)))
(setq
comment-start-skip "#+[\t ]*"
local-abbrev-table sh-mode-abbrev-table