[Lisppaste-cvs] CVS update: lisppaste2/coloring-types.lisp

[Brian Mastenbrook]

Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/home/bmastenbrook/lisppaste2

Modified Files:
	coloring-types.lisp 
Log Message:
Only colorize in parens in lisp mode

Date: Tue Jun 15 06:52:52 2004
Author: bmastenbrook

Index: lisppaste2/coloring-types.lisp
diff -u lisppaste2/coloring-types.lisp:1.6 lisppaste2/coloring-types.lisp:1.7
--- lisppaste2/coloring-types.lisp:1.6	Fri Jun 11 07:34:34 2004
+++ lisppaste2/coloring-types.lisp	Tue Jun 15 06:52:52 2004
@@ -27,7 +27,7 @@
                   :single-escaped :in-list :syntax-error)
   :default-mode :normal
   :transitions
-  (((:normal :in-list)
+  (((:in-list)
     ((or
       (scan-any *symbol-characters*)
       (and (scan #\.) (scan-any *symbol-characters*))
@@ -56,6 +56,10 @@
     ((scan "#|")
      (set-mode :multiline
                :until (scan "|#")))
+    ((scan #\()
+     (set-mode :in-list
+               :until (scan #\)))))
+   (:normal
     ((scan #\()
      (set-mode :in-list
                :until (scan #\)))))