Mercurial > hg > xemacs-beta

comparison lisp/font-menu.el @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 576fb035e263
children 943eaba38521
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
403 403
404 404
405 (defun font-menu-change-face (face 405 (defun font-menu-change-face (face
406 from-family from-weight from-size 406 from-family from-weight from-size
407 to-family to-weight to-size) 407 to-family to-weight to-size)
408 (or (symbolp face) (setq face (wrong-type-argument 'symbolp face))) 408 (check-type face symbol)
409 (let* ((dcache (device-fonts-cache)) 409 (let* ((dcache (device-fonts-cache))
410 (font-data (font-menu-font-data face dcache)) 410 (font-data (font-menu-font-data face dcache))
411 (face-family (aref font-data 1)) 411 (face-family (aref font-data 1))
412 (face-size (aref font-data 2)) 412 (face-size (aref font-data 2))
413 (face-weight (aref font-data 3)) 413 (face-weight (aref font-data 3))