- (when (and family (not (equal family from-family)))
- (setq new-props (append (list :family family) new-props)))
- (when (and size (not (equal size from-size)))
- (setq new-props (append
- (list :size (concat (int-to-string (/ size (specifier-instance
- font-menu-size-scaling
- (selected-device)))) "pt")) new-props)))
- (custom-set-face-update-spec 'default '((type x)) new-props)
+ (custom-set-face-update-spec 'default
+ (list (list 'type (device-type)))
+ (list :family (or family from-family)
+ :size (concat
+ (int-to-string
+ (/ (or size from-size)
+ (specifier-instance font-menu-size-scaling
+ (selected-device))))
+ "pt")))