[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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)))
                 , at 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))))