Mercurial > hg > xemacs-beta

comparison lisp/cus-face.el @ 377:d883f39b8495 r21-2b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b4
author cvs
date Mon, 13 Aug 2007 11:05:42 +0200
parents 6240c7796c7a
children 74fd4e045ea6
comparison
equal deleted inserted replaced
376:e2295b4d9f2e 377:d883f39b8495
224 (let* ((font (apply 'face-font-name face args)) 224 (let* ((font (apply 'face-font-name face args))
225 ;; Gag 225 ;; Gag
226 (fontobj (font-create-object font))) 226 (fontobj (font-create-object font)))
227 (font-family fontobj))) 227 (font-family fontobj)))
228 228
229 ;;;###autoload
229 (defun custom-set-face-update-spec (face display plist) 230 (defun custom-set-face-update-spec (face display plist)
230 "Customize the FACE for display types matching DISPLAY, merging 231 "Customize the FACE for display types matching DISPLAY, merging
231 in the new items from PLIST" 232 in the new items from PLIST"
232 (let ((spec (face-spec-update-all-matching (custom-face-get-spec face) 233 (let ((spec (face-spec-update-all-matching (custom-face-get-spec face)
233 display plist))) 234 display plist)))