Mercurial > hg > xemacs-beta

comparison lisp/x11/x-font-menu.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents ac2d302a0011
children 49a24b4fd526
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
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)))
455 (while faces 459 (while faces
456 (cond ((face-font-instance (car faces)) 460 (cond ((face-font-instance (car faces))
457 (message "Changing font of `%s'..." (car faces)) 461 (message "Changing font of `%s'..." (car faces))
458 (condition-case c 462 (condition-case c
459 (font-menu-change-face (car faces) 463 (font-menu-change-face (car faces)