corrected bug with caret placement

ccw-ide · Jan 9, 2010 · 2d1a740 · 2d1a740
1 parent ce40099
commit 2d1a740
Showing 1 changed file with 12 additions and 8 deletions.
diff --git a/ccw.core/src/ccw/editors/antlrbased/PareditAutoEditStrategy.clj b/ccw.core/src/ccw/editors/antlrbased/PareditAutoEditStrategy.clj
@@ -20,12 +20,16 @@
 
 (defn -customizeDocumentCommand 
   [#^IAutoEditStrategy this, #^IDocument document, #^DocumentCommand command]
-  (when (.doit command)
-    (if (and (= 0 (.length command))
+  (when (and (.doit command)
+             (= 0 (.length command))
              (contains? *one-char-command* (.text command)))
-      (let [result (paredit (get *one-char-command* (.text command)) {:text (.get document) :offset (.offset command) :length 0})]
-        #_(println "result:" result)
-        (set! (.offset command) 0)
-        (set! (.length command) (.length (.get document)))
-        (set! (.text command) (:text result))
-        (set! (.caretOffset command) (:offset result))))))
+    (let [result (paredit (get *one-char-command* (.text command))
+                          {:text (.get document) 
+                           :offset (.offset command) 
+                           :length 0})]
+      (println "result:" result)
+      (set! (.offset command) 0)
+      (set! (.length command) (.length (.get document)))
+      (set! (.text command) (:text result))
+      (set! (.shiftsCaret command) false)
+      (set! (.caretOffset command) (:offset result)))))