From 8f066a20b28d51e2d1467ce59fdd9abe8fc95354 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 29 Jun 1995 03:18:29 +0000 Subject: [PATCH] (do-auto-fill): No-op if (current-fill-column) is nil. --- lisp/simple.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 2.39.2