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