branch: elpa/inf-clojure
commit 7b377a457f02e0943c67bd06face4dae120cb66a
Author: Bozhidar Batsov <bozhi...@tradeo.com>
Commit: Bozhidar Batsov <bozhi...@tradeo.com>
Drop redundant function
---
inf-clojure.el | 16 ++++------------
1 file changed, 4 insertions(+), 12 deletions(-)
diff --git a/inf-clojure.el b/inf-clojure.el
index 0831070..3a0f3c1 100644
--- a/inf-clojure.el
+++ b/inf-clojure.el
@@ -287,24 +287,16 @@ Prefix argument means switch to the Clojure buffer
afterwards."
"Send the string to the inferior Clojure process to be executed."
(comint-send-string (inf-clojure-proc) (concat string "\n")))
-(defun clojure-do-defun (do-string do-region)
+(defun clojure-eval-defun (&optional and-go)
"Send the current defun to the inferior Clojure process.
-The actually processing is done by `do-string' and `do-region'
- which determine whether the code is compiled before evaluation.
-DEFVAR forms reset the variables to the init values."
+Prefix argument means switch to the Clojure buffer afterwards."
+ (interactive "P")
(save-excursion
(end-of-defun)
(skip-chars-backward " \t\n\r\f") ; Makes allegro happy
(let ((end (point)) (case-fold-search t))
(beginning-of-defun)
- (funcall do-region (point) end))))
-
-(defun clojure-eval-defun (&optional and-go)
- "Send the current defun to the inferior Clojure process.
-DEFVAR forms reset the variables to the init values.
-Prefix argument means switch to the Clojure buffer afterwards."
- (interactive "P")
- (clojure-do-defun 'clojure-eval-string 'clojure-eval-region)
+ (clojure-eval-region (point) end)))
(if and-go (switch-to-clojure t)))
(defun clojure-eval-last-sexp (&optional and-go)
