Changeset 4610

Timestamp:

11/02/03 17:20:42 (18 years ago)

Author:

piso

Message:

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

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-2003 Peter Graves
- * $Id: LispMode.java,v 1.62 2003-10-21 01:01:34 piso Exp $
+ * $Id: LispMode.java,v 1.63 2003-11-02 17:20:42 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -835 +835 @@
             if (editor.getDot() == null)
                 return;
-            if (Character.isWhitespace(editor.getDotChar())) {
+            char c = editor.getDotChar();
+            if (c == ')' || Character.isWhitespace(c)) {
                 final Line dotLine = editor.getDotLine();
                 final String text = dotLine.getText();
                 for (int offset = editor.getDotOffset(); offset-- > 0;) {
-                    char c = text.charAt(offset);
+                    c = text.charAt(offset);
                     if (mode.isIdentifierPart(c)) {
                         s = mode.getIdentifier(dotLine, offset);