From: Jose E. Marchesi <jemarch@gnu.org>
Date: Thu, 28 Jul 2011 14:05:07 +0000 (+0200)
Subject: Fix goto-line bug.
X-Git-Tag: emacs-pretest-24.0.90~104^2~159^2~3
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a514d8567cf3844f53e86244de14fb0184900ee1;p=emacs.git

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 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)