[Openmcl-cvs-notifications] r12428 - /trunk/source/cocoa-ide/hemlock/src/listener.lisp

[mikel at clozure.com]

Author: mikel
Date: Sat Jul 18 11:42:30 2009
New Revision: 12428

Log:
Fixed case where a form entered at the listener prompt that had the effect =
of a PRINC failed to insert a newline after the entered form and before the=
 output. See Trac #557.

Modified:
    trunk/source/cocoa-ide/hemlock/src/listener.lisp

Modified: trunk/source/cocoa-ide/hemlock/src/listener.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/hemlock/src/listener.lisp (original)
+++ trunk/source/cocoa-ide/hemlock/src/listener.lisp Sat Jul 18 11:42:30 20=
09
@@ -241,6 +241,7 @@
                            (string/=3D string (region-to-string (ring-ref =
ring 0))))
                        (> (length string) (value minimum-interactive-input=
-length)))
               (ring-push (copy-region input-region) ring))
+            (insert-character (region-end input-region) #\NewLine)
             (push (cons r nil) (value input-regions))
             (move-mark (value buffer-input-mark) (current-point))
             (append-font-regions (current-buffer))