# HG changeset patch
# User Malcolm Purvis <malcolmp@xemacs.org>
# Date 1250687192 -36000
# Node ID 64ac4337298bff098cb1b229d8b7e5b05b0023ac
# Parent  891381effa11f5533e1bc096fec66f2ef0948dde
Implement turn-off-auto-fill.

simple.el (turn-off-auto-fill): Sync from FSF 21.4.

diff -r 891381effa11 -r 64ac4337298b lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Aug 18 12:34:34 2009 +0100
+++ b/lisp/ChangeLog	Wed Aug 19 23:06:32 2009 +1000
@@ -1,3 +1,8 @@
+2009-08-19  Malcolm Purvis  <malcolmp@xemacs.org>
+
+	* simple.el:
+	* simple.el (turn-off-auto-fill): Sync from FSF 21.4.
+
 2009-08-18  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* simple.el (handle-pre-motion-command-current-command-is-motion):
diff -r 891381effa11 -r 64ac4337298b lisp/simple.el
--- a/lisp/simple.el	Tue Aug 18 12:34:34 2009 +0100
+++ b/lisp/simple.el	Wed Aug 19 23:06:32 2009 +1000
@@ -3060,6 +3060,11 @@
   (interactive)
   (auto-fill-mode 1))
 
+(defun turn-off-auto-fill ()
+  "Unconditionally turn off Auto Fill mode."
+  (interactive)
+  (auto-fill-mode -1))
+
 (defun set-fill-column (arg)
   "Set `fill-column' to specified argument.
 Just \\[universal-argument] as argument means to use the current column