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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-inspector-fontify): Function to insert a string in a particular
inspector face. Replaces macro-code-generation function
`slime-inspector-expand-fontify'.

Date: Thu Jan  8 11:47:53 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.165 slime/slime.el:1.166
--- slime/slime.el:1.165	Wed Jan  7 13:09:50 2004
+++ slime/slime.el	Thu Jan  8 11:47:53 2004
@@ -4422,9 +4422,8 @@
 	(slime-inspector-mode)
 	(current-buffer))))
 
-(defun slime-inspector-expand-fontify (face string)
-  `(slime-add-face ',(intern (format "slime-inspector-%s-face" face))
-                   ,string))
+(defun slime-inspector-fontify (face string)
+  (slime-add-face (intern (format "slime-inspector-%s-face" face)) string))
 
 (defun slime-open-inspector (inspected-parts &optional point)
   (with-current-buffer (slime-inspector-buffer)
@@ -4432,7 +4431,7 @@
       (erase-buffer)
       (destructuring-bind (&key text type primitive-type parts) inspected-parts
         (macrolet ((fontify (face string)
-                            (slime-inspector-expand-fontify face string)))
+                            `(slime-inspector-fontify ',face ,string)))
           (insert (fontify topline text))
           (while (eq (char-before) ?\n) (backward-delete-char 1))
           (insert "\n"