Mercurial > emacs
comparison src/dispnew.c @ 687:e2b747dd6a6e
*** empty log message ***
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 04 Jun 1992 06:43:29 +0000 |
parents | 6217fa6e2cab |
children | 030fb4635335 |
comparison
equal
deleted
inserted
replaced
686:bd3068742807 | 687:e2b747dd6a6e |
---|---|
1792 return Qnil; | 1792 return Qnil; |
1793 | 1793 |
1794 if (!NILP (millisec)) | 1794 if (!NILP (millisec)) |
1795 { | 1795 { |
1796 #ifndef EMACS_HAS_USECS | 1796 #ifndef EMACS_HAS_USECS |
1797 error ("millisecond sit-for not supported on %s", SYSTEM_TYPE); | 1797 error ("millisecond `sleep-for' not supported on %s", SYSTEM_TYPE); |
1798 #else | 1798 #else |
1799 usec = sec % 1000 * 1000; | 1799 usec = sec % 1000 * 1000; |
1800 sec /= 1000; | 1800 sec /= 1000; |
1801 #endif | 1801 #endif |
1802 } | 1802 } |
1911 CHECK_NUMBER (arg, 0); | 1911 CHECK_NUMBER (arg, 0); |
1912 | 1912 |
1913 if (!NILP (millisec)) | 1913 if (!NILP (millisec)) |
1914 { | 1914 { |
1915 #ifndef EMACS_HAS_USECS | 1915 #ifndef EMACS_HAS_USECS |
1916 error ("millisecond sit-for not supported on %s", SYSTEM_TYPE); | 1916 error ("millisecond `sit-for' not supported on %s", SYSTEM_TYPE); |
1917 #else | 1917 #else |
1918 usec = (sec % 1000) * 1000; | 1918 usec = (sec % 1000) * 1000; |
1919 sec /= 1000; | 1919 sec /= 1000; |
1920 #endif | 1920 #endif |
1921 } | 1921 } |