#

[bpt/emacs.git] / oldXMenu / Error.c

diff --git a/oldXMenu/Error.c b/oldXMenu/Error.c
new file mode 100644 (file)
index 0000000..80f2272
--- /dev/null
+++ b/oldXMenu/Error.c
@@ -0,0 +1,30 @@
+#include "copyright.h"
+
+/* $Header: /u/src/emacs/19.0/oldXMenu/RCS/Error.c,v 1.1 1992/04/11 22:10:18 jimb 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()
+{
+    static char message[128];          /* Error message buffer. */
+
+    if ((_XMErrorCode < XME_CODE_COUNT) && (_XMErrorCode >= 0)) {
+       return(_XMErrorList[_XMErrorCode]);
+    }
+    sprintf(message, "Unknown _XMErrorCode: %d", _XMErrorCode);
+    return(message);
+}
+