Mercurial > hg > xemacs-beta

comparison lisp/font-menu.el @ 418:e804706bfb8c r21-2-17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-17
author cvs
date Mon, 13 Aug 2007 11:23:13 +0200
parents ebe98a74bd68
children
comparison
equal deleted inserted replaced
417:43a18b32d56e 418:e804706bfb8c
398 (custom-set-face-update-spec 'default 398 (custom-set-face-update-spec 'default
399 (list (list 'type (device-type))) 399 (list (list 'type (device-type)))
400 (list :family family 400 (list :family family
401 :size (concat 401 :size (concat
402 (int-to-string 402 (int-to-string
403 (/ size 403 (/ (or size from-size)
404 (specifier-instance font-menu-size-scaling 404 (specifier-instance font-menu-size-scaling
405 (selected-device)))) 405 (selected-device))))
406 "pt"))) 406 "pt")))
407 (message "Font %s" (face-font-name 'default))))) 407 (message "Font %s" (face-font-name 'default)))))
408 408