projects / chise / xemacs-chise.git.1 / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
XEmacs 21.2.17 "Chiyoda".
[chise/xemacs-chise.git.1] / lisp / font-menu.el
diff --git a/lisp/font-menu.el b/lisp/font-menu.el
index 0103764..e22202f 100644 (file)
--- 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")))