X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Ffont-menu.el;h=e22202f75ba077a63b772ee23d74fb06334aba00;hb=67e483da178566db01c5d1d8ed9503e514dcb89c;hp=0103764453c276a3b84130c2dbf22bed3fc907f4;hpb=2416430cb588c7f7a7ca990d536c092f3af3a0b9;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")))