Re: Strange behaviour of auto-fill

[michael-franzese]

Have tried to do something but gets me

error: Unknown string-match pattern: (string-match "on-off" s)

-----

(defun break-line-order ()
   (setq order "off-on")
   (pcase
      ((string-match "off-on" s)
          (setq break-line 0)
          (message "%s" "break-line-order: off-on"))
      ((string-match "on-off" s)
          (setq break-line 1)
          (setq-default auto-fill-function 'do-auto-fill)
          (message "%s" "break-line-order: on-off")) ))

(break-line-order)





> Sent: Saturday, April 24, 2021 at 11:23 AM
> From: michael-franzese@gmx.com
> To: "Christopher Dimech" <dimech@gmx.com>
> Cc: "Help Gnu Emacs" <help-gnu-emacs@gnu.org>
> Subject: Re: Strange behaviour of auto-fill
>
> 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)
> > >
> > >
> > >
> >
>
>