oldXMenu/Error.c

   1 #include "copyright.h"
   2
   3 /* $Header: /cvsroot/emacs/emacs/oldXMenu/Error.c,v 1.1 1999/10/03 19:35:00 fx Exp $ */
   4 /* Copyright    Massachusetts Institute of Technology    1985   */
   5
   6 /*
   7  * XMenu:       MIT Project Athena, X Window system menu package
   8  *
   9  *      XMenuError -    Returns a string description of the current
  10  *                      XMenu error status flag.
  11  *
  12  *      Author:         Tony Della Fera, DEC
  13  *                      August, 1985
  14  *
  15  */
  16
  17 #include "XMenuInt.h"
  18
  19 char *
  20 XMenuError()
  21 {
  22     static char message[128];           /* Error message buffer. */
  23
  24     if ((_XMErrorCode < XME_CODE_COUNT) && (_XMErrorCode >= 0)) {
  25         return(_XMErrorList[_XMErrorCode]);
  26     }
  27     sprintf(message, "Unknown _XMErrorCode: %d", _XMErrorCode);
  28     return(message);
  29 }
  30
  31 /* arch-tag: 5fff4a23-40ca-40d0-8887-c50fc73dea9d
  32    (do not change this comment) */