# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1199113270 0
# Node ID a6788888f377ea0142649bc270aab314151ffa9c
# Parent  38cad849184d5806e52fb29e9be7573d5c251283
(face-all-attributes): If FRAME is nil, return defaults.

diff -r 38cad849184d -r a6788888f377 lisp/faces.el
--- a/lisp/faces.el	Mon Dec 31 10:22:52 2007 +0000
+++ b/lisp/faces.el	Mon Dec 31 15:01:10 2007 +0000
@@ -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)