[Emacs-diffs] Changes to emacs/lisp/faces.el,v

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       07/12/31 15:01:10

Index: faces.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/faces.el,v
retrieving revision 1.388
retrieving revision 1.389
diff -u -b -r1.388 -r1.389
--- faces.el    30 Dec 2007 16:24:52 -0000      1.388
+++ faces.el    31 Dec 2007 15:01:10 -0000      1.389
@@ -357,8 +357,9 @@
 Normally the value describes the default attributes,
 but if you specify FRAME, the value describes the attributes
 of FACE on FRAME."
-  (mapcar (lambda (pair) (let ((attr (car pair)))
-                          (cons attr (face-attribute face attr frame))))
+  (mapcar (lambda (pair)
+           (let ((attr (car pair)))
+             (cons attr (face-attribute face attr (or frame t)))))
          face-attribute-name-alist))
 
 (defun face-attribute (face attribute &optional frame inherit)