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)"
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
