From 50b47241252e38d91e1f7ba2485fca418272cc74 Mon Sep 17 00:00:00 2001 From: rearman Date: Tue, 25 Jun 2024 09:02:05 -0400 Subject: [PATCH] Fix up send-on-close-paren macro & binding --- re/re-bindings.el | 4 ++-- re/re-repl-defuns.el | 1 + 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/re/re-bindings.el b/re/re-bindings.el index 3d1b92f..cb0929f 100644 --- a/re/re-bindings.el +++ b/re/re-bindings.el @@ -63,11 +63,11 @@ (add-hook 'ielm-mode-hook (lambda () (keymap-set inferior-emacs-lisp-mode-map "C-l" 'comint-clear-buffer) - (keymap-set inferior-emacs-lisp-mode-map ")" '(re/send-on-close-paren 'ielm-send-input)))) + (keymap-set inferior-emacs-lisp-mode-map ")" (re/send-on-close-paren 'ielm-send-input)))) (keymap-global-set "C-c e" 'eshell) (add-hook 'eshell-mode-hook (lambda () - (keymap-set eshell-mode-map ")" '(re/send-on-close-paren 'eshell-send-input)) + (keymap-set eshell-mode-map ")" (re/send-on-close-paren 'eshell-send-input)) (keymap-set eshell-mode-map "C-d" 'eshell-quit-or-delete-char))) diff --git a/re/re-repl-defuns.el b/re/re-repl-defuns.el index 5e9eb66..3be9c5c 100644 --- a/re/re-repl-defuns.el +++ b/re/re-repl-defuns.el @@ -8,6 +8,7 @@ When a sexp is complete - that is when parens balance as you type - execute it. Use this macro as a direct binding" `(lambda () + (interactive) (insert-char 41) (when (= 0 (car (syntax-ppss))) (call-interactively ,executor)))) -- 2.39.5