/[emacs]/emacs/lisp/term/sun-mouse.el
ViewVC logotype

Diff of /emacs/lisp/term/sun-mouse.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.24 by miles, Mon Sep 1 15:45:36 2003 UTC revision 1.25 by lektu, Mon May 16 11:27:56 2005 UTC
# Line 615  CODE values: 13 = Tool-Position, 14 = Si Line 615  CODE values: 13 = Tool-Position, 14 = Si
615      (setq str (substring str (match-end 0)))      (setq str (substring str (match-end 0)))
616      (string-match ";[0-9]*" str)      (string-match ";[0-9]*" str)
617      (setq x (substring str (1+ (match-beginning 0)) (match-end 0)))      (setq x (substring str (1+ (match-beginning 0)) (match-end 0)))
618      (cons (string-to-int y) (string-to-int x))))      (cons (string-to-number y) (string-to-number x))))
619    
620  (defun sm::font-size ()  (defun sm::font-size ()
621    "Returns font size in pixels: (cons Ysize Xsize)"    "Returns font size in pixels: (cons Ysize Xsize)"

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26