Mercurial > emacs
annotate oldXMenu/Error.c @ 99771:8fff0bee6091
* byte-opt.el (byte-compile-butlast): Move up in file.
(byte-optimize-plus): Don't call
byte-optimize-delay-constants-math (bug#1334). Use
byte-optimize-predicate to optimize constants.
(byte-optimize-minus): Don't call
byte-optimize-delay-constants-math. Remove zero arguments first
if possible. Call byte-optimize-predicate to optimize constants.
(byte-optimize-multiply): Remove optimizations for arguments of 0
and 2, which may be inaccurate. Optimize (* x -1) to (- x). Call
byte-optimize-predicate.
(byte-optimize-divide): Leave runtime errors unchanged.
Optimize (/ x 1) to (+ x 0). Remove optimizations for arguments of
0 and 2.0, which may be inaccurate. Call byte-optimize-predicate.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Fri, 21 Nov 2008 18:51:19 +0000 |
parents | fec5e03aaf59 |
children | edf631bdbb7a ec58e5c426ef 5cc91198ffb2 |
rev | line source |
---|---|
76174
fec5e03aaf59
Remove FSF copyright since file does not differ significantly from X11
Glenn Morris <rgm@gnu.org>
parents:
75348
diff
changeset
|
1 /* Copyright Massachusetts Institute of Technology 1985 */ |
fec5e03aaf59
Remove FSF copyright since file does not differ significantly from X11
Glenn Morris <rgm@gnu.org>
parents:
75348
diff
changeset
|
2 |
25858 | 3 #include "copyright.h" |
4 | |
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 | |
52401 | 31 /* arch-tag: 5fff4a23-40ca-40d0-8887-c50fc73dea9d |
32 (do not change this comment) */ |