Mercurial > emacs
comparison src/callint.c @ 71800:68b2027cba70
(Fcall_interactively): Update/simplify sit_for calls.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Tue, 11 Jul 2006 20:11:23 +0000 |
| parents | 0143e273eaa8 |
| children | e80165512dee |
comparison
equal
deleted
inserted
replaced
| 71799:8134ee20ca71 | 71800:68b2027cba70 |
|---|---|
| 719 { | 719 { |
| 720 int first = 1; | 720 int first = 1; |
| 721 do | 721 do |
| 722 { | 722 { |
| 723 Lisp_Object tem; | 723 Lisp_Object tem; |
| 724 if (! first) | 724 if (! first) |
| 725 { | 725 { |
| 726 message ("Please enter a number."); | 726 message ("Please enter a number."); |
| 727 sit_for (1, 0, 0, 0, 0); | 727 sit_for (make_number (1), 0, 0); |
| 728 } | 728 } |
| 729 first = 0; | 729 first = 0; |
| 730 | 730 |
| 731 tem = Fread_from_minibuffer (build_string (callint_message), | 731 tem = Fread_from_minibuffer (build_string (callint_message), |
| 732 Qnil, Qnil, Qnil, Qnil, Qnil, | 732 Qnil, Qnil, Qnil, Qnil, Qnil, |