[mcclim-cvs] CVS mcclim/Drei

[rstrandh]

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

Modified Files:
	core-commands.lisp lisp-syntax-commands.lisp 
Log Message:
Fixed two more instances where the value of *drei-instance* was
used directly whereas a view was required. 


--- /project/mcclim/cvsroot/mcclim/Drei/core-commands.lisp	2007/12/17 06:29:37	1.9
+++ /project/mcclim/cvsroot/mcclim/Drei/core-commands.lisp	2007/12/17 06:47:13	1.10
@@ -48,7 +48,7 @@
 
 (defun set-fill-column (column)
   (if (> column 1)
-      (setf (auto-fill-column *drei-instance*) column)
+      (setf (auto-fill-column (current-view)) column)
       (progn (beep) (display-message "Set Fill Column requires an explicit argument."))))
 
 (define-command (com-set-fill-column :name t :command-table fill-table)
--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-commands.lisp	2007/12/08 23:25:23	1.12
+++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-commands.lisp	2007/12/17 06:47:13	1.13
@@ -56,7 +56,7 @@
   "Fill paragraph at point. Will have no effect unless there is a
 string at point."
   (let* ((token (form-around (current-syntax) (offset (point))))
-         (fill-column (auto-fill-column *drei-instance*)))
+         (fill-column (auto-fill-column (current-view))))
     (when (form-string-p token)
       (with-accessors ((offset1 start-offset) 
                        (offset2 end-offset)) token