Changeset 9343 for release

Timestamp:

May 2, 2008, 4:11:48 AM (17 years ago)

Author:

Gary Byers

Message:

change from trunk

File:

• release/1.2/source/cocoa-ide/cocoa-editor.lisp (modified) (1 diff)

release/1.2/source/cocoa-ide/cocoa-editor.lisp

@@ -1003 +1003 @@
      color
      (flag :<BOOL>))
-  (unless (#/editingInProgress (#/textStorage self))
+  (unless (or (not (eq ccl::*current-process* ccl::*initial-process*))
+              (#/editingInProgress (#/textStorage self)))
     (unless (eql #$NO (text-view-blink-enabled self))
       (let* ((layout (#/layoutManager self))