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

[Marco Baringer]

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

Modified Files:
	slime.el 
Log Message:
(slime-inspector-label-face, slime-inspector-value-face,
slime-inspector-action-face, slime-inspector-type-face): These faces
now inherit from similar font-lock-<whatever> faces.
(slime-open-inspector): Use slime-inspector-value-face for values.

Date: Wed Sep 15 19:26:52 2004
Author: mbaringer

Index: slime/slime.el
diff -u slime/slime.el:1.399 slime/slime.el:1.400
--- slime/slime.el:1.399	Mon Sep 13 07:36:27 2004
+++ slime/slime.el	Wed Sep 15 19:26:52 2004
@@ -6437,22 +6437,22 @@
   :group 'slime-inspector)
 
 (defface slime-inspector-label-face
-  '((t (:bold t)))
+    '((t (:inherit font-lock-constant-face)))
   "Face for labels in the inspector."
   :group 'slime-inspector)
 
 (defface slime-inspector-value-face
-  '((t ()))
+    '((t (:inherit font-lock-builtin-face)))
   "Face for things which can themselves be inspected."
   :group 'slime-inspector)
 
 (defface slime-inspector-action-face
-  '((t (:italic t)))
+    '((t (:inherit font-lock-warning-face)))
   "Face for labels of inspector actions."
   :group 'slime-inspector)
 
 (defface slime-inspector-type-face
-  '((t ()))
+    '((t (:inherit font-lock-type-face)))
   "Face for type description in inspector."
   :group 'slime-inspector)
 
@@ -6506,7 +6506,7 @@
                          (:value
                           (destructuring-bind (string id) (cdr part)
                             (slime-propertize-region `(slime-part-number ,id)
-                              (insert (fontify label string)))))
+                              (insert (fontify value string)))))
                          (:action
                           (destructuring-bind (string id) (cdr part)
                             (slime-propertize-region `(slime-action-number ,id)
@@ -6516,6 +6516,8 @@
     t)))
 
 (defun slime-inspector-operate-on-point ()
+  "If point is on a value then recursivly call the inspcetor on
+  that value. If point is on an action then call that action."
   (interactive)
   (cond
     ((get-text-property (point) 'slime-part-number)