Index: /branches/ide-1.0/ccl/hemlock/src/linimage.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/linimage.lisp	(revision 6605)
+++ /branches/ide-1.0/ccl/hemlock/src/linimage.lisp	(revision 6606)
@@ -289,48 +289,4 @@
 			    underhang string-get-rep)))))
 
-
-;;; compute-buffered-line-image  --  Internal
-;;;
-;;;    Compute the line image for a "Buffered" line, that is, one whose 
-;;; chars have not been consed yet.
-
-(defun compute-buffered-line-image (line start dis-line xpos width)
-  (declare (fixnum start width) (type (or fixnum null) xpos))
-  (do* ((index start)
-	(line-chars (line-%chars line))
-	(end (line-buffered-p line))
-	(dest (dis-line-chars dis-line))
-	(losing 0)
-	underhang string)
-       (())
-    (declare (fixnum index end)
-	     (type (or fixnum null) losing)
-	     (simple-string dest))
-    (cond
-     (underhang
-      (update-and-punt dis-line width string underhang index))
-     ((null xpos)
-      (update-and-punt dis-line width nil 0 index))
-     ((= index end)
-      (update-and-punt dis-line xpos nil nil index)))
-    (setq losing (%fcwa line-chars index end losing-char))
-    (when (null losing)
-      (display-some-chars line-chars index end dest xpos width t)
-      (if (or xpos (= index end))
-	  (update-and-punt dis-line xpos nil nil index)
-	  (update-and-punt dis-line width nil 0 index)))
-    (display-some-chars line-chars index losing dest xpos width nil)
-    (cond
-     ;; Did we wrap?
-     ((null xpos)
-      (update-and-punt dis-line width nil 0 index))
-     ;; Are we about to cause the line to wrap? If so, wrap before
-     ;; it's too late.
-     ((= xpos width)
-      (setf (char dest (1- width)) *line-wrap-char*)
-      (update-and-punt dis-line width nil 0 index))
-     (t
-      (display-losing-chars line-chars index end dest xpos width string
-			    underhang u-vec-get-rep)))))
 
 
@@ -515,12 +471,8 @@
        ((eq line *open-line*)
 	(compute-cached-line-image offset dis-line xpos width))
-       ((line-buffered-p line)
-	(compute-buffered-line-image line offset dis-line xpos width))
        (t
  	(compute-normal-line-image line offset dis-line xpos width)))))
    ((eq line *open-line*)
     (compute-cached-line-image offset dis-line 0 width))
-   ((line-buffered-p line)
-    (compute-buffered-line-image line offset dis-line 0 width))
    (t
     (compute-normal-line-image line offset dis-line 0 width))))