/*
 * peekc.c -- peek at the next character in a stream
 *
 * $Id: peekc.c,v 1.2 2002/07/02 22:09:14 kenh Exp $
 *
 * This code is Copyright (c) 2002, by the authors of nmh.  See the
 * COPYRIGHT file in the root directory of the nmh distribution for
 * complete copyright information.
 */

#include <h/mh.h>


int
peekc(FILE *fp)
{
    register int c;

    c = getc(fp);
    ungetc(c, fp);
    return c;
}