[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv21088

Modified Files:
	c-syntax.lisp 
Log Message:
As with Java-syntax, remove evil indentation-corrupting function
redefinition.


--- /project/climacs/cvsroot/climacs/c-syntax.lisp	2007/05/01 20:54:53	1.2
+++ /project/climacs/cvsroot/climacs/c-syntax.lisp	2007/05/08 10:23:09	1.3
@@ -1329,27 +1329,13 @@
 	  do (incf (offset mark2))
           finally (return column))))
 
-(defun line-indentation (mark tab-width syntax)
-  "Return the column of the first non-whitespace object, or nil."
-  (setf mark (clone-mark mark))
-  (beginning-of-line mark)
-  (loop until (end-of-line-p mark)
-	while (whitespacep syntax (object-after mark))
-	with column = 0
-	if (eql (object-after mark) #\Tab)
-	  do (incf column (- tab-width (mod column tab-width)))
-	else
-	  do (incf column)
-	do (forward-object mark)
-	finally (return (if (end-of-line-p mark) nil column))))
-
 (defmethod syntax-line-indentation (mark tab-width (syntax c-syntax))
   (setf mark (clone-mark mark))
-  (let ((this-indentation (line-indentation mark tab-width syntax)))
+  (let ((this-indentation (line-indentation mark tab-width)))
     (beginning-of-line mark)
     (loop until (beginning-of-buffer-p mark)
 	  do (previous-line mark 0)
-	  when (line-indentation mark tab-width syntax)
+	  when (line-indentation mark tab-width)
 	    return it
 	  finally (return this-indentation))))