emacs/oldXMenu/Error.c
2017-10-18 13:31:44 -04:00

30 lines
660 B
C

#include "copyright.h"
/* $Header: Error.c,v 1.2 87/12/20 12:04:53 rws Exp $ */
/* Copyright Massachusetts Institute of Technology 1985 */
/*
* XMenu: MIT Project Athena, X Window system menu package
*
* XMenuError - Returns a string description of the current
* XMenu error status flag.
*
* Author: Tony Della Fera, DEC
* August, 1985
*
*/
#include "XMenuInt.h"
char *
XMenuError()
{
char message[128]; /* Error message buffer. */
if ((_XMErrorCode < XME_CODE_COUNT) && (_XMErrorCode >= 0)) {
return(_XMErrorList[_XMErrorCode]);
}
sprintf(message, "Unknown _XMErrorCode: %d", _XMErrorCode);
return(message);
}