diff options
| author | Richard M. Stallman | 1995-06-29 03:18:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-06-29 03:18:29 +0000 |
| commit | 8f066a20b28d51e2d1467ce59fdd9abe8fc95354 (patch) | |
| tree | 4bb80f8bdc1cfbce563fa6dfa590c074bb00735d /lisp | |
| parent | 25b048eebc7942db291916152b80a0918c798083 (diff) | |
| download | emacs-8f066a20b28d51e2d1467ce59fdd9abe8fc95354.tar.gz emacs-8f066a20b28d51e2d1467ce59fdd9abe8fc95354.zip | |
(do-auto-fill): No-op if (current-fill-column) is nil.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/simple.el | 6 |
1 files 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.") | |||
| 2330 | (defun do-auto-fill () | 2330 | (defun do-auto-fill () |
| 2331 | (let (fc justify bol give-up) | 2331 | (let (fc justify bol give-up) |
| 2332 | (if (or (not (setq justify (current-justification))) | 2332 | (if (or (not (setq justify (current-justification))) |
| 2333 | (and (setq fc (current-fill-column)) ; make sure this gets set | 2333 | (null (setq fc (current-fill-column))) |
| 2334 | (eq justify 'left) | 2334 | (and (eq justify 'left) |
| 2335 | (<= (current-column) (setq fc (current-fill-column)))) | 2335 | (<= (current-column) fc)) |
| 2336 | (save-excursion (beginning-of-line) | 2336 | (save-excursion (beginning-of-line) |
| 2337 | (setq bol (point)) | 2337 | (setq bol (point)) |
| 2338 | (and auto-fill-inhibit-regexp | 2338 | (and auto-fill-inhibit-regexp |