Add support for defun in thingatpt.el
[emacs.git] / oldXMenu / Error.c
blob99f5eb6500d0a98bee420ad88237eb77a4a60dd5
1 /* Copyright Massachusetts Institute of Technology 1985 */
3 #include "copyright.h"
6 /*
7 * XMenu: MIT Project Athena, X Window system menu package
9 * XMenuError - Returns a string description of the current
10 * XMenu error status flag.
12 * Author: Tony Della Fera, DEC
13 * August, 1985
17 #include "XMenuInt.h"
19 char *
20 XMenuError(void)
22 static char message[128]; /* Error message buffer. */
24 if ((_XMErrorCode < XME_CODE_COUNT) && (_XMErrorCode >= 0)) {
25 return(_XMErrorList[_XMErrorCode]);
27 sprintf(message, "Unknown _XMErrorCode: %d", _XMErrorCode);
28 return(message);