comparison src/xterm.c @ 13205:8eac10febc8e

(x_connection_signal_1): New function. (x_connection_signal): Try all the server connections to see which one was lost. (XTcondemn_scroll_bars): No error if FRAME_CONDEMNED_SCROLL_BARS is non-nil already. Just move all the scroll bars into there.

13204:abf9c5bc5a0f

   `*redeem_scroll_bar_hook' is applied to its window before the judgement.  */
static void
XTcondemn_scroll_bars (frame)
     FRAME_PTR frame;
{
  /* The condemned list should be empty at this point; if it's not,
     then the rest of Emacs isn't using the condemn/redeem/judge
     protocol correctly.  */
  if (! NILP (FRAME_CONDEMNED_SCROLL_BARS (frame)))
    abort ();

  /* Move them all to the "condemned" list.  */
  FRAME_CONDEMNED_SCROLL_BARS (frame) = FRAME_SCROLL_BARS (frame);
  FRAME_SCROLL_BARS (frame) = Qnil;
}

/* Unmark WINDOW's scroll bar for deletion in this judgement cycle.
   Note that WINDOW isn't necessarily condemned at all.  */
static void

	      f = x_any_window_to_frame (dpyinfo, event.xfocus.window);
	      if (event.xfocus.detail != NotifyPointer)
		dpyinfo->x_focus_event_frame = f;
	      if (f)
		x_new_focus_frame (dpyinfo, f);
#ifdef USE_X_TOOLKIT
	      goto OTHER;
#endif /* USE_X_TOOLKIT */
	      break;

	      if (event.xfocus.detail != NotifyPointer
		  && f == dpyinfo->x_focus_event_frame)
		dpyinfo->x_focus_event_frame = 0;
	      if (f && f == dpyinfo->x_focus_frame)
		x_new_focus_frame (dpyinfo, 0);
#ifdef USE_X_TOOLKIT
	      goto OTHER;
#endif /* USE_X_TOOLKIT */
	      break;

  TOTALLY_UNBLOCK_INPUT;

  error ("%s", error_message);
}

static SIGTYPE
x_connection_signal (signalnum)	/* If we don't have an argument, */
     int signalnum;		/* some compilers complain in signal calls. */
{
  /* We really ought to close the connection to the display
     that actually failed.
     But do we actually get this signal ever with X11?  */
  fprintf (stderr, "X connection closed");
  shut_down_emacs (0, 0, Qnil);
  exit (70);
}

/* This is the usual handler for X protocol errors.
   It kills all frames on the display that we got the error for.
   If that was the only one, it prints an error message and kills Emacs.  */

static int

{
  char buf[256];

  sprintf (buf, "Connection lost to X server `%s'", DisplayString (display));
  x_connection_closed (display, buf);
}

/* A buffer for storing X error messages.  */
static char *x_caught_error_message;
#define X_CAUGHT_ERROR_MESSAGE_SIZE 200

13205:8eac10febc8e

   `*redeem_scroll_bar_hook' is applied to its window before the judgement.  */
static void
XTcondemn_scroll_bars (frame)
     FRAME_PTR frame;
{
  /* Transfer all the scroll bars to FRAME_CONDEMNED_SCROLL_BARS.  */
  while (! NILP (FRAME_SCROLL_BARS (frame)))
    {
      Lisp_Object bar;
      bar = FRAME_SCROLL_BARS (frame);
      FRAME_SCROLL_BARS (frame) = XSCROLL_BAR (bar)->next;
      XSCROLL_BAR (bar)->next = FRAME_CONDEMNED_SCROLL_BARS (frame);
      XSCROLL_BAR (bar)->prev = Qnil;
      if (! NILP (FRAME_CONDEMNED_SCROLL_BARS (frame)))
	XSCROLL_BAR (FRAME_CONDEMNED_SCROLL_BARS (frame))->prev = bar;
      FRAME_CONDEMNED_SCROLL_BARS (frame) = bar;
    }
}

/* Unmark WINDOW's scroll bar for deletion in this judgement cycle.
   Note that WINDOW isn't necessarily condemned at all.  */
static void

	      f = x_any_window_to_frame (dpyinfo, event.xfocus.window);
	      if (event.xfocus.detail != NotifyPointer)
		dpyinfo->x_focus_event_frame = f;
	      if (f)
		x_new_focus_frame (dpyinfo, f);

#ifdef USE_X_TOOLKIT
	      goto OTHER;
#endif /* USE_X_TOOLKIT */
	      break;

	      if (event.xfocus.detail != NotifyPointer
		  && f == dpyinfo->x_focus_event_frame)
		dpyinfo->x_focus_event_frame = 0;
	      if (f && f == dpyinfo->x_focus_frame)
		x_new_focus_frame (dpyinfo, 0);

#ifdef USE_X_TOOLKIT
	      goto OTHER;
#endif /* USE_X_TOOLKIT */
	      break;

  TOTALLY_UNBLOCK_INPUT;

  error ("%s", error_message);
}

/* This is the usual handler for X protocol errors.
   It kills all frames on the display that we got the error for.
   If that was the only one, it prints an error message and kills Emacs.  */

static int

{
  char buf[256];

  sprintf (buf, "Connection lost to X server `%s'", DisplayString (display));
  x_connection_closed (display, buf);
}

/* Handle SIGPIPE, which can happen when the connection to a server
   simply goes away.  SIGPIPE is handled by x_connection_signal.
   It works by sending a no-op command to each X server connection.
   When we try a connection that has closed, we get SIGPIPE again.
   But this time, it is handled by x_connection_signal_1.
   That function knows which connection we were testing,
   so it closes that one.
   
   x_connection_closed never returns,
   so if more than one connection was lost at once,
   we only find one.  But XTread_socket keeps trying them all,
   so it will notice the other closed one sooner or later.  */
   

static struct x_display_info *x_connection_signal_dpyinfo;

static SIGTYPE x_connection_signal ();

static SIGTYPE
x_connection_signal_1 (signalnum)	/* If we don't have an argument, */
     int signalnum;		/* some compilers complain in signal calls. */
{
  signal (SIGPIPE, x_connection_signal);
  x_connection_closed (x_connection_signal_dpyinfo,
		       "connection was lost");
}

static SIGTYPE
x_connection_signal (signalnum)	/* If we don't have an argument, */
     int signalnum;		/* some compilers complain in signal calls. */
{
  x_connection_signal_dpyinfo = x_display_list;

  sigunblock (SIGPIPE);

  while (x_connection_signal_dpyinfo)
    {
      signal (SIGPIPE, x_connection_signal_1);

      XNoOp (x_connection_signal_dpyinfo->display);
      XSync (x_connection_signal_dpyinfo->display, False);

      /* Each time we get here, cycle through the displays now open.  */
      x_connection_signal_dpyinfo = x_connection_signal_dpyinfo->next;
    }

  /* We should have found some closed connection.  */
  abort ();
}

/* A buffer for storing X error messages.  */
static char *x_caught_error_message;
#define X_CAUGHT_ERROR_MESSAGE_SIZE 200