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)" |