From 906208799177cf21137eb28f4a6f05cb234fa973 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Sun, 7 Feb 2016 01:22:18 +0000 Subject: Consolidate some defun-at-point functions --- cider-interaction.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'cider-interaction.el') diff --git a/cider-interaction.el b/cider-interaction.el index 685d38c8..be6c6c16 100644 --- a/cider-interaction.el +++ b/cider-interaction.el @@ -1064,10 +1064,8 @@ If invoked with a PREFIX argument, print the result in the current buffer." With a prefix arg, LOC, insert before the form, otherwise afterwards." (interactive "P") (let ((defun-at-point (cider-defun-at-point)) - (insertion-point - (if loc - (cider-defun-at-point-start-pos) - (cider-defun-at-point-end-pos)))) + (insertion-point (nth (if loc 0 1) + (cider-defun-at-point 'bounds)))) (cider-interactive-eval defun-at-point (cider-eval-print-with-comment-handler (current-buffer) insertion-point @@ -1119,7 +1117,7 @@ command `cider-debug-defun-at-point'." (concat (if debug-it "#dbg\n") (cider-defun-at-point)) nil - (cider--region-for-defun-at-point))) + (cider-defun-at-point 'bounds))) (defun cider-pprint-eval-defun-at-point () "Evaluate the \"top-level\" form at point and pprint its value in a popup buffer." -- cgit v1.2.3