Fix goto-line bug.

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index afa15eab24ee7b2b983e479e3f6d4e43240d48e7..8b92eab8579082debfe9ee33a02b494f5b19b60a 100644 (file)
--- 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 7fd7e20b499165b7b62ea15dca183e39dd8ee840..fe46e36fdac818ae59ca6c57001c93e8ea840e5b 100644 (file)
--- 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)