branch: elpa/inf-clojure
commit ed0cd4dc92154de74bd1d94559712628775f2f4a
Merge: a69c568 7aa0299
Author: Bozhidar Batsov <bozhidar.bat...@gmail.com>
Commit: Bozhidar Batsov <bozhidar.bat...@gmail.com>
Merge pull request #21 from syohex/refactoring
Refactoring
---
inf-clojure.el | 11 ++++-------
1 file changed, 4 insertions(+), 7 deletions(-)
diff --git a/inf-clojure.el b/inf-clojure.el
index 706896a..f628ab6 100644
--- a/inf-clojure.el
+++ b/inf-clojure.el
@@ -352,19 +352,16 @@ Prefix argument AND-GO means switch to the Clojure buffer
afterwards."
(end-of-defun)
(let ((end (point)) (case-fold-search t))
(beginning-of-defun)
- (inf-clojure-eval-region (point) end)))
- (if and-go (inf-clojure-switch-to-repl t)))
+ (inf-clojure-eval-region (point) end and-go))))
(defun inf-clojure-eval-buffer (&optional and-go)
"Send the current buffer to the inferior Clojure process.
Prefix argument AND-GO means switch to the Clojure buffer afterwards."
(interactive "P")
(save-excursion
- (end-of-buffer)
- (let ((end (point)) (case-fold-search t))
- (beginning-of-buffer)
- (inf-clojure-eval-region (point) end)))
- (if and-go (inf-clojure-switch-to-repl t)))
+ (widen)
+ (let ((case-fold-search t))
+ (inf-clojure-eval-region (point-min) (point-max) and-go))))
(defun inf-clojure-eval-last-sexp (&optional and-go)
"Send the previous sexp to the inferior Clojure process.
