Index: editor/indent_pir.vim
===================================================================
--- editor/indent_pir.vim	（版本 34372）
+++ editor/indent_pir.vim	（工作副本）
@@ -1,4 +1,4 @@
-" Description:  imcc indenter
+" Description:  PIR indenter
 " Author:   Andrew Rodland <arodland@entermail.net>
 " Maintainer: Jimmy Zhuo <zhuomingliang@yahoo.com.cn>
 " Last Change: 2008 Dec 3
Index: src/io/buffer.c
===================================================================
--- src/io/buffer.c	（版本 34372）
+++ src/io/buffer.c	（工作副本）
@@ -399,7 +399,7 @@
     size_t  avail = 0;
 
     INTVAL         buffer_flags = Parrot_io_get_buffer_flags(interp, filehandle);
-    unsigned char *buffer_next, *buffer_end;
+    unsigned char *buffer_next;
 
     STRING * const s = Parrot_io_make_string(interp, buf, 1);
 
@@ -410,20 +410,7 @@
     }
 
     buffer_next  = Parrot_io_get_buffer_next(interp, filehandle);
-    buffer_end   = Parrot_io_get_buffer_end(interp, filehandle);
 
-    /* read Data from buffer */
-    if (buffer_flags & PIO_BF_READBUF) {
-        avail = buffer_end - buffer_next;
-
-        /* if we have data available, copy out the next byte */
-        if (avail) {
-            memcpy(s->strstart, buffer_next, len);
-            s->bufused = s->strlen = len;
-            return len;
-        }
-    }
-
     /* (re)fill the buffer */
     if (! (buffer_flags & PIO_BF_READBUF)) {
         size_t got;