diff options
| -rw-r--r-- | trident-mode.el | 10 |
1 files 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. |