[nongnu] elpa/paredit 89aa6fb 057/224: Eliminate non-interactive use of `goto-line'.

[ELPA Syncer]

branch: elpa/paredit
commit 89aa6fb7d22f0003317f894cedd088f94ff545a0
Author: Taylor R Campbell <campbell@mumble.net>
Commit: Taylor R Campbell <campbell@mumble.net>

    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
---
 paredit.el | 6 ++----
 1 file 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 ()