Mercurial > hg > xemacs-beta

comparison lisp/cus-face.el @ 3918:049dc907c17a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-04-22 19:58:27 by aidan] Make the X11 font menu work again, server side X11 with Mule.
author aidan
date Sun, 22 Apr 2007 19:58:59 +0000
parents 1c2a46ea1f78
children 69a1eda3da06
comparison
equal deleted inserted replaced
3917:b8ded6c3f2a4 3918:049dc907c17a
280 (font-family fontobj))) 280 (font-family fontobj)))
281 281
282 ;;;###autoload 282 ;;;###autoload
283 (defun custom-set-face-update-spec (face display plist) 283 (defun custom-set-face-update-spec (face display plist)
284 "Customize the FACE for display types matching DISPLAY, merging 284 "Customize the FACE for display types matching DISPLAY, merging
285 in the new items from PLIST." 285 in the new items from PLIST."
286 (let ((spec (face-spec-update-all-matching (custom-face-get-spec face) 286 (let ((spec (face-spec-update-all-matching (custom-face-get-spec face)
287 display plist))) 287 display plist)))
288 (put face 'customized-face spec) 288 (put face 'customized-face spec)
289 (face-spec-set face spec nil '(custom)))) 289 (face-spec-set face spec nil '(custom))))
290 290