Mercurial > emacs
comparison src/dispnew.c @ 27727:9400865ec7cf
Remove `LISP_FLOAT_TYPE' and `standalone'.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 17 Feb 2000 09:45:46 +0000 |
| parents | 6bffb46bd7fc |
| children | ecfe912fd73c |
comparison
equal
deleted
inserted
replaced
| 27726:9627810a3fed | 27727:9400865ec7cf |
|---|---|
| 5507 XSETINT (milliseconds, 0); | 5507 XSETINT (milliseconds, 0); |
| 5508 else | 5508 else |
| 5509 CHECK_NUMBER (milliseconds, 1); | 5509 CHECK_NUMBER (milliseconds, 1); |
| 5510 usec = XINT (milliseconds) * 1000; | 5510 usec = XINT (milliseconds) * 1000; |
| 5511 | 5511 |
| 5512 #ifdef LISP_FLOAT_TYPE | |
| 5513 { | 5512 { |
| 5514 double duration = extract_float (seconds); | 5513 double duration = extract_float (seconds); |
| 5515 sec = (int) duration; | 5514 sec = (int) duration; |
| 5516 usec += (duration - sec) * 1000000; | 5515 usec += (duration - sec) * 1000000; |
| 5517 } | 5516 } |
| 5518 #else | |
| 5519 CHECK_NUMBER (seconds, 0); | |
| 5520 sec = XINT (seconds); | |
| 5521 #endif | |
| 5522 | 5517 |
| 5523 #ifndef EMACS_HAS_USECS | 5518 #ifndef EMACS_HAS_USECS |
| 5524 if (sec == 0 && usec != 0) | 5519 if (sec == 0 && usec != 0) |
| 5525 error ("millisecond `sleep-for' not supported on %s", SYSTEM_TYPE); | 5520 error ("millisecond `sleep-for' not supported on %s", SYSTEM_TYPE); |
| 5526 #endif | 5521 #endif |
| 5639 XSETINT (milliseconds, 0); | 5634 XSETINT (milliseconds, 0); |
| 5640 else | 5635 else |
| 5641 CHECK_NUMBER (milliseconds, 1); | 5636 CHECK_NUMBER (milliseconds, 1); |
| 5642 usec = XINT (milliseconds) * 1000; | 5637 usec = XINT (milliseconds) * 1000; |
| 5643 | 5638 |
| 5644 #ifdef LISP_FLOAT_TYPE | |
| 5645 { | 5639 { |
| 5646 double duration = extract_float (seconds); | 5640 double duration = extract_float (seconds); |
| 5647 sec = (int) duration; | 5641 sec = (int) duration; |
| 5648 usec += (duration - sec) * 1000000; | 5642 usec += (duration - sec) * 1000000; |
| 5649 } | 5643 } |
| 5650 #else | |
| 5651 CHECK_NUMBER (seconds, 0); | |
| 5652 sec = XINT (seconds); | |
| 5653 #endif | |
| 5654 | 5644 |
| 5655 #ifndef EMACS_HAS_USECS | 5645 #ifndef EMACS_HAS_USECS |
| 5656 if (usec != 0 && sec == 0) | 5646 if (usec != 0 && sec == 0) |
| 5657 error ("millisecond `sit-for' not supported on %s", SYSTEM_TYPE); | 5647 error ("millisecond `sit-for' not supported on %s", SYSTEM_TYPE); |
| 5658 #endif | 5648 #endif |