From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 31 Dec 2004 14:57:21 +0000 (+0000)
Subject: (sh-require-final-newline):
X-Git-Tag: ttn-vms-21-2-B4~3014
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=61871c70f8859f42783d509e72a83b502e0f2af9;p=emacs.git

(sh-require-final-newline):
Alist value now controls whether to use mode-require-final-newline.
(sh-set-shell): Implement that new meaning.
---

diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index 336fd874eee..bcabc505a49 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -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