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

[Robert Strandh]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv25524

Modified Files:
	lisp-syntax.lisp 
Log Message:
Patch to allow the viewing of files containing #\Page and #\Return
characters.
(thanks to John Q Splittist)


Date: Wed Jul 20 09:16:37 2005
Author: rstrandh

Index: climacs/lisp-syntax.lisp
diff -u climacs/lisp-syntax.lisp:1.13 climacs/lisp-syntax.lisp:1.14
--- climacs/lisp-syntax.lisp:1.13	Wed Jul 13 07:25:44 2005
+++ climacs/lisp-syntax.lisp	Wed Jul 20 09:16:37 2005
@@ -849,7 +849,7 @@
 			     (multiple-value-bind (x y) (stream-cursor-position pane)
 			       (declare (ignore x))
 			       y)))
-	    (#\Space (stream-increment-cursor-position
+	    ((#\Page #\Return #\Space) (stream-increment-cursor-position
 		      pane space-width 0))
 	    (#\Tab (let ((x (stream-cursor-position pane)))
 		     (stream-increment-cursor-position