[climacs-cvs] CVS update: climacs/syntax.lisp

[Alastair Bridgewater]

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)))