branch: elpa/inf-clojure
commit 7aa02995c79aa53d3adf399bd3324d42a549616d
Author: Syohei YOSHIDA <syo...@gmail.com>
Commit: Syohei YOSHIDA <syo...@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.
