diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-05-16 11:34:49 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-05-16 11:34:49 +0000 |
| commit | 027a4b6b3fd229f8aea323f59cb246d99deb8a75 (patch) | |
| tree | c92da7d3049376d7bd687db6bc5c8dce82ed9335 /lisp/term/sun-mouse.el | |
| parent | 216d380630ec8be9569a56687f0e08b89ee97c47 (diff) | |
| download | emacs-027a4b6b3fd229f8aea323f59cb246d99deb8a75.tar.gz | |
Replace `string-to-int' by `string-to-number'.
Diffstat (limited to 'lisp/term/sun-mouse.el')
| -rw-r--r-- | lisp/term/sun-mouse.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)" |