Mercurial > hg > xemacs-beta

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