[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv1491/Drei

Modified Files:
	lisp-syntax.lisp 
Log Message:
Support :POSSIBILITY-PRINTER for COMPLETE-INPUT.


--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2008/01/22 23:00:04	1.71
+++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2008/01/30 23:24:05	1.72
@@ -2613,8 +2613,9 @@
   (with-minibuffer-stream (minibuffer)
     (let ((*print-escape* nil))
       (princ condition minibuffer)))
-  (setf (offset (point drei))
-        (start-offset (form condition))))
+  (when (point-mark-view-p (view drei))
+    (setf (offset (point (view drei)))
+          (start-offset (form condition)))))
 
 ;;; Handling labels (#n= and #n#) takes a fair bit of machinery, most
 ;;; of which is located here. We follow an approach similar to that