[Openmcl-cvs-notifications] r13064 - /trunk/source/contrib/foy/syntax-styling/syntax-styling-1.lisp

[gfoy at clozure.com]

Author: gfoy
Date: Tue Oct 20 19:31:47 2009
New Revision: 13064

Log:
Accomodate anticipatory-symbol-complete.lisp

Modified:
    trunk/source/contrib/foy/syntax-styling/syntax-styling-1.lisp

Modified: trunk/source/contrib/foy/syntax-styling/syntax-styling-1.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/contrib/foy/syntax-styling/syntax-styling-1.lisp (original)
+++ trunk/source/contrib/foy/syntax-styling/syntax-styling-1.lisp Tue Oct 2=
0 19:31:47 2009
@@ -774,6 +774,8 @@
                        ;; *** define constants
                        (=3D code 13) ; #\newline
                        (=3D code 8)  ; #\delete, #\backspace
+                       ; #\tab, to accommodate anticipatory-symbol-complete
+                       (=3D code 9)
                        (=3D code 10) ; $\linefeed
                        (=3D code 127)) ; #\del
                #+sax-debug (when *char-printable-p-debug* (debug-out "~%pr=
intable1"))