branch: elpa/paredit
commit 89aa6fb7d22f0003317f894cedd088f94ff545a0
Author: Taylor R Campbell <[email protected]>
Commit: Taylor R Campbell <[email protected]>
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 ()
