unofficial mirror of help-gnu-emacs@gnu.org
 help / color / mirror / Atom feed
* Cycle Auto-Fill
@ 2020-12-05 13:25 Christopher Dimech
  2020-12-05 13:59 ` Pankaj Jangid
                   ` (2 more replies)
  0 siblings, 3 replies; 16+ messages in thread
From: Christopher Dimech @ 2020-12-05 13:25 UTC (permalink / raw)
  To: Help Gnu Emacs

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




^ permalink raw reply	[flat|nested] 16+ messages in thread

end of thread, other threads:[~2020-12-07  0:36 UTC | newest]

Thread overview: 16+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2020-12-05 13:25 Cycle Auto-Fill Christopher Dimech
2020-12-05 13:59 ` Pankaj Jangid
2020-12-05 14:16   ` Christopher Dimech
2020-12-05 16:57     ` Pankaj Jangid
2020-12-05 14:39 ` Ergus
2020-12-05 22:00 ` Michael Heerdegen
2020-12-05 22:06   ` Drew Adams
2020-12-05 22:38   ` Christopher Dimech
2020-12-05 23:53     ` Michael Heerdegen
     [not found]       ` <trinity-3598b15c-19a1-41d1-92ed-96e7f10f1fd9-1607213433613@3c-app-mailcom-bs06>
     [not found]         ` <87v9dfhj2e.fsf@web.de>
2020-12-06  0:49           ` Christopher Dimech
2020-12-06  2:33             ` Michael Heerdegen
2020-12-06  3:35               ` Christopher Dimech
2020-12-06  5:23                 ` Robert Thorpe
2020-12-06 23:01                 ` Michael Heerdegen
2020-12-06 23:43                   ` Christopher Dimech
2020-12-07  0:36                     ` Michael Heerdegen

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).