From: Luc Teirlinck <teirllm@auburn.edu>
Date: Fri, 1 Apr 2005 04:48:39 +0000 (+0000)
Subject: (mode-require-final-newline): Make Custom correctly report a nil value
X-Git-Tag: ttn-vms-21-2-B4~1305
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5e9961be68adf22b0fe1190fe67fb79ddfa2de55;p=emacs.git

(mode-require-final-newline): Make Custom correctly report a nil value
and allow to set it to nil via Custom.
Doc fix.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ff0c3894c5e..17c580e0efc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2005-03-31  Luc Teirlinck  <teirllm@auburn.edu>
+
+	* files.el (mode-require-final-newline): Make Custom correctly
+	report a nil value and allow to set it to nil via Custom.
+	Doc fix.
+
 2005-04-01  Kenichi Handa  <handa@m17n.org>
 
 	* international/characters.el: Enable the correct case setting for
diff --git a/lisp/files.el b/lisp/files.el
index 15d6f794e16..eca86c52a79 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -291,7 +291,7 @@ from `mode-require-final-newline'."
   :group 'editing-basics)
 
 (defcustom mode-require-final-newline t
-  "*Whether to add a newline at the end of the file, in certain major modes.
+  "*Whether to add a newline at end of file, in certain major modes.
 Those modes set `require-final-newline' to this value when you enable them.
 They do so because they are used for files that are supposed
 to end in newlines, and the question is how to arrange that.
@@ -299,10 +299,16 @@ to end in newlines, and the question is how to arrange that.
 A value of t means do this only when the file is about to be saved.
 A value of `visit' means do this right after the file is visited.
 A value of `visit-save' means do it at both of those times.
-Any other non-nil value means ask user whether to add a newline, when saving."
+Any other non-nil value means ask user whether to add a newline, when saving.
+nil means don't add newlines.
+
+You will have to be careful if you set this to nil: you will have
+to remember to manually add a final newline whenever you finish a
+file that really needs one."
   :type '(choice (const :tag "When visiting" visit)
 		 (const :tag "When saving" t)
 		 (const :tag "When visiting or saving" visit-save)
+		 (const :tag "Never" nil)
 		 (other :tag "Ask" ask))
   :group 'editing-basics
   :version "22.1")