annotate oldXMenu/Error.c @ 54546:f357f325cc85

* international/mule.el (keyboard-coding-system): Fix docstring.
author Juri Linkov <juri@jurta.org>
date Thu, 25 Mar 2004 10:38:28 +0000
parents 695cf19ef79e
children f0eb34e60705 e8824c4f5f7e 375f2633d815
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
1 #include "copyright.h"
Dave Love <fx@gnu.org>
parents:
diff changeset
2
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 25858
diff changeset
3 /* $Header: /cvsroot/emacs/emacs/oldXMenu/Error.c,v 1.1 1999/10/03 19:35:00 fx Exp $ */
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
4 /* Copyright Massachusetts Institute of Technology 1985 */
Dave Love <fx@gnu.org>
parents:
diff changeset
5
Dave Love <fx@gnu.org>
parents:
diff changeset
6 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
7 * XMenu: MIT Project Athena, X Window system menu package
Dave Love <fx@gnu.org>
parents:
diff changeset
8 *
Dave Love <fx@gnu.org>
parents:
diff changeset
9 * XMenuError - Returns a string description of the current
Dave Love <fx@gnu.org>
parents:
diff changeset
10 * XMenu error status flag.
Dave Love <fx@gnu.org>
parents:
diff changeset
11 *
Dave Love <fx@gnu.org>
parents:
diff changeset
12 * Author: Tony Della Fera, DEC
Dave Love <fx@gnu.org>
parents:
diff changeset
13 * August, 1985
Dave Love <fx@gnu.org>
parents:
diff changeset
14 *
Dave Love <fx@gnu.org>
parents:
diff changeset
15 */
Dave Love <fx@gnu.org>
parents:
diff changeset
16
Dave Love <fx@gnu.org>
parents:
diff changeset
17 #include "XMenuInt.h"
Dave Love <fx@gnu.org>
parents:
diff changeset
18
Dave Love <fx@gnu.org>
parents:
diff changeset
19 char *
Dave Love <fx@gnu.org>
parents:
diff changeset
20 XMenuError()
Dave Love <fx@gnu.org>
parents:
diff changeset
21 {
Dave Love <fx@gnu.org>
parents:
diff changeset
22 static char message[128]; /* Error message buffer. */
Dave Love <fx@gnu.org>
parents:
diff changeset
23
Dave Love <fx@gnu.org>
parents:
diff changeset
24 if ((_XMErrorCode < XME_CODE_COUNT) && (_XMErrorCode >= 0)) {
Dave Love <fx@gnu.org>
parents:
diff changeset
25 return(_XMErrorList[_XMErrorCode]);
Dave Love <fx@gnu.org>
parents:
diff changeset
26 }
Dave Love <fx@gnu.org>
parents:
diff changeset
27 sprintf(message, "Unknown _XMErrorCode: %d", _XMErrorCode);
Dave Love <fx@gnu.org>
parents:
diff changeset
28 return(message);
Dave Love <fx@gnu.org>
parents:
diff changeset
29 }
Dave Love <fx@gnu.org>
parents:
diff changeset
30
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 25858
diff changeset
31 /* arch-tag: 5fff4a23-40ca-40d0-8887-c50fc73dea9d
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 25858
diff changeset
32 (do not change this comment) */