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