Rewrite toggle-prevent-cleanup

1 files changed, 4 insertions, 4 deletions

diff --git a/lisp/init-editing.el b/lisp/init-editing.el
index 0d20d82..4ff5a8b 100644
--- a/lisp/init-editing.el
+++ b/lisp/init-editing.el
@@ -45,10 +45,10 @@
 (defun km/toggle-prevent-cleanup ()
   "Toggle state of `km/prevent-cleanup'"
   (interactive)
-  (let ((state t))
-    (when km/prevent-cleanup
-        (setq state nil))
-    (set (make-local-variable 'km/prevent-cleanup) state)))
+  (if km/prevent-cleanup
+      (message "Allowing cleanup on save ")
+    (message "Preventing cleanup on save"))
+  (set (make-local-variable 'km/prevent-cleanup) (not km/prevent-cleanup)))
 
 (defun km/cleanup-buffer ()
   (interactive)