Mercurial > emacs

changeset 12428:e4c0623f4a2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(do-auto-fill): No-op if (current-fill-column) is nil.
author Richard M. Stallman <rms@gnu.org>
date Thu, 29 Jun 1995 03:18:29 +0000
parents 04bcad1807b9
children d6d785d96455
files lisp/simple.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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