Mouse clicks in visual mode should escape

takikawa · May 6, 2016 · 4a8a065 · 4a8a065
1 parent 1bfd215
commit 4a8a065
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/private/text.rkt b/private/text.rkt
@@ -217,6 +217,10 @@
         ;; FIXME: in gvim a mouse drag in insert mode retains
         ;;        insert mode while doing visual mode too
         (cond [(eq? type 'left-down)
+               ;; clicks in visual mode escape the mode
+               (when (or (eq? mode 'visual)
+                         (eq? mode 'visual-line))
+                 (set-mode! 'command))
                (set-vim-position! pos)
                (set-position pos)
                (do-caret-update)]