XEmacs 21.2.28 "Hermes".

[chise/xemacs-chise.git.1] / lisp / font-menu.el

diff --git a/lisp/font-menu.el b/lisp/font-menu.el
index 0103764..aa46c4c 100644 (file)
--- a/lisp/font-menu.el
+++ b/lisp/font-menu.el
@@ -42,7 +42,7 @@
 ;;; were always selectable, and selecting them would set the size to be the
 ;;; closest size to the current font's size.
 ;;;
-;;; This attempts to change all other faces in an analagous way to the change
+;;; This attempts to change all other faces in an analogous way to the change
 ;;; that was made to the default face; if it can't, it will skip over the face.
 ;;; However, this could leave incongruous font sizes around, which may cause
 ;;; some nonreversibility problems if further changes are made.  Perhaps it
@@ -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")))