diff options
| -rw-r--r-- | lisp/init-editing.el | 8 |
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) |