Changeset 4062


Ignore:
Timestamp:
09/25/03 18:23:06 (19 years ago)
Author:
piso
Message:

getCorrectIndentation(): HANDLER-CASE.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/j/LispMode.java

    r3606 r4062  
    33 *
    44 * Copyright (C) 1998-2003 Peter Graves
    5  * $Id: LispMode.java,v 1.55 2003-09-08 02:15:28 piso Exp $
     5 * $Id: LispMode.java,v 1.56 2003-09-25 18:23:06 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    227227                        }
    228228                    }
     229                }
     230                return buffer.getCol(pos) + indentSize;
     231            }
     232            if (token.equals("handler-case")) {
     233                Position p1 = forwardSexp(posFirst);
     234                if (p1 != null) {
     235                    // Skip whitespace to get to opening '(' of form to be
     236                    // evaluated.
     237                    p1.skipWhitespace();
     238                    // Make sure line numbers are right for isBefore().
     239                    if (buffer.needsRenumbering())
     240                        buffer.renumber();
     241                    if (here.isBefore(p1))
     242                        return buffer.getCol(pos) + indentSize * 2;
    229243                }
    230244                return buffer.getCol(pos) + indentSize;
Note: See TracChangeset for help on using the changeset viewer.