From 9b8cc90c399e436c15c7b427c964bef20a59d09d Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 29 Nov 2000 19:21:17 +0000 Subject: (face-foreground, face-background, face-stipple): Return nil if attribute is unspecified, for backward compatibility. --- lisp/faces.el | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) (limited to 'lisp/faces.el') diff --git a/lisp/faces.el b/lisp/faces.el index bcf2b8ffdaf..e8999594006 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -357,7 +357,10 @@ If FRAME is omitted or nil, use the selected frame." 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 FRAME is omitted or nil, use the selected frame." 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 FRAME is omitted or nil, use the selected frame." 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) -- cgit v1.2.1