X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Ffont-menu.el;h=e22202f75ba077a63b772ee23d74fb06334aba00;hb=f2dc6b73cf1cf279e72f9a17a235c749ff6d19a7;hp=c406ddcf91dd5d30fd1f51f1f56230f730d6fcdf;hpb=140fb029a954e85e8e62e0ebd23e7bc43526b57b;p=chise%2Fxemacs-chise.git

diff --git a/lisp/font-menu.el b/lisp/font-menu.el
index c406ddc..e22202f 100644
--- a/lisp/font-menu.el
+++ b/lisp/font-menu.el
@@ -395,14 +395,15 @@ or if you change your font path, you can call this to re-initialize the menus."
 	(set-face-font 'default new-default-face-font
 		       (and font-menu-this-frame-only-p (selected-frame)))
       ;; OK Let Customize do it.
-      (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 family
+		      :size (concat
+			     (int-to-string
+			      (/ (or size from-size)
+				 (specifier-instance font-menu-size-scaling
+				      (selected-device))))
+			      "pt")))		 
       (message "Font %s" (face-font-name 'default)))))