lisp: update bindings

1 files changed, 9 insertions, 0 deletions

diff --git a/lisp/td-functions.el b/lisp/td-functions.el
index fbd4134..37faf28 100644
--- a/lisp/td-functions.el
+++ b/lisp/td-functions.el
@@ -27,6 +27,15 @@
                         :weight 'normal
                         :height 200)))
 
+(defun td/quit-if-not-in-macro ()
+  (interactive)
+  (if (or defining-kbd-macro executing-kbd-macro)
+      (progn
+        (if (region-active-p)
+            (deactivate-mark)
+          (message "Macro running. Can't quit.")))
+    (keyboard-quit)))
+
 (defun td/increment-number-at-point (&optional increment)
   "Increment number at point like vim's `C-a'."
   (interactive "p")