Mercurial > emacs
diff lisp/term/sun-mouse.el @ 62402:a7e02ef1e3d6
Replace `string-to-int' by `string-to-number'.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Mon, 16 May 2005 11:33:47 +0000 |
parents | 695cf19ef79e |
children | a8fa7c632ee4 f042e7c0fe20 |
line wrap: on
line diff
--- a/lisp/term/sun-mouse.el Mon May 16 10:07:59 2005 +0000 +++ b/lisp/term/sun-mouse.el Mon May 16 11:33:47 2005 +0000 @@ -615,7 +615,7 @@ (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)"