[Openmcl-cvs-notifications] r11967 - /trunk/source/cocoa-ide/cocoa-editor.lisp

[gb at clozure.com]

Author: gb
Date: Sun Apr 26 20:00:09 2009
New Revision: 11967

Log:
In #/selectionRangeForProposedRange:granularity:, ignore the proposed
range on a double-click (ticket:150).

Modified:
    trunk/source/cocoa-ide/cocoa-editor.lisp

Modified: trunk/source/cocoa-ide/cocoa-editor.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/cocoa-ide/cocoa-editor.lisp (original)
+++ trunk/source/cocoa-ide/cocoa-editor.lisp Sun Apr 26 20:00:09 2009
@@ -1376,7 +1376,7 @@
              (when (and buffer (string=3D (hi::buffer-major-mode buffer) "=
Lisp"))
                (let* ((hi::*current-buffer* buffer))
                  (hi::with-mark ((m1 (hi::buffer-point buffer)))
-                   (move-hemlock-mark-to-absolute-position m1 cache index)
+                   (setq index (hi:mark-absolute-position m1))
                    (hemlock::pre-command-parse-check m1)
                    (when (hemlock::valid-spot m1 nil)
                      (cond ((eql (hi::next-character m1) #\()