[closure-cvs] CVS closure/src/renderer

[dlichteblau]

Update of /project/closure/cvsroot/closure/src/renderer
In directory clnet:/tmp/cvs-serv25374/src/renderer

Modified Files:
	renderer2.lisp 
Log Message:
Patch by Christophe Rhodes on closure-devel <87ejk2sngi.fsf at cantab.net>


--- /project/closure/cvsroot/closure/src/renderer/renderer2.lisp	2007/01/05 23:10:33	1.19
+++ /project/closure/cvsroot/closure/src/renderer/renderer2.lisp	2007/07/01 12:16:44	1.20
@@ -4,7 +4,7 @@
 ;;;   Created: somewhen late 2002
 ;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
 ;;;   License: MIT style (see below)
-;;;       $Id: renderer2.lisp,v 1.19 2007/01/05 23:10:33 emarsden Exp $
+;;;       $Id: renderer2.lisp,v 1.20 2007/07/01 12:16:44 dlichteblau Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1997-2003 by Gilbert Baumann
 
@@ -1196,7 +1196,7 @@
 (defun format-block (item x1 x2 ss before-markers #||# pos-vertical-margin neg-vertical-margin yy)
   (let (res)
     (setf (block-box-output-record item)
-          (clim:with-new-output-record (clim-user::*pane*) foo
+          (clim:with-new-output-record (clim-user::*pane*) #+nil foo
               (setf res
                     (multiple-value-list
                         (case (cooked-style-display (block-box-style item))
@@ -4983,6 +4983,9 @@
 
 
 ;; $Log: renderer2.lisp,v $
+;; Revision 1.20  2007/07/01 12:16:44  dlichteblau
+;; Patch by Christophe Rhodes on closure-devel <87ejk2sngi.fsf at cantab.net>
+;;
 ;; Revision 1.19  2007/01/05 23:10:33  emarsden
 ;; Fix rendering of preformatted content.
 ;;