Mercurial > hg > xemacs-beta

comparison lisp/x-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 cc6f0266bc36
comparison
equal deleted inserted replaced
5469:2a8a04f73c15 5470:0af042a0c116
249 (setcdr 249 (setcdr
250 dev-cache 250 dev-cache
251 (vector 251 (vector
252 cache 252 cache
253 (mapcar (lambda (x) 253 (mapcar (lambda (x)
254 (vector x 254 (vector x
255 (list 'font-menu-set-font x nil nil) 255 (list 'font-menu-set-font x nil nil)
256 ':style 'radio ':active nil ':selected nil)) 256 :style 'radio :active nil :selected nil))
257 families) 257 families)
258 (mapcar (lambda (x) 258 (mapcar (lambda (x)
259 (vector (if (/= 0 (% x 10)) 259 (vector (if (/= 0 (% x 10))
260 (number-to-string (/ x 10.0)) 260 (number-to-string (/ x 10.0))
261 (number-to-string (/ x 10))) 261 (number-to-string (/ x 10)))
262 (list 'font-menu-set-font nil nil x) 262 (list 'font-menu-set-font nil nil x)
263 ':style 'radio ':active nil ':selected nil)) 263 :style 'radio :active nil :selected nil))
264 sizes) 264 sizes)
265 (mapcar (lambda (x) 265 (mapcar (lambda (x)
266 (vector x 266 (vector x
267 (list 'font-menu-set-font nil x nil) 267 (list 'font-menu-set-font nil x nil)
268 ':style 'radio ':active nil ':selected nil)) 268 :style 'radio :active nil :selected nil))
269 weights))) 269 weights)))
270 (cdr dev-cache))) 270 (cdr dev-cache)))
271 271
272 ;; Extract font information from a face. We examine both the 272 ;; Extract font information from a face. We examine both the
273 ;; user-specified font name and the canonical (`true') font name. 273 ;; user-specified font name and the canonical (`true') font name.