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

[gz at clozure.com]

Author: gz
Date: Mon Jun  1 09:20:28 2009
New Revision: 12181

Log:
Fix comment

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 Mon Jun  1 09:20:28 2009
@@ -923,7 +923,7 @@
 	 (quote-p (and view (hi::hemlock-view-quote-next-p view))))
     #+debug (log-debug "~&quote-p ~s event ~s" quote-p event)
     (cond ((or (null view) (#/hasMarkedText self) (eq quote-p :native))
-	   (when (and quote-p (not (eq quote-p :native)))	;; Huh?
+	   (when (and quote-p (not (eq quote-p :native)))	;; see ticket:461
 	     (setf (hi::hemlock-view-quote-next-p view) nil))
 	   (call-next-method event))
 	  ((not (eventqueue-abort-pending-p self))