Mercurial > hg > xemacs-beta

comparison lisp/font.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents 3ecd8885ac67
children 7039e6323819
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
297 w1) 297 w1)
298 (t 298 (t
299 w2)))) 299 w2))))
300 300
301 (defun font-spatial-to-canonical (spec &optional device) 301 (defun font-spatial-to-canonical (spec &optional device)
302 "Convert SPEC (in inches, millimeters, points, or picas) into points" 302 "Convert SPEC (in inches, millimeters, points, or picas) into points."
303 ;; 1 in = 6 pa = 25.4 mm = 72 pt 303 ;; 1 in = 6 pa = 25.4 mm = 72 pt
304 (cond 304 (cond
305 ((numberp spec) 305 ((numberp spec)
306 spec) 306 spec)
307 ((null spec) 307 ((null spec)