Eliminate non-interactive use of `goto-line'.

Ignore-this: 562a203b85842ebc368ea80f2aa65612

Using `forward-line' in `paredit-recentre-on-sexp' is simpler anyway.

darcs-hash:20101206011608-00fcc-1775f5b8c7a4eb4ab2792e5746aca95a2759dc60

1 files changed, 2 insertions, 4 deletions

diff --git a/paredit.el b/paredit.el
index 9c2ed24..252fa21 100644
--- a/paredit.el
+++ b/paredit.el
@@ -1736,10 +1736,8 @@ With a prefix argument N, encompass all N S-expressions forward."
     (forward-sexp n)
     (let ((end-point (point)))
       (backward-sexp n)
-      (let* ((start-point (point))
-             (start-line (count-lines (point-min) (point)))
-             (lines-on-sexps (count-lines start-point end-point)))
-        (goto-line (+ start-line (/ lines-on-sexps 2)))
+      (let ((start-point (point)))
+        (forward-line (/ (count-lines start-point end-point) 2))
         (recenter)))))
 
 (defun paredit-focus-on-defun ()