#

1 files changed, 30 insertions, 0 deletions

diff --git a/oldXMenu/Error.c b/oldXMenu/Error.c
new file mode 100644
index 00000000000..80f227209a6
--- /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);
+}
+