Re: Strange behaviour of auto-fill

[michael-franzese@gmx.com]

Actually, when I call (turn-off-auto-fill) after calling
(setq-default auto-fill-function 'do-auto-fill) does tell
turn the mode off.

> Sent: Saturday, April 24, 2021 at 11:21 AM
> From: "Christopher Dimech" <dimech@gmx.com>
> To: michael-franzese@gmx.com
> Cc: "Help Gnu Emacs" <help-gnu-emacs@gnu.org>
> Subject: Re: Strange behaviour of auto-fill
>
>
> Have had another go and noticed that calling
>
>   (turn-off-auto-fill)
>
> will not break lines if the following is present
>
>   (setq-default auto-fill-function 'do-auto-fill)
>
> My impression would be for developers to take a closer look at the
> code, so that it's use would be simplified.  Or perhaps some good
> examples on how to use it, as it does not look so clear to me.
>
> > Sent: Saturday, April 24, 2021 at 9:42 AM
> > From: michael-franzese@gmx.com
> > To: "Help Gnu Emacs" <help-gnu-emacs@gnu.org>
> > Subject: Strange behaviour of auto-fill
> >
> > I am trying to set "auto-fill", with some tools to change "on-off" behaviour.
> >
> > Things get very confusing.  When I comment out "(setq-default auto-fill-function 'do-auto-fill)", "auto-fill-mode" will still break comments even though "break-line" is "0"
> > and one sets "(auto-fill-mode 0)".
> >
> >
> >
> > (setq-default auto-fill-function 'do-auto-fill)
> > (defvar break-line 0)
> >
> > (defun break-line-ddd ()
> >   "Breaks long lines using auto-fill tool."
> >   (interactive)
> >
> >   (pcase break-line
> >     ((or 'nil 0)
> >        (setq comment-auto-fill-only-comments nil)
> >        (auto-fill-mode 0)
> >        (message "%s %s"
> > 		"Disable: Break line;  " break-line)
> >        (setq break-line 1))
> >     (1
> >        (setq fill-column 72)
> >        (setq comment-auto-fill-only-comments t)
> >        (auto-fill-mode 1)
> >        (message "%s" "Enable: Break only comments")
> >        (setq break-line 2))
> >     (_
> >        (setq comment-auto-fill-only-comments nil)
> >        (auto-fill-mode 1)
> >        (message "%s" "Enable: Break all long lines")
> >        (setq break-line 0)) ))
> >
> > (defun break-line-set ()
> >   "Breaks long lines using auto-fill."
> >   (break-line-ddd)
> >   (global-set-key (kbd "H-b") #'break-line-ddd) )
> >
> > (break-line-set)
> >
> >
> >
>