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

diff --git a/lisp/font-menu.el b/lisp/font-menu.el
index 0103764..e22202f 100644
--- a/lisp/font-menu.el
+++ b/lisp/font-menu.el
@@ -400,7 +400,7 @@ or if you change your font path, you can call this to re-initialize the menus."
 		(list :family family
 		      :size (concat
 			     (int-to-string
-			      (/ size
+			      (/ (or size from-size)
 				 (specifier-instance font-menu-size-scaling
 				      (selected-device))))
 			      "pt")))