[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r105335: Fix goto-line bug.
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r105335: Fix goto-line bug. |
Date: |
Thu, 28 Jul 2011 16:05:07 +0200 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r105335: Fix goto-line bug.,
Juanma Barranquero <=