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)