aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJohn Paul Wallington2003-05-17 22:47:18 +0000
committerJohn Paul Wallington2003-05-17 22:47:18 +0000
commitfe22eed0de1194c837aa61b1b2ad1ffb3ea46b4c (patch)
tree6cd2e82e75009f912d3fc9ee074675ae52fe4246
parent6612afc0d20901bcc6ad30743a7f90b81a9c0e4b (diff)
downloademacs-fe22eed0de1194c837aa61b1b2ad1ffb3ea46b4c.tar.gz
emacs-fe22eed0de1194c837aa61b1b2ad1ffb3ea46b4c.zip
(number-to-register): Use `string-to-number' instead
of `string-to-int'.
-rw-r--r--lisp/ChangeLog10
-rw-r--r--lisp/register.el2
2 files changed, 10 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index af840feb1e1..b8e16327634 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
12003-05-17 John Paul Wallington <jpw@gnu.org>
2
3 * international/ja-dic-cnv.el (skkdic-okuri-nasi-entries)
4 (skkdic-okuri-nasi-entries-count): Use defvar for non-constants.
5
6 * register.el (number-to-register): Use `string-to-number' instead
7 of `string-to-int'.
8
12003-05-17 Stefan Monnier <monnier@cs.yale.edu> 92003-05-17 Stefan Monnier <monnier@cs.yale.edu>
2 10
3 * which-func.el (which-func-format): Make it risky-local-variable. 11 * which-func.el (which-func-format): Make it risky-local-variable.
@@ -132,7 +140,7 @@
132 140
1332003-05-14 John Paul Wallington <jpw@gnu.org> 1412003-05-14 John Paul Wallington <jpw@gnu.org>
134 142
135 * ls-lisp.el (insert-directory): Remove --dired switch when 143 * ls-lisp.el (insert-directory): Discard --dired switch when
136 `ls-lisp-use-insert-directory-program' is nil. 144 `ls-lisp-use-insert-directory-program' is nil.
137 145
1382003-05-13 Stefan Monnier <monnier@cs.yale.edu> 1462003-05-13 Stefan Monnier <monnier@cs.yale.edu>
diff --git a/lisp/register.el b/lisp/register.el
index 17c804afbd9..d550858eba7 100644
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -146,7 +146,7 @@ Interactively, NUMBER is the prefix arg (none means nil)."
146 (if (looking-at "\\s-*-?[0-9]+") 146 (if (looking-at "\\s-*-?[0-9]+")
147 (progn 147 (progn
148 (goto-char (match-end 0)) 148 (goto-char (match-end 0))
149 (string-to-int (match-string 0))) 149 (string-to-number (match-string 0)))
150 0)))) 150 0))))
151 151
152(defun increment-register (number register) 152(defun increment-register (number register)