#include "ded.h"
#include "tty.h"

/************************************************************************
 *                                                                      *
 *                      copyright Richard Bornat 1981                   *
 *                                                                      *
 ************************************************************************/

/* put a character back in the buffer */
ttyback(ch)
register char ch;
 { *(--ttyinbuf.nxch) = ch;
    ttyinbuf.n_in++;
    /* frig the dlog buffer if any */
    if (NORMAL_INPUT)
        { dlogflush();
#ifdef V7
        lseek(dlogger, (long) -1, 1);
#else
        seek(dlogger, -1, 1);
#endif
        }
 }