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

Modified Files: input-editor.lisp Log Message: Make the accept methods for command-or-form work better with things like Structedit.

--- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/01/30 21:30:02 1.29 +++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/01/30 21:41:11 1.30 @@ -783,6 +783,28 @@ ;;; ;;; Presentation type specialization.

+;;; When starting out with reading `command-or-form', we use Lisp +;;; syntax, so things like Structedit works. If it turns out to be a +;;; command, switch back to Fundamental. + +(define-presentation-method accept :around + ((type command-or-form) + (stream drei-input-editing-mixin) + view &key) + (with-drei-options ((drei-instance stream) + :syntax "Lisp" + :keep-syntax nil) + (call-next-method))) + +(define-presentation-method accept :around + ((type command) + (stream drei-input-editing-mixin) + view &key) + (with-drei-options ((drei-instance stream) + :syntax "Fundamental" + :keep-syntax nil) + (call-next-method))) + (define-presentation-method accept :around ((type expression) (stream drei-input-editing-mixin)