[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv15305

Modified Files:
	lisp-syntax.lisp 
Log Message:
Made Lisp and Fundamental syntax handle case where the tab width is
zero (hello Null backend!)


--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2007/02/17 17:54:06	1.24
+++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2007/02/19 00:13:05	1.25
@@ -1796,9 +1796,10 @@
                             pane (first (aref cursor-positions 0)) 0))
                 ((#\Page #\Return #\Space) (stream-increment-cursor-position
                                             pane space-width 0))
-                (#\Tab (let ((x (stream-cursor-position pane)))
-                         (stream-increment-cursor-position
-                          pane (- tab-width (mod x tab-width)) 0))))
+                (#\Tab (when (plusp tab-width)
+                         (let ((x (stream-cursor-position pane)))
+                           (stream-increment-cursor-position
+                            pane (- tab-width (mod x tab-width)) 0)))))
            (incf start))))))
 
 (defgeneric display-parse-tree (parse-symbol stream drei syntax)