Mercurial > hg > xemacs-beta

diff lisp/x-font-menu.el @ 1104:8b464283e891

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-11-12 18:58:13 by james] Unconditionally compile the LISP_FLOAT_TYPE code. Remove all !LISP_FLOAT_TYPE code and the LISP_FLOAT_TYPE identifier itself.
author james
date Tue, 12 Nov 2002 18:58:41 +0000
parents cd662ad69f40
children a1e328407366
line wrap: on
line diff
--- a/lisp/x-font-menu.el	Tue Nov 12 03:57:48 2002 +0000
+++ b/lisp/x-font-menu.el	Tue Nov 12 18:58:41 2002 +0000
@@ -167,10 +167,8 @@
 	      families)
       (mapcar (lambda (x)
 		(vector (if (/= 0 (% x 10))
-			    ;; works with no LISP_FLOAT_TYPE
-			    (concat (int-to-string (/ x 10)) "."
-				    (int-to-string (% x 10)))
-			  (int-to-string (/ x 10)))
+			    (number-to-string (/ x 10.0))
+			  (number-to-string (/ x 10)))
 			(list 'font-menu-set-font nil nil x)
 			':style 'radio ':active nil ':selected nil))
 	      sizes)