From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 29 Jun 1995 03:18:29 +0000 (+0000)
Subject: (do-auto-fill): No-op if (current-fill-column) is nil.
X-Git-Tag: emacs-19.34~3431
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8f066a20b28d51e2d1467ce59fdd9abe8fc95354;p=emacs.git

(do-auto-fill): No-op if (current-fill-column) is nil.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 60244e59a4f..e5eb212fe46 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2330,9 +2330,9 @@ Setting this variable automatically makes it local to the current buffer.")
 (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