Fix goto-line bug.

lisp/simple.el (goto-line): Use string-to-number to provide a
numeric argument to read-number.

2 files changed, 10 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index afa15eab24e..8b92eab8579 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-28  Jose E. Marchesi  <jemarch@gnu.org>
+
+        * simple.el (goto-line): Use string-to-number to provide a
+        numeric argument to read-number.
+
 2011-07-27  Michael Albinus  <michael.albinus@gmx.de>
 
         * net/tramp-sh.el (tramp-maybe-send-script): Don't let-bind the
diff --git a/lisp/simple.el b/lisp/simple.el
index 7fd7e20b499..fe46e36fdac 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -900,10 +900,11 @@ rather than line counts."
               (save-excursion
                 (skip-chars-backward "0-9")
                 (if (looking-at "[0-9]")
-                    (buffer-substring-no-properties
-                     (point)
-                     (progn (skip-chars-forward "0-9")
-                            (point))))))
+                    (string-to-number
+                     (buffer-substring-no-properties
+                      (point)
+                      (progn (skip-chars-forward "0-9")
+                             (point)))))))
             ;; Decide if we're switching buffers.
             (buffer
              (if (consp current-prefix-arg)