Mercurial > hg > xemacs-beta

comparison lisp/gtk-font-menu.el @ 5470:0af042a0c116

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with trunk.
author Mats Lidell <matsl@xemacs.org>
date Mon, 07 Feb 2011 21:22:17 +0100
parents 308d34e9f07d 2a54dfbe434f
children ac37a5f7e5be
comparison
equal deleted inserted replaced
5469:2a8a04f73c15 5470:0af042a0c116
164 (vector 164 (vector
165 cache 165 cache
166 (mapcar (lambda (x) 166 (mapcar (lambda (x)
167 (vector x 167 (vector x
168 (list 'font-menu-set-font x nil nil) 168 (list 'font-menu-set-font x nil nil)
169 ':style 'radio ':active nil ':selected nil)) 169 :style 'radio :active nil :selected nil))
170 families) 170 families)
171 (mapcar (lambda (x) 171 (mapcar (lambda (x)
172 (vector (if (/= 0 (% x 10)) 172 (vector (if (/= 0 (% x 10))
173 (number-to-string (/ x 10.0)) 173 (number-to-string (/ x 10.0))
174 (number-to-string (/ x 10))) 174 (number-to-string (/ x 10)))
175 (list 'font-menu-set-font nil nil x) 175 (list 'font-menu-set-font nil nil x)
176 ':style 'radio ':active nil ':selected nil)) 176 :style 'radio :active nil :selected nil))
177 sizes) 177 sizes)
178 (mapcar (lambda (x) 178 (mapcar (lambda (x)
179 (vector x 179 (vector x
180 (list 'font-menu-set-font nil x nil) 180 (list 'font-menu-set-font nil x nil)
181 ':style 'radio ':active nil ':selected nil)) 181 :style 'radio :active nil :selected nil))
182 weights))) 182 weights)))
183 (cdr dev-cache))) 183 (cdr dev-cache)))
184 184
185 ;; Extract font information from a face. We examine both the 185 ;; Extract font information from a face. We examine both the
186 ;; user-specified font name and the canonical (`true') font name. 186 ;; user-specified font name and the canonical (`true') font name.