Mercurial > emacs
comparison src/dispnew.c @ 63695:98563021d2e3
(Fsleep_for, Fsit_for): Follow error conventions.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 23 Jun 2005 16:06:10 +0000 |
| parents | 144440a09db1 |
| children | a8fa7c632ee4 d07fdd5d7d4e b7da78284d4c |
comparison
equal
deleted
inserted
replaced
| 63694:8f10ba0f0a86 | 63695:98563021d2e3 |
|---|---|
| 6346 usec += (duration - sec) * 1000000; | 6346 usec += (duration - sec) * 1000000; |
| 6347 } | 6347 } |
| 6348 | 6348 |
| 6349 #ifndef EMACS_HAS_USECS | 6349 #ifndef EMACS_HAS_USECS |
| 6350 if (sec == 0 && usec != 0) | 6350 if (sec == 0 && usec != 0) |
| 6351 error ("millisecond `sleep-for' not supported on %s", SYSTEM_TYPE); | 6351 error ("Millisecond `sleep-for' not supported on %s", SYSTEM_TYPE); |
| 6352 #endif | 6352 #endif |
| 6353 | 6353 |
| 6354 /* Assure that 0 <= usec < 1000000. */ | 6354 /* Assure that 0 <= usec < 1000000. */ |
| 6355 if (usec < 0) | 6355 if (usec < 0) |
| 6356 { | 6356 { |
| 6446 usec += (duration - sec) * 1000000; | 6446 usec += (duration - sec) * 1000000; |
| 6447 } | 6447 } |
| 6448 | 6448 |
| 6449 #ifndef EMACS_HAS_USECS | 6449 #ifndef EMACS_HAS_USECS |
| 6450 if (usec != 0 && sec == 0) | 6450 if (usec != 0 && sec == 0) |
| 6451 error ("millisecond `sit-for' not supported on %s", SYSTEM_TYPE); | 6451 error ("Millisecond `sit-for' not supported on %s", SYSTEM_TYPE); |
| 6452 #endif | 6452 #endif |
| 6453 | 6453 |
| 6454 return sit_for (sec, usec, 0, NILP (nodisp), NILP (nodisp)); | 6454 return sit_for (sec, usec, 0, NILP (nodisp), NILP (nodisp)); |
| 6455 } | 6455 } |
| 6456 | 6456 |