[nongnu] elpa/inf-clojure ed0cd4d 063/313: Merge pull request #21 from syohex/refactoring

[ELPA Syncer]

branch: elpa/inf-clojure
commit ed0cd4dc92154de74bd1d94559712628775f2f4a
Merge: a69c568 7aa0299
Author: Bozhidar Batsov <bozhidar.batsov@gmail.com>
Commit: Bozhidar Batsov <bozhidar.batsov@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.