[Emacs-diffs] /srv/bzr/emacs/trunk r105335: Fix goto-line bug.

[Juanma Barranquero]

------------------------------------------------------------
revno: 105335
author: Jose E. Marchesi <address@hidden>
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Thu 2011-07-28 16:05:07 +0200
message:
  Fix goto-line bug.
  
  lisp/simple.el (goto-line): Use string-to-number to provide a
  numeric argument to read-number.
modified:
  lisp/ChangeLog
  lisp/simple.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-07-27 11:22:22 +0000
+++ b/lisp/ChangeLog    2011-07-28 14:05:07 +0000
@@ -1,3 +1,8 @@
+2011-07-28  Jose E. Marchesi  <address@hidden>
+
+       * simple.el (goto-line): Use string-to-number to provide a
+       numeric argument to read-number.
+
 2011-07-27  Michael Albinus  <address@hidden>
 
        * net/tramp-sh.el (tramp-maybe-send-script): Don't let-bind the

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2011-07-16 18:42:38 +0000
+++ b/lisp/simple.el    2011-07-28 14:05:07 +0000
@@ -900,10 +900,11 @@
              (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)