Changeset 12321


Ignore:
Timestamp:
Jun 28, 2009, 9:56:50 AM (10 years ago)
Author:
gb
Message:

"Confirm Listener Input" - in the top listener input stream is in
"read-line" mode, send the input region without worrying about whether
or not it appears to contain complete lisp expressions.

[This is intended to allow things like:

? (read-line)
((((
"(((("
NIL
?
. There may be race conditions here.]

File:
1 edited

Legend:

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

    r12144 r12321  
    200200    (when input-region
    201201      (insert-character (current-point-for-insertion) #\NewLine)
    202       (when (balanced-expressions-in-region input-region)
    203         (let* ((string (region-to-string input-region))               )
     202      (when (or (input-stream-reading-line
     203                 (top-listener-input-stream))
     204                (balanced-expressions-in-region input-region))
     205        (let* ((string (region-to-string input-region)))
    204206          (push (cons r nil) (value input-regions))
    205207          (move-mark (value buffer-input-mark) (current-point))
Note: See TracChangeset for help on using the changeset viewer.