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