[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
Reduce dependecy on pre-defined faces.

* slime.el (slime-apropos-symbol, slime-apropos-label): New faces.
(slime-print-apropos): Use them.

Reported by: Daimrod <daimrod at gmail.com>

--- /project/slime/cvsroot/slime/ChangeLog	2012/05/12 06:34:47	1.2340
+++ /project/slime/cvsroot/slime/ChangeLog	2012/05/21 08:08:07	1.2341
@@ -1,3 +1,12 @@
+2012-05-21  Helmut Eller  <heller at common-lisp.net>
+
+	Reduce dependecy on pre-defined faces.
+
+	* slime.el (slime-apropos-symbol, slime-apropos-label): New faces.
+	(slime-print-apropos): Use them.
+
+	Reported by: Daimrod <daimrod at gmail.com>
+
 2012-05-12  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-sbcl.lisp (stream-force-output): Undo last few changes.
--- /project/slime/cvsroot/slime/slime.el	2012/05/11 18:08:45	1.1407
+++ /project/slime/cvsroot/slime/slime.el	2012/05/21 08:08:07	1.1408
@@ -4561,6 +4561,16 @@
     (error "No symbol given"))
   (slime-eval-describe `(swank:describe-function ,symbol-name)))
 
+(defface slime-apropos-symbol
+  '((t (:inherit bold)))
+  "Face for the symbol name in Apropos output."
+  :group 'slime)
+
+(defface slime-apropos-label
+  '((t (:inherit italic)))
+  "Face for label (`Function', `Variable' ...) in Apropos output."
+  :group 'slime)
+
 (defun slime-apropos-summary (string case-sensitive-p package only-external-p)
   "Return a short description for the performed apropos search."
   (concat (if case-sensitive-p "Case-sensitive " "")
@@ -4621,7 +4631,7 @@
   (dolist (plist plists)
     (let ((designator (plist-get plist :designator)))
       (assert designator)
-      (slime-insert-propertized `(face ,apropos-symbol-face) designator))
+      (slime-insert-propertized `(face slime-apropos-symbol) designator))
     (terpri)
     (loop for (prop namespace)
           in '((:variable "Variable")
@@ -4642,7 +4652,7 @@
                 (start (point)))
             (when value
               (princ "  ")
-              (slime-insert-propertized `(face ,apropos-label-face) namespace)
+              (slime-insert-propertized `(face slime-apropos-label) namespace)
               (princ ": ")
               (princ (etypecase value
                        (string value)