From e56d89ce138b874e1c12a701ceb5e168045a3406 Mon Sep 17 00:00:00 2001 From: Oscar Najera Date: Tue, 10 Sep 2024 11:09:56 +0200 Subject: [fix] defun region to string for eval & expand --- trident-mode.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/trident-mode.el b/trident-mode.el index d2da9c4..033cf90 100644 --- a/trident-mode.el +++ b/trident-mode.el @@ -298,7 +298,10 @@ destination it's overwritten." (defun trident-expand-defun () "Display the expansion of the current toplevel form." (interactive) - (trident-expand (sly-region-for-defun-at-point))) + (thread-last + (sly-region-for-defun-at-point) + (apply #'buffer-substring-no-properties) + (trident-expand))) (defun trident-expand-region (beg end) "Display the expansion of the currently active region. @@ -364,7 +367,10 @@ Print value into the current buffer." (defun trident-eval-defun () "Evaluate the current toplevel form as Parenscript." (interactive) - (trident-eval (sly-region-for-defun-at-point))) + (thread-last + (sly-region-for-defun-at-point) + (apply #'buffer-substring-no-properties) + (trident-eval))) (defun trident-eval-region (beg end) "Evaluate the currently active region as Parenscript. -- cgit v1.2.3