# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 804395909 0
# Node ID e4c0623f4a2ea98406e88d40b9e52bec039327d6
# Parent  04bcad1807b966816a500337f7f47b2264ae586d
(do-auto-fill): No-op if (current-fill-column) is nil.

diff -r 04bcad1807b9 -r e4c0623f4a2e lisp/simple.el
--- a/lisp/simple.el	Thu Jun 29 03:11:37 1995 +0000
+++ b/lisp/simple.el	Thu Jun 29 03:18:29 1995 +0000
@@ -2330,9 +2330,9 @@
 (defun do-auto-fill ()
   (let (fc justify bol give-up)
     (if (or (not (setq justify (current-justification)))
-	    (and (setq fc (current-fill-column)) ; make sure this gets set
-		 (eq justify 'left)
-		 (<= (current-column) (setq fc (current-fill-column))))
+	    (null (setq fc (current-fill-column)))
+	    (and (eq justify 'left)
+		 (<= (current-column) fc))
 	    (save-excursion (beginning-of-line) 
 			    (setq bol (point))
 			    (and auto-fill-inhibit-regexp