Mercurial > hg > xemacs-beta

comparison lisp/cus-face.el @ 321:19dcec799385 r21-0-58

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0-58
author cvs
date Mon, 13 Aug 2007 10:46:44 +0200
parents 341dac730539
children a4f53d9b3154
comparison
equal deleted inserted replaced
320:73c75c43c1f2 321:19dcec799385
221 (let* ((font (apply 'face-font-name face args)) 221 (let* ((font (apply 'face-font-name face args))
222 ;; Gag 222 ;; Gag
223 (fontobj (font-create-object font))) 223 (fontobj (font-create-object font)))
224 (font-family fontobj))) 224 (font-family fontobj)))
225 225
226 ;;;###autoload
226 (defun custom-set-face-update-spec (face display plist) 227 (defun custom-set-face-update-spec (face display plist)
227 "Customize the FACE for display types matching DISPLAY, merging 228 "Customize the FACE for display types matching DISPLAY, merging
228 in the new items from PLIST" 229 in the new items from PLIST"
229 (let ((spec (face-spec-update-all-matching (custom-face-get-spec face) 230 (let ((spec (face-spec-update-all-matching (custom-face-get-spec face)
230 display plist))) 231 display plist)))