updates

[emacs-init.git] / setup / bindings.el

diff --git a/setup/bindings.el b/setup/bindings.el
index 622bc61..ca4c344 100644 (file)
--- a/setup/bindings.el
+++ b/setup/bindings.el
@@ -9,4 +9,14 @@
 (global-set-key "\C-c'c" 'toggle-case-fold-search)
 (global-set-key "\C-c's" 'flyspell-mode)
 (global-set-key "\C-c'a" 'global-auto-revert-mode)
-(global-set-key "\C-c' " 'whitespace-mode)
\ No newline at end of file
+
+(defun toggle-whitespace-modes ()
+  (interactive)
+  (if whitespace-mode
+      (progn
+        (whitespace-mode 0)
+        (develock-mode 0))
+    (whitespace-mode 1)
+    (develock-mode 1)))
+
+(global-set-key "\C-c' " 'toggle-whitespace-modes)
\ No newline at end of file