Mercurial > emacs

comparison lisp/faces.el @ 87502:a6788888f377

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(face-all-attributes): If FRAME is nil, return defaults.
author Richard M. Stallman <rms@gnu.org>
date Mon, 31 Dec 2007 15:01:10 +0000
parents 26eb0118cbc6
children 6a0c500ca3a9
comparison
equal deleted inserted replaced
87501:38cad849184d 87502:a6788888f377
355 "Return an alist stating the attributes of FACE. 355 "Return an alist stating the attributes of FACE.
356 Each element of the result has the form (ATTR-NAME . ATTR-VALUE). 356 Each element of the result has the form (ATTR-NAME . ATTR-VALUE).
357 Normally the value describes the default attributes, 357 Normally the value describes the default attributes,
358 but if you specify FRAME, the value describes the attributes 358 but if you specify FRAME, the value describes the attributes
359 of FACE on FRAME." 359 of FACE on FRAME."
360 (mapcar (lambda (pair) (let ((attr (car pair))) 360 (mapcar (lambda (pair)
361 (cons attr (face-attribute face attr frame)))) 361 (let ((attr (car pair)))
362 (cons attr (face-attribute face attr (or frame t)))))
362 face-attribute-name-alist)) 363 face-attribute-name-alist))
363 364
364 (defun face-attribute (face attribute &optional frame inherit) 365 (defun face-attribute (face attribute &optional frame inherit)
365 "Return the value of FACE's ATTRIBUTE on FRAME. 366 "Return the value of FACE's ATTRIBUTE on FRAME.
366 If the optional argument FRAME is given, report on face FACE in that frame. 367 If the optional argument FRAME is given, report on face FACE in that frame.