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