xemacs-beta: src/event-stream.c comparison

comparison src/event-stream.c @ 110:fe104dbd9147 r20-1b7

Import from CVS: tag r20-1b7

author	cvs
date	Mon, 13 Aug 2007 09:19:45 +0200
parents	360340f9fd5f
children	9f59509498e1

comparison

equal deleted inserted replaced

-:e183fc049578
+:fe104dbd9147
 /**********************************************************************/
 /* This is used in accept-process-output, sleep-for and sit-for.
 Before running any process_events in these routines, we set
 recursive_sit_for to Qt, and use this unwind protect to reset it to
-Qnil upon exit.  When recursive_sit_for is Qt, calling any of these
+Qnil upon exit.  When recursive_sit_for is Qt, calling sit-for will
-three routines will cause them to return immediately no matter what
+cause it to return immediately.
-their arguments were.
 All of these routines install timeouts, so we clear the installed
 timeout as well.
 Note: It's very easy to break the desired behaviours of these
 from PROCESS.  This argument may be a float, meaning wait some fractional
 part of a second.
 If the third arg is non-nil, it is a number of milliseconds that is added
 to the second arg.  (This exists only for compatibility.)
 Return non-nil iff we received any output before the timeout expired.
-If a filter function or timeout handler (such as installed by `add-timeout')
-calls any of accept-process-output, sleep-for, or sit-for, those calls
-will return nil immediately (regardless of their arguments) in recursive
-situations.  It is recommended that you never call accept-process-output
-from inside of a process filter function or timer event (either synchronous
-or asynchronous).
 */
 (process, timeout_secs, timeout_msecs))
 {
 /* This function can GC */
 struct gcpro gcpro1, gcpro2;
 int timeout_id;
 int timeout_enabled = 0;
 int done = 0;
 struct buffer *old_buffer = current_buffer;
 int count;
-/* Recusive call from a filter function or timeout handler. */
-if (!NILP(recursive_sit_for))
-return Qnil;
 /* We preserve the current buffer but nothing else.  If a focus
 change alters the selected window then the top level event loop
 will eventually alter current_buffer to match.  In the mean time
 we don't want to mess up whatever called this function. */
 DEFUN ("sleep-for", Fsleep_for, 1, 1, 0, /*
 Pause, without updating display, for ARG seconds.
 ARG may be a float, meaning pause for some fractional part of a second.
-If a filter function or timeout handler (such as installed by `add-timeout')
+It is recommended that you never call sleep-for from inside of a process
-calls any of accept-process-output, sleep-for, or sit-for, those calls
+filter function or timer event (either synchronous or asynchronous).
-will return nil immediately (regardless of their arguments) in recursive
-situations.  It is recommended that you never call sleep-for from inside
-of a process filter function or timer event (either synchronous or
-asynchronous).
 */
 (seconds))
 {
 /* This function can GC */
 unsigned long msecs = lisp_number_to_milliseconds (seconds, 1);
 int id;
 Lisp_Object event = Qnil;
 int count;
 struct gcpro gcpro1;
-/* Recusive call from a filter function or timeout handler. */
-if (!NILP(recursive_sit_for))
-return Qnil;
 GCPRO1 (event);
 id = event_stream_generate_wakeup (msecs, 0, Qnil, Qnil, 0);
 event = Fmake_event ();
 Optional second arg non-nil means don't redisplay, just wait for input.
 Redisplay is preempted as always if user input arrives, and does not
 happen if input is available before it starts.
 Value is t if waited the full time with no input arriving.
-If a filter function or timeout handler (such as installed by `add-timeout')
+If sit-for is called from within a process filter function or timer
-calls any of accept-process-output, sleep-for, or sit-for, those calls
+event (either synchronous or asynchronous) it will return immediately.
-will return nil immediately (regardless of their arguments) in recursive
-situations.  It is recommended that you never call sit-for from inside
-of a process filter function or timer event (either synchronous or
-asynchronous) with an argument other than 0.
 */
 (seconds, nodisplay))
 {
 /* This function can GC */
 unsigned long msecs = lisp_number_to_milliseconds (seconds, 1);
 Lisp_Object event, result;
 struct gcpro gcpro1;
 int id;
 int count;
-/* Recusive call from a filter function or timeout handler. */
-if (!NILP(recursive_sit_for))
-return Qnil;
 /* The unread-command-events count as pending input */
 if (!NILP (Vunread_command_events) || !NILP (Vunread_command_event))
 return Qnil;
 /* If the command-builder already has user-input on it (not eval events)
 /* If we're in a macro, or noninteractive, or early in temacs, then
 don't wait. */
 if (noninteractive || !NILP (Vexecuting_macro))
 return (Qnil);
+/* Recusive call from a filter function or timeout handler. */
+if (!NILP(recursive_sit_for))
+{
+if (!event_stream_event_pending_p (1) && NILP (nodisplay))
+	{
+	  run_pre_idle_hook ();
+	  redisplay ();
+	}
+return Qnil;
+}
 /* Otherwise, start reading events from the event_stream.
 Do this loop at least once even if (sit-for 0) so that we
 redisplay when no input pending.
 */
 -- We do not reset this-command-keys when we finish reading a
 command.  This is because some commands (e.g. C-u) act
 like command prefixes; they signal this by setting prefix-arg
 to non-nil.
 -- Therefore, we reset this-command-keys when we finish
-executing a comand, unless prefix-arg is set.
+executing a command, unless prefix-arg is set.
 -- However, if we ever do a non-local exit out of a command
 loop (e.g. an error in a command), we need to reset
 this-command-keys.  We do this by calling reset_this_command_keys()
 from cmdloop.c, whenever an error causes an invocation of the
 default error handler, and whenever there's a throw to top-level.)
 enqueue_event (new, &Vthis_command_keys, &Vthis_command_keys_tail);
 }
 /* The following two functions are used in call-interactively,
 for the @ and e specifications.  We used to just use
-`current-mouse-event' (i.e. the last mouse event in this-comand-keys),
+`current-mouse-event' (i.e. the last mouse event in this-command-keys),
 but FSF does it more generally so we follow their lead. */
 Lisp_Object
 extract_this_command_keys_nth_mouse_event (int n)
 {
 `(+ (* (- (car ,end) (car ,start)) 65536.0)
 (- (cadr ,end) (cadr ,start))
 (/ (- (caddr ,end) (caddr ,start)) 1000000.0)))
 (defun testee (ignore)
-;; All three of these should return immediately.
+(sit-for 10))
-(sit-for 10)
-(sleep-for 10)
-(accept-process-output nil 10))
 (defun test-them ()
 (let ((start (current-time))
 end)
 (add-timeout 2 'testee nil)
 (add-timeout 2 'testee nil)
 (accept-process-output nil 5)
 (setq end (current-time))
 (test-diff-time start end)))
-(test-them) should sit for 15 seconds, not 105 or 96.
+(test-them) should sit for 15 seconds.
+Repeat with testee set to sleep-for and accept-process-output.
+These should each delay 36 seconds.
 */

Mercurial > hg > xemacs-beta

comparison src/event-stream.c @ 110:fe104dbd9147 r20-1b7