Mercurial > hg > xemacs-beta

comparison lisp/x-font-menu.el @ 316:512e409c26a2 r21-0b56

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b56
author cvs
date Mon, 13 Aug 2007 10:44:46 +0200
parents 341dac730539
children 19dcec799385
comparison
equal deleted inserted replaced
315:5e87bc5b1ee4 316:512e409c26a2
492 ;; the frame size doesn't change until we are all done. 492 ;; the frame size doesn't change until we are all done.
493 493
494 (when (and family (not (equal family from-family))) 494 (when (and family (not (equal family from-family)))
495 (setq new-props (append (list :family family) new-props))) 495 (setq new-props (append (list :family family) new-props)))
496 (when (and size (not (equal size from-size))) 496 (when (and size (not (equal size from-size)))
497 (setq new-props (append (list :size (int-to-string 497 (setq new-props (append (list :size (concat (int-to-string
498 (/ size 10))) new-props))) 498 (/ size 10)) "pt")) new-props)))
499 (custom-set-face-update-spec 'default '((type x)) new-props) 499 (custom-set-face-update-spec 'default '((type x)) new-props)
500 ;;; WMP - we need to honor font-menu-this-frame-only-p here! 500 ;;; WMP - we need to honor font-menu-this-frame-only-p here!
501 ; (set-face-font 'default new-default-face-font 501 ; (set-face-font 'default new-default-face-font
502 ; (and font-menu-this-frame-only-p (selected-frame))) 502 ; (and font-menu-this-frame-only-p (selected-frame)))
503 (message "Font %s" (face-font-name 'default)))) 503 (message "Font %s" (face-font-name 'default))))