Commit e3fa42c2 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(face-foreground, face-background, face-stipple):

Return nil if attribute is unspecified, for backward
compatibility.
parent 1c14ba45
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment