Replace goto-line with non-interactive equivalent, and deprecated
read-input with read-string.

Signed-off-by: Ramkumar Ramachandra <[email protected]>
---
 magit.el |    7 ++++---
 1 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/magit.el b/magit.el
index 59430cd..d81b454 100644
--- a/magit.el
+++ b/magit.el
@@ -2447,9 +2447,9 @@ Given a prefix-arg then the merge will be squashed."

 (defun magit-svn-find-rev (rev &optional branch)
   (interactive
-   (list (read-input "SVN revision: ")
+   (list (read-string "SVN revision: ")
          (if current-prefix-arg
-             (read-input "In branch: "))))
+             (read-string "In branch: "))))
   (let* ((sha (apply 'magit-git-string
                      `("svn"
                        "find-rev"
@@ -3470,7 +3470,8 @@ Prefix arg means justify as well."
      (let ((file (magit-diff-item-file (magit-hunk-item-diff item)))
           (line (magit-hunk-item-target-line item)))
        (find-file file)
-       (goto-line line)))
+       (goto-char (point-min))
+       (forward-line (1- line))))
     ((commit)
      (magit-show-commit info)
      (pop-to-buffer "*magit-commit*"))
-- 
1.7.0.3


-- 
To unsubscribe, reply using "remove me" as the subject.

Reply via email to