Commit 16687ebf authored by Pontus Freyhult's avatar Pontus Freyhult
Browse files

Make lyskom-face-background and lyskom-face-foreground always return a

string or nil (not a color-specifier).
parent 9cdf2438
2004-10-26 Pontus Freyhult <pont@soua.net>
Fix XEmacs problems with kom-prioritize:
* compatibility.el (lyskom-face-background): Changed to a wrapper
function that returns a string (not a color-specifier) or nil.
(lyskom-face-foreground): Dito.
2004-10-25 Pontus Freyhult <pont@soua.net>
* review.el (kom-review-noconversion): Use nil for
......
......@@ -300,8 +300,26 @@ KEYS should be a string in the format used for saving keyboard macros
(lyskom-function-alias frame-property (frame property &optional default)
(or (cdr (assq property (frame-parameters frame))) default))
(lyskom-function-alias face-background (face) nil)
(lyskom-function-alias face-foreground (face) nil)
(defun lyskom-face-background (face)
"Call face-background and return a string with the name or nil."
(let ((f (face-background face nil)))
(cond ((stringp f) f)
((and (fboundp 'color-specifier-p)
(color-specifier-p f))
(color-name f)))))
(defun lyskom-face-foreground (face)
"Call face-foreground and return a string with the name or nil."
(let ((f (face-foreground face nil)))
(cond ((stringp f) f)
((and (fboundp 'color-specifier-p)
(color-specifier-p f))
(color-name f)))))
(lyskom-function-alias find-face (face) (and (facep face) face))
(defun lyskom-make-face (name temporary)
......
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