(number-to-register): Use `string-to-number' instead

of `string-to-int'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index af840feb1e173cd6ecbfd2d5c61c4f50063923e6..b8e16327634f8cc1a8e1f1c6a9212e7d37415a09 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2003-05-17  John Paul Wallington  <jpw@gnu.org>
+
+       * international/ja-dic-cnv.el (skkdic-okuri-nasi-entries)
+       (skkdic-okuri-nasi-entries-count): Use defvar for non-constants.
+
+       * register.el (number-to-register): Use `string-to-number' instead
+       of `string-to-int'.
+
 2003-05-17  Stefan Monnier  <monnier@cs.yale.edu>
 
        * which-func.el (which-func-format): Make it risky-local-variable.
@@ -132,7 +140,7 @@
 
 2003-05-14  John Paul Wallington  <jpw@gnu.org>
 
-       * ls-lisp.el (insert-directory): Remove --dired switch when
+       * ls-lisp.el (insert-directory): Discard --dired switch when
        `ls-lisp-use-insert-directory-program' is nil.
 
 2003-05-13  Stefan Monnier  <monnier@cs.yale.edu>

diff --git a/lisp/register.el b/lisp/register.el
index 17c804afbd90e56a6da936a4f8e213f50653c70c..d550858eba7630b81c5599becdc61d385269879f 100644 (file)
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -146,7 +146,7 @@ Interactively, NUMBER is the prefix arg (none means nil)."
                  (if (looking-at "\\s-*-?[0-9]+")
                      (progn
                        (goto-char (match-end 0))
-                       (string-to-int (match-string 0)))
+                       (string-to-number (match-string 0)))
                    0))))
 
 (defun increment-register (number register)