problems with auto-fill-mode

[jai-bholeki@gmx.com]

I am having a lot of problems on how to set up  auto-fill-mode.

I want to cycle auto-fill of comments, then disable them using
the keybinding "C-c q".

Have written the following code.

(defun break-comments ()
  "Break lines when they exceed a specific character length."
  (setq-local comment-auto-fill-only-comments t))

(defun fill-break-comments ()
  "Break lines when they exceed a specific character length."
  (setq fill-column 72)
  (setq-local comment-auto-fill-only-comments t)
  (auto-fill-mode 0) )

(defvar dfv-break-comments-state nil)

;; Cycles line breaking tool
(defun cycle-break-comments ()
  "Break comments in programming languages."
  (interactive)

  (pcase dfv-break-comments-state
    ;;
    (1 (setq-local comment-auto-fill-only-comments nil)
       (auto-fill-mode 0)
       (setq dfv-break-comments-state 0)
       (message "%s" "Disable: Break comments"))
    ;;
    (_ (setq fill-column 72)
       (if (not nil dfv-break-comments-state)
	   (add-hook 'prog-mode-hook #'break-comments)
	 (progn
	   (add-hook 'sh-mode-hook          #'break-comments)
	   (add-hook 'fortran-mode-hook     #'break-comments)
	   (add-hook 'emacs-lisp-mode-hook  #'break-comments)
	   (add-hook 'c-mode-hook           #'break-comments)
	   (add-hook 'c++-mode-hook         #'break-comments)
           (add-hook 'awk-mode-hook         #'break-comments)
	   (add-hook 'R-mode-hook           #'break-comments)
	   (add-hook 'octave-mode-hook      #'break-comments)
	   ;;
	   (add-hook 'texinfo-mode-hook  #'break-comments)
	   (add-hook 'text-mode-hook     #'break-comments))
	 (auto-fill-mode))
       ;;
       (setq dfv-break-comments-state 1)
       (message "%s" "Break comments using prog-mode-hook")) )

  ;; Break comments using auto-fill
  (global-set-key (kbd "C-c q") #'cycle-break-comments) )