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)