Changeset 8491


Ignore:
Timestamp:
02/06/05 13:27:17 (17 years ago)
Author:
piso
Message:

getCorrectIndentation(): added support for MULTIPLE-VALUE-BIND.

File:
1 edited

Legend:

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

    r8443 r8491  
    33 *
    44 * Copyright (C) 1998-2005 Peter Graves
    5  * $Id: LispMode.java,v 1.85 2005-02-01 14:22:30 piso Exp $
     5 * $Id: LispMode.java,v 1.86 2005-02-06 13:27:17 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    277277                            return buffer.getCol(p1);
    278278                        }
     279                    }
     280                }
     281                return buffer.getCol(pos) + indentSize;
     282            }
     283            if (token.equals("multiple-value-bind")) {
     284                Position p1 = forwardSexp(posFirst);
     285                if (p1 != null) {
     286                    // Skip whitespace to get to opening '(' of variable list.
     287                    p1.skipWhitespace();
     288                    // Skip past variable list.
     289                    Position p2 = forwardSexp(p1);
     290                    if (p2 != null) {
     291                        // Skip past values form.
     292                        p2 = forwardSexp(p2);
     293                        // Make sure line numbers are right for isBefore().
     294                        if (buffer.needsRenumbering())
     295                            buffer.renumber();
     296                        if (p2 != null && here.isBefore(p2))
     297                            return buffer.getCol(pos) + indentSize * 2;
    279298                    }
    280299                }
Note: See TracChangeset for help on using the changeset viewer.