From a514d8567cf3844f53e86244de14fb0184900ee1 Mon Sep 17 00:00:00 2001 From: "Jose E. Marchesi" Date: Thu, 28 Jul 2011 16:05:07 +0200 Subject: [PATCH] Fix goto-line bug. lisp/simple.el (goto-line): Use string-to-number to provide a numeric argument to read-number. --- lisp/ChangeLog | 5 +++++ lisp/simple.el | 9 +++++---- 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 + + * simple.el (goto-line): Use string-to-number to provide a + numeric argument to read-number. + 2011-07-27 Michael Albinus * 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) -- 2.39.2