Cycle Auto-Fill

[Christopher Dimech <dimech@gmx.com>]

Have written the following function to use one key binding
to cycle auto-fill (only-comments, whole-buffer, disable)

Who would like to criticise this little bugger?

(defun gungadin-auto-fill-cycle ()
   "Cycles Auto Fill.  Automatically breaks lines that get beyond
variable fill-column."
   (interactive)
   (unless (get 'gungadin-auto-fill-cycle 'state)
      (put 'gungadin-auto-fill-cycle 'state 1))

   (setq n (get 'gungadin-auto-fill-cycle 'state))

   (when (= n 1)
      (message "Auto Fill Comments Only")
      (set (make-local-variable 'comment-auto-fill-only-comments) t)
      (auto-fill-mode 1)
      (put 'gungadin-auto-fill-cycle 'state 2))
   (when (= n 2)
      (message "Auto Fill Buffer")
      (set (make-local-variable 'comment-auto-fill-only-comments) nil)
      (put 'gungadin-auto-fill-cycle 'state 3))
   (when (= n 3)
      (message "Disable Auto Fill")
      (auto-fill-mode 0)
      (put 'gungadin-auto-fill-cycle 'state 1)) )

(global-set-key (kbd "H-a") #'gungadin-auto-fill-cycle)



---------------------
Christopher Dimech
General Administrator - Naiad Informatics - GNU Project (Geocomputation)
- Geophysical Simulation
- Geological Subsurface Mapping
- Disaster Preparedness and Mitigation
- Natural Resource Exploration and Production
- Free Software Advocacy