Changeset 12264


Ignore:
Timestamp:
Jun 18, 2009, 7:11:21 AM (10 years ago)
Author:
rme
Message:

Revert the changes to HEMLOCK-EXT:SEND-STRING-TO-LISTENER made in
r12231, which caused READ-LINE, Y-OR-N-P, etc., not to work.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-listener.lisp

    r12237 r12264  
    609609                         :package-name package :pathname path))
    610610
     611;;; This is basically used to provide INPUT to the listener process, by
     612;;; writing to an fd which is connected to that process's standard
     613;;; input.
    611614(defun hemlock-ext:send-string-to-listener (listener-buffer string)
    612   (let* ((pathname (hi::buffer-pathname listener-buffer)))
    613     (ui-object-eval-selection *NSApp* (list nil pathname string))))
     615  (let* ((process (buffer-process listener-buffer)))
     616    (unless process
     617      (error "No listener process found for ~s" listener-buffer))
     618    (enqueue-listener-input (cocoa-listener-process-input-stream process) string)))
    614619
    615620
Note: See TracChangeset for help on using the changeset viewer.