[nongnu] elpa/inf-clojure 7aa0299 062/313: Refactoring

[ELPA Syncer]

branch: elpa/inf-clojure
commit 7aa02995c79aa53d3adf399bd3324d42a549616d
Author: Syohei YOSHIDA <syohex@gmail.com>
Commit: Syohei YOSHIDA <syohex@gmail.com>

    Refactoring
    
    - Pass and-go parameter to inf-clojure-eval-region
    - Use point-min and point-max instead of beginning-of-buffer and 
end-of-buffer
---
 inf-clojure.el | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/inf-clojure.el b/inf-clojure.el
index e6bdc7f..e48132d 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.