Mercurial > hg > xemacs-beta

comparison lisp/font.el @ 4577:de0228446b18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Docstring spelling fixes.
author "Ville Skyttä <scop@xemacs.org>"
date Sun, 18 Jan 2009 11:55:53 +0200
parents 29efd169efe7
children 517f6887fbc0
comparison
equal deleted inserted replaced
4576:774e5c7522bf 4577:de0228446b18
214 (defconst ,(intern (format "font-%s-mask" attr)) (lsh 1 ,mask) 214 (defconst ,(intern (format "font-%s-mask" attr)) (lsh 1 ,mask)
215 ,(format 215 ,(format
216 "Bitmask for whether a font is to be rendered in %s or not." 216 "Bitmask for whether a font is to be rendered in %s or not."
217 attr)) 217 attr))
218 (defun ,(intern (format "font-%s-p" attr)) (fontobj) 218 (defun ,(intern (format "font-%s-p" attr)) (fontobj)
219 ,(format "Whether FONTOBJ will be renderd in `%s' or not." attr) 219 ,(format "Whether FONTOBJ will be rendered in `%s' or not." attr)
220 (if (/= 0 (logand (font-style fontobj) 220 (if (/= 0 (logand (font-style fontobj)
221 ,(intern (format "font-%s-mask" attr)))) 221 ,(intern (format "font-%s-mask" attr))))
222 t 222 t
223 nil)) 223 nil))
224 (defun ,(intern (format "set-font-%s-p" attr)) (fontobj val) 224 (defun ,(intern (format "set-font-%s-p" attr)) (fontobj val)
225 ,(format "Set whether FONTOBJ will be renderd in `%s' or not." 225 ,(format "Set whether FONTOBJ will be rendered in `%s' or not."
226 attr) 226 attr)
227 (cond 227 (cond
228 (val 228 (val
229 (set-font-style fontobj (logior (font-style fontobj) 229 (set-font-style fontobj (logior (font-style fontobj)
230 ,(intern 230 ,(intern