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

Modified Files: base.lisp lisp-syntax-commands.lisp Log Message: Fixed Indent Expression.

--- /project/mcclim/cvsroot/mcclim/Drei/base.lisp 2008/01/05 20:08:32 1.10 +++ /project/mcclim/cvsroot/mcclim/Drei/base.lisp 2008/01/14 09:14:47 1.11 @@ -117,7 +117,7 @@ (as-region (,mark-sym ,mark2-sym) (loop while (and (mark<= ,mark-sym ,mark2-sym) (not (end-of-buffer-p ,mark-sym))) - do + do (let ((,line-var (clone-mark ,mark-sym))) ,@body) (end-of-line ,mark-sym) --- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-commands.lisp 2007/12/19 11:02:02 1.14 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-commands.lisp 2008/01/14 09:14:48 1.15 @@ -71,7 +71,7 @@

(define-command (com-indent-expression :name t :command-table lisp-table) ((count 'integer :prompt "Number of expressions" :default 1)) - (let ((mark (point))) + (let ((mark (clone-mark (point)))) (if (plusp count) (loop repeat count do (forward-expression mark (current-syntax))) (loop repeat (- count) do (backward-expression mark (current-syntax))))