Mercurial > emacs

comparison src/dispnew.c @ 687:e2b747dd6a6e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** 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 }