[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	core.lisp 
Log Message:
Forgot to commit this part of my tabify-changes.


--- /project/mcclim/cvsroot/mcclim/Drei/core.lisp	2007/12/10 21:25:12	1.10
+++ /project/mcclim/cvsroot/mcclim/Drei/core.lisp	2007/12/19 10:22:16	1.11
@@ -69,7 +69,7 @@
 
 (defun indent-current-line (view point)
   (indent-line point (proper-line-indentation view point)
-               (and (indent-tabs-mode (buffer view))
+               (and (use-tabs view)
                     (tab-space-count view))))
 
 (defun insert-pair (mark syntax &optional (count 0) (open #\() (close #\)))
@@ -178,7 +178,8 @@
 function."
   (do-buffer-region-lines (line mark1 mark2)
     (let ((indentation (proper-line-indentation view line)))
-      (indent-line line indentation (tab-space-count view)))))
+      (indent-line line indentation (and (use-tabs view)
+                                         (tab-space-count view))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;