Mercurial > hg > xemacs-beta

comparison lisp/x11/x-font-menu.el @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents 49a24b4fd526
children 131b0175ea99
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
450 (setq new-default-face-font 450 (setq new-default-face-font
451 (font-menu-load-font (or family from-family) 451 (font-menu-load-font (or family from-family)
452 (or weight from-weight) 452 (or weight from-weight)
453 (or size from-size) 453 (or size from-size)
454 default-name)) 454 default-name))
455 (setq save-options-font-hack (list 'font-menu-set-font
456 (or family from-family)
457 (or weight from-weight)
458 (or size from-size)))
459 (while faces 455 (while faces
460 (cond ((face-font-instance (car faces)) 456 (cond ((face-font-instance (car faces))
461 (message "Changing font of `%s'..." (car faces)) 457 (message "Changing font of `%s'..." (car faces))
462 (condition-case c 458 (condition-case c
463 (font-menu-change-face (car faces) 459 (font-menu-change-face (car faces)