[Emacs-diffs] Changes to emacs/lisp/term/sun-mouse.el

[Juanma Barranquero]

Index: emacs/lisp/term/sun-mouse.el
diff -c emacs/lisp/term/sun-mouse.el:1.24 emacs/lisp/term/sun-mouse.el:1.25
*** emacs/lisp/term/sun-mouse.el:1.24   Mon Sep  1 15:45:36 2003
--- emacs/lisp/term/sun-mouse.el        Mon May 16 11:27:56 2005
***************
*** 615,621 ****
      (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))))
  
  (defun sm::font-size ()
    "Returns font size in pixels: (cons Ysize Xsize)"
--- 615,621 ----
      (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-number y) (string-to-number x))))
  
  (defun sm::font-size ()
    "Returns font size in pixels: (cons Ysize Xsize)"