Mercurial > hg > xemacs-beta

comparison lisp/cus-face.el @ 5640:e6b5c49f9e13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add autoload cookie to custom-set-face-bold
author Vin Shelton <acs@xemacs.org>
date Sun, 08 Jan 2012 22:29:06 -0500
parents c39052c921b5
children
comparison
equal deleted inserted replaced
5639:1d1f385c9149 5640:e6b5c49f9e13
213 (get symbol 'face-defface-spec) 213 (get symbol 'face-defface-spec)
214 ;; Attempt to construct it. 214 ;; Attempt to construct it.
215 (list (list t (face-custom-attributes-get 215 (list (list t (face-custom-attributes-get
216 symbol (selected-frame)))))) 216 symbol (selected-frame))))))
217 217
218 ;;;###autoload
218 (defun custom-set-face-bold (face value &optional frame tags) 219 (defun custom-set-face-bold (face value &optional frame tags)
219 "Set the bold property of FACE to VALUE." 220 "Set the bold property of FACE to VALUE."
220 (if value 221 (if value
221 (make-face-bold face frame tags) 222 (make-face-bold face frame tags)
222 (make-face-unbold face frame tags))) 223 (make-face-unbold face frame tags)))