Lines Matching +defs:synprop +defs:xlfd
188 (defstruct xlfd
211 (defstruct synprop
221 xlfd ;; Optional xlfd structure, when combining properties.
223 ;; but fonts may be specified using the xlfd definition.
239 ;; a synprop structure.
242 &key font foreground background xlfd underline
247 (make-synprop
252 :xlfd ,xlfd
264 ;; Convert a synprop structure to a string in the format
267 (defun synprop-to-string (synprop &aux values booleans xlfd)
268 (if (setq xlfd (synprop-xlfd synprop))
272 ("foundry" ,(xlfd-foundry xlfd))
273 ("family" ,(xlfd-family xlfd))
274 ("weight" ,(xlfd-weight xlfd))
275 ("slant" ,(xlfd-slant xlfd))
276 ("setwidth" ,(xlfd-setwidth xlfd))
277 ("addstyle" ,(xlfd-addstyle xlfd))
278 ("pixelsize" ,(xlfd-pixel-size xlfd))
279 ("pointsize" ,(xlfd-point-size xlfd))
280 ("resx" ,(xlfd-res-x xlfd))
281 ("resy" ,(xlfd-res-y xlfd))
282 ("spacing" ,(xlfd-spacing xlfd))
283 ("avgwidth" ,(xlfd-avgwidth xlfd))
284 ("registry" ,(xlfd-registry xlfd))
285 ("encoding" ,(xlfd-encoding xlfd))
296 ("font" ,(synprop-font synprop))
297 ("foreground" ,(synprop-foreground synprop))
298 ("background" ,(synprop-background synprop))
312 ("underline" ,(synprop-underline synprop))
313 ("overstrike" ,(synprop-overstrike synprop))
314 ("subscript" ,(synprop-subscript synprop))
315 ("superscript" ,(synprop-superscript synprop))
329 (synprop-name synprop) ;; ~A
353 (list (synprop-to-string property))
385 (unless (integerp (synprop-quark property))
389 (synprop-name property)
392 (synprop-quark property)
393 #-debug (xrm-string-to-quark (synprop-name property))