[slime-cvs] CVS update: slime/slime.el

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv23460

Modified Files:
	slime.el 
Log Message:
slime-highlight-face: Use the :inherit attribute if possible.
(slime-face-inheritance-possible-p): New function.
Date: Sat Nov  8 13:58:06 2003
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.84 slime/slime.el:1.85
--- slime/slime.el:1.84	Sat Nov  8 11:51:29 2003
+++ slime/slime.el	Sat Nov  8 13:58:06 2003
@@ -162,12 +162,18 @@
   "Face for notes from the compiler."
   :group 'slime)
 
+(defun slime-face-inheritance-possible-p ()
+  (assq :inherit custom-face-attributes))
+
 (defface slime-highlight-face
-  `((((class color) (background light))
-     (:background "darkseagreen2"))
-    (((class color) (background dark))
-     (:background "darkolivegreen"))
-    (t (:inverse-video t)))
+  (cond ((slime-face-inheritance-possible-p)
+         '((t (:inherit highlight :underline nil))))
+        (t 
+         '((((class color) (background light))
+            (:background "darkseagreen2"))
+           (((class color) (background dark))
+            (:background "darkolivegreen"))
+           (t (:inverse-video t)))))
   "Face for compiler notes while selected."
   :group 'slime)
 
@@ -177,7 +183,7 @@
   :group 'slime)
 
 (defface slime-repl-input-face
-  `((t (:inherit bold :bold t)))
+  '((t (:bold t)))
   "Face for previous input in the SLIME REPL."
   :group 'slime)