[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	drei.lisp 
Log Message:
Update the syntax if it is changed by `with-drei-options'.


--- /project/mcclim/cvsroot/mcclim/Drei/drei.lisp	2006/12/09 23:55:39	1.12
+++ /project/mcclim/cvsroot/mcclim/Drei/drei.lisp	2007/01/14 08:22:27	1.13
@@ -855,16 +855,18 @@
       (when syntax-provided-p
         (push (list (unless keep-syntax
                       `(old-syntax (syntax (buffer ,drei))))
-                    `(setf (syntax (buffer ,drei))
-                           (etypecase ,syntax
-                             (string (make-instance (or (syntax-from-name ,syntax)
-                                                        (error "No such syntax: ~A" ,syntax))
-                                                    :buffer (buffer ,drei)))
-                             (symbol (make-instance ,syntax
-                                                    :buffer (buffer ,drei)))
-                             (syntax ,syntax)))
+                    `(progn (setf (syntax (buffer ,drei))
+                                  (etypecase ,syntax
+                                    (string (make-instance (or (syntax-from-name ,syntax)
+                                                               (error "No such syntax: ~A" ,syntax))
+                                                           :buffer (buffer ,drei)))
+                                    (symbol (make-instance ,syntax
+                                                           :buffer (buffer ,drei)))
+                                    (syntax ,syntax)))
+                            (update-syntax (buffer ,drei) (syntax (buffer ,drei))))
                     (unless keep-syntax
-                      `(setf (syntax (buffer ,drei)) old-syntax)))
+                      `(progn (setf (syntax (buffer ,drei)) old-syntax)
+                              (update-syntax (buffer ,drei) (syntax (buffer ,drei))))))
               triple-list))
       `(progn
          (check-type ,drei drei)