4 files changed, 4 insertions, 4 deletions
diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index 366668c66f3..a27a4c6395c 100644
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -106,7 +106,7 @@
 	(let ((param (nth 3 aelt)))
 	  (setq default-frame-alist
 		(cons (cons param
-			    (string-to-int (car x-invocation-args)))
+			    (string-to-number (car x-invocation-args)))
 		      default-frame-alist)
 		x-invocation-args
 		(cdr x-invocation-args))))))
diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el
index 8d9bfb67cf7..cee02919a66 100644
--- a/lisp/term/sun-mouse.el
+++ b/lisp/term/sun-mouse.el
@@ -615,7 +615,7 @@ CODE values: 13 = Tool-Position, 14 = Size-in-Pixels, 18 = Size-in-Chars."
     (setq str (substring str (match-end 0)))
     (string-match ";[0-9]*" str)
     (setq x (substring str (1+ (match-beginning 0)) (match-end 0)))
-    (cons (string-to-int y) (string-to-int x))))
+    (cons (string-to-number y) (string-to-number x))))
 
 (defun sm::font-size ()
   "Returns font size in pixels: (cons Ysize Xsize)"
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index f99eff9ef1a..76644fc2d63 100644
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -146,7 +146,7 @@ the last file dropped is selected."
   "Handle SWITCH of the form \"-switch n\"."
   (let ((aelt (assoc switch command-line-x-option-alist)))
     (if aelt
-	(push (cons (nth 3 aelt) (string-to-int (pop x-invocation-args)))
+	(push (cons (nth 3 aelt) (string-to-number (pop x-invocation-args)))
 	      default-frame-alist))))
 
 ;; Handle options that apply to initial frame only
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index c37c98f6781..5b4ff6d2f7c 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -105,7 +105,7 @@
 	(let ((param (nth 3 aelt)))
 	  (setq default-frame-alist
 		(cons (cons param
-			    (string-to-int (car x-invocation-args)))
+			    (string-to-number (car x-invocation-args)))
 		      default-frame-alist)
 		x-invocation-args
 		(cdr x-invocation-args))))))