Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv25376 Modified Files: syntax.lisp Log Message: Changed redisplay to not create output records for #\Space characters. Date: Tue Dec 28 23:41:15 2004 Author: abridgewater Index: climacs/syntax.lisp diff -u climacs/syntax.lisp:1.10 climacs/syntax.lisp:1.11 --- climacs/syntax.lisp:1.10 Mon Dec 27 18:43:08 2004 +++ climacs/syntax.lisp Tue Dec 28 23:41:14 2004 @@ -106,7 +106,8 @@ until (eql (buffer-object (buffer pane) scan) #\Newline) do (let ((obj (buffer-object (buffer pane) scan))) (cond ((eql obj #\Space) - (output-word (princ obj pane))) + (output-word) + (stream-increment-cursor-position pane space-width 0)) ((eql obj #\Tab) (output-word) (let ((x (stream-cursor-position pane)))