[climacs-cvs] CVS update: climacs/lisp-syntax.lisp

[Robert Strandh]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv4197

Modified Files:
	lisp-syntax.lisp 
Log Message:
prettified keyword symbols.

Date: Mon May 30 15:47:21 2005
Author: rstrandh

Index: climacs/lisp-syntax.lisp
diff -u climacs/lisp-syntax.lisp:1.3 climacs/lisp-syntax.lisp:1.4
--- climacs/lisp-syntax.lisp:1.3	Mon May 30 11:33:39 2005
+++ climacs/lisp-syntax.lisp	Mon May 30 15:47:21 2005
@@ -806,6 +806,13 @@
   (with-drawing-options (pane :ink +red+)
     (call-next-method)))
 
+(defmethod display-parse-tree ((parse-symbol token-lexeme) (syntax lisp-syntax) pane)
+  (if (and (> (end-offset parse-symbol) (start-offset parse-symbol))
+	   (eql (buffer-object (buffer syntax) (start-offset parse-symbol)) #\:))
+      (with-drawing-options (pane :ink +dark-violet+)
+	(call-next-method))
+      (call-next-method)))
+
 (defmethod display-parse-tree ((parser-symbol lisp-lexeme) (syntax lisp-syntax) pane)
   (flet ((cache-test (t1 t2)
 	   (and (eq t1 t2)