#include <X/mit-copyright.h>

/* Copyright 	Massachusetts Institute of Technology  1985 */
/* $Header: /var/lib/cvsd/repos/CSRG/43BSD/contrib/X/Xlib/XPutBackEvent.c,v 1.1.1.1 2018/04/24 16:12:54 root Exp $ */
/* XPutBackEvent puts an event back at the head of the queue. */

#include "XlibInternal.h"

extern _QEvent *_qfree;

XPutBackEvent (event)
	register XEvent *event;
	{
	register _QEvent *qelt;
	register Display *dpy = _XlibCurrentDisplay;
	if (!_qfree) {
    	    _qfree = (_QEvent *) malloc (sizeof (_QEvent));
	    _qfree->next = NULL;
	    }
	qelt = _qfree;
	_qfree = qelt->next;
	qelt->next = dpy->head;
	qelt->event = *event;
	dpy->head = qelt;
	if (dpy->tail == NULL)
	    dpy->tail = qelt;
	dpy->qlen++;
	}