diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2014-11-08 00:47:59 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2014-11-08 00:47:59 -0500 |
| commit | 77f528025e22810a9c23b60c26f2534577f9c892 (patch) | |
| tree | 2f62b32d10a5e2fe42b3913f96ee03180ac86118 /lisp/init-editing.el | |
| parent | 2de9aaf651c493482084c882d55783b6c71570e9 (diff) | |
| download | emacs.d-77f528025e22810a9c23b60c26f2534577f9c892.tar.gz | |
Rewrite toggle-prevent-cleanup
Diffstat (limited to 'lisp/init-editing.el')
| -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) |