changeset 34018:a442998dd573

(face-foreground, face-background, face-stipple): Return nil if attribute is unspecified, for backward compatibility.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 29 Nov 2000 19:21:17 +0000
parents 8cf5499796cc
children 3d6f9638e8e5
files lisp/faces.el
diffstat 1 files changed, 12 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Wed Nov 29 19:14:47 2000 +0000
+++ b/lisp/faces.el	Wed Nov 29 19:21:17 2000 +0000
@@ -357,7 +357,10 @@
 If the optional argument FRAME is given, report on face FACE in that frame.
 If FRAME is t, report on the defaults for face FACE (for new frames).
 If FRAME is omitted or nil, use the selected frame."
-  (internal-get-lisp-face-attribute face :foreground frame))
+  (let ((value (internal-get-lisp-face-attribute face :foreground frame)))
+    (if (eq value 'unspecified)
+	nil 
+      value)))
 
 
 (defun face-background (face &optional frame)
@@ -365,7 +368,10 @@
 If the optional argument FRAME is given, report on face FACE in that frame.
 If FRAME is t, report on the defaults for face FACE (for new frames).
 If FRAME is omitted or nil, use the selected frame."
-  (internal-get-lisp-face-attribute face :background frame))
+  (let ((value (internal-get-lisp-face-attribute face :background frame)))
+    (if (eq value 'unspecified)
+	nil
+      value)))
 
 
 (defun face-stipple (face &optional frame)
@@ -373,7 +379,10 @@
 If the optional argument FRAME is given, report on face FACE in that frame.
 If FRAME is t, report on the defaults for face FACE (for new frames).
 If FRAME is omitted or nil, use the selected frame."
-  (internal-get-lisp-face-attribute face :stipple frame))
+  (let ((value (internal-get-lisp-face-attribute face :stipple frame)))
+    (if (eq value 'unspecified)
+	nil
+      value)))
 
 
 (defalias 'face-background-pixmap 'face-stipple)