Mercurial > hg > xemacs-beta

comparison lisp/gtk-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 7039e6323819
children 13a418960a88
comparison
equal deleted inserted replaced
1103:80d9ab2e9855 1104:8b464283e891
164 (list 'font-menu-set-font x nil nil) 164 (list 'font-menu-set-font x nil nil)
165 ':style 'radio ':active nil ':selected nil)) 165 ':style 'radio ':active nil ':selected nil))
166 families) 166 families)
167 (mapcar (lambda (x) 167 (mapcar (lambda (x)
168 (vector (if (/= 0 (% x 10)) 168 (vector (if (/= 0 (% x 10))
169 ;; works with no LISP_FLOAT_TYPE 169 (number-to-string (/ x 10.0))
170 (concat (int-to-string (/ x 10)) "." 170 (number-to-string (/ x 10)))
171 (int-to-string (% x 10)))
172 (int-to-string (/ x 10)))
173 (list 'font-menu-set-font nil nil x) 171 (list 'font-menu-set-font nil nil x)
174 ':style 'radio ':active nil ':selected nil)) 172 ':style 'radio ':active nil ':selected nil))
175 sizes) 173 sizes)
176 (mapcar (lambda (x) 174 (mapcar (lambda (x)
177 (vector x 175 (vector x