Add disable-autofill command

1 files changed, 7 insertions, 0 deletions

diff --git a/lisp/km-editing.el b/lisp/km-editing.el
index 2d29216..53ca98a 100644
--- a/lisp/km-editing.el
+++ b/lisp/km-editing.el
@@ -36,6 +36,13 @@
     (fill-paragraph nil)))
 
 ;;;###autoload
+(defun km/disable-autofill ()
+  (interactive)
+  (visual-line-mode 1)
+  (auto-fill-mode -1)
+  (set (make-local-variable 'truncate-lines) nil))
+
+;;;###autoload
 (defun km/fill-surrounding-indented ()
   "Fill current line with all surrounding lines of same indentation.
 This is like `fill-individual-paragraphs', but 1) it acts only on