Mercurial > hg > xemacs-beta

diff lisp/font-menu.el @ 418:e804706bfb8c r21-2-17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-17
author cvs
date Mon, 13 Aug 2007 11:23:13 +0200
parents ebe98a74bd68
children
line wrap: on
line diff
--- a/lisp/font-menu.el	Mon Aug 13 11:22:24 2007 +0200
+++ b/lisp/font-menu.el	Mon Aug 13 11:23:13 2007 +0200
@@ -400,7 +400,7 @@
 		(list :family family
 		      :size (concat
 			     (int-to-string
-			      (/ size
+			      (/ (or size from-size)
 				 (specifier-instance font-menu-size-scaling
 				      (selected-device))))
 			      "pt")))