Changeset 6607

Timestamp:

May 25, 2007, 5:05:30 AM (18 years ago)

Author:

Gary Byers

Message:

INSERT-STRING is simpler if no start/end args, so hair up (less important)
callers.

File:

• branches/ide-1.0/ccl/hemlock/src/streams.lisp (modified) (2 diffs)

branches/ide-1.0/ccl/hemlock/src/streams.lisp

@@ -95 +95 @@
 (defun hemlock-output-unbuffered-sout (stream string start end)
   (with-left-inserting-mark (mark (hemlock-output-stream-mark stream))
-    (insert-string mark string start end)
-    ))
+    (unless (and (eql start 0)
+                 (eql end (length string)))
+      (setq string (subseq string start end)))
+    (insert-string mark string)))
     
 
@@ -112 +114 @@
   (hemlock-output-unbuffered-sout stream string start end))
 
-#+NIL
-(defmethod excl:stream-line-length ((stream hemlock-output-stream))
-  (let* ((buffer (line-buffer (mark-line (hemlock-output-stream-mark stream)))))
-       (when buffer
-         (do ((w (buffer-windows buffer) (cdr w))
-              (min most-positive-fixnum (min (window-width (car w)) min)))
-             ((null w)
-              (if (/= min most-positive-fixnum) min))))))
 
 (defmethod stream-finish-output ((stream hemlock-output-stream)))