Changeset 6613

Timestamp:

May 25, 2007, 5:41:52 AM (18 years ago)

Author:

Gary Byers

Message:

Disable #$ONLCR on the pty.

Dim "Revert" for listeners.

File:

• branches/ide-1.0/ccl/examples/cocoa-listener.lisp (modified) (2 diffs)

branches/ide-1.0/ccl/examples/cocoa-listener.lisp

@@ -28 +28 @@
   ;; to the pty, it's critical that we make the pty non-blocking.
   ;; Has this been true for the last few years (native threads) ?
-  (fd-set-flag pty #$O_NONBLOCK)
+  ;(fd-set-flag pty #$O_NONBLOCK)
   (disable-tty-local-modes pty (logior #$ECHO #$ECHOCTL #$ISIG))
+  (disable-tty-output-modes pty #$ONLCR)  
   pty)
 
@@ -277 +278 @@
       (let* ((action (#/action item)))
         (cond
+          ((eql action (@selector #/revertDocumentToSaved:))
+           (values t nil))
           ((eql action (@selector #/interrupt:)) (values t t))
           ((eql action (@selector #/backtrace:))