From 7cf5688f1d69ea0802d570adbfbce5e1d8ef556c Mon Sep 17 00:00:00 2001 From: tdback Date: Mon, 10 Feb 2025 22:13:21 -0500 Subject: lisp: update bindings --- lisp/td-functions.el | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'lisp/td-functions.el') 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") -- cgit v1.2.3