Changeset 132

Timestamp:

10/14/02 02:11:57 (21 years ago)

Author:

piso

Message:

depth()

File:

• trunk/j/src/org/armedbear/j/LispMode.java (modified) (2 diffs)

trunk/j/src/org/armedbear/j/LispMode.java

@@ -3 +3 @@
  *
  * Copyright (C) 1998-2002 Peter Graves
- * $Id: LispMode.java,v 1.4 2002-10-13 18:52:34 piso Exp $
+ * $Id: LispMode.java,v 1.5 2002-10-14 02:11:57 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -127 +127 @@
             buffer.renumber();
         Position start = findStartOfDefun(pos);
+        if (pos.equals(start))
+            return 0;
         LispSyntaxIterator it = new LispSyntaxIterator(start);
-        int depth = 0;
-        while (it.getPosition().isBefore(pos)) {
+        int depth = 1;
+        while (true) {
             char c = it.nextChar();
+            if (!it.getPosition().isBefore(pos))
+                break;
             if (c == '(')
                 ++depth;