Changeset 4610


Ignore:
Timestamp:
11/02/03 17:20:42 (18 years ago)
Author:
piso
Message:

hyperspec(): move left if caret is on ')'.

File:
1 edited

Legend:

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

    r4476 r4610  
    33 *
    44 * Copyright (C) 1998-2003 Peter Graves
    5  * $Id: LispMode.java,v 1.62 2003-10-21 01:01:34 piso Exp $
     5 * $Id: LispMode.java,v 1.63 2003-11-02 17:20:42 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    835835            if (editor.getDot() == null)
    836836                return;
    837             if (Character.isWhitespace(editor.getDotChar())) {
     837            char c = editor.getDotChar();
     838            if (c == ')' || Character.isWhitespace(c)) {
    838839                final Line dotLine = editor.getDotLine();
    839840                final String text = dotLine.getText();
    840841                for (int offset = editor.getDotOffset(); offset-- > 0;) {
    841                     char c = text.charAt(offset);
     842                    c = text.charAt(offset);
    842843                    if (mode.isIdentifierPart(c)) {
    843844                        s = mode.getIdentifier(dotLine, offset);
Note: See TracChangeset for help on using the changeset viewer.