Mercurial > hg > xemacs-beta
comparison lisp/font-menu.el @ 416:ebe98a74bd68 r21-2-16
Import from CVS: tag r21-2-16
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:22:23 +0200 |
parents | da8ed4261e83 |
children | e804706bfb8c |
comparison
equal
deleted
inserted
replaced
415:a27f76b40c83 | 416:ebe98a74bd68 |
---|---|
393 (if font-menu-this-frame-only-p | 393 (if font-menu-this-frame-only-p |
394 ;;; WMP - we need to honor font-menu-this-frame-only-p here! | 394 ;;; WMP - we need to honor font-menu-this-frame-only-p here! |
395 (set-face-font 'default new-default-face-font | 395 (set-face-font 'default new-default-face-font |
396 (and font-menu-this-frame-only-p (selected-frame))) | 396 (and font-menu-this-frame-only-p (selected-frame))) |
397 ;; OK Let Customize do it. | 397 ;; OK Let Customize do it. |
398 (when (and family (not (equal family from-family))) | 398 (custom-set-face-update-spec 'default |
399 (setq new-props (append (list :family family) new-props))) | 399 (list (list 'type (device-type))) |
400 (when (and size (not (equal size from-size))) | 400 (list :family family |
401 (setq new-props (append | 401 :size (concat |
402 (list :size (concat (int-to-string (/ size (specifier-instance | 402 (int-to-string |
403 font-menu-size-scaling | 403 (/ size |
404 (selected-device)))) "pt")) new-props))) | 404 (specifier-instance font-menu-size-scaling |
405 (custom-set-face-update-spec 'default '((type x)) new-props) | 405 (selected-device)))) |
406 "pt"))) | |
406 (message "Font %s" (face-font-name 'default))))) | 407 (message "Font %s" (face-font-name 'default))))) |
407 | 408 |
408 | 409 |
409 (defun font-menu-change-face (face | 410 (defun font-menu-change-face (face |
410 from-family from-weight from-size | 411 from-family from-weight from-size |