comparison src/window.c @ 6517:8f5f79c3091a

(unshow_buffer, window_loop, Fdisplay_buffer): Use assignment, not initialization.

6516:8278049ee7a7

   when it is about to cease to display that buffer.  */
static
unshow_buffer (w)
     register struct window *w;
{
  Lisp_Object buf = w->buffer;

  if (XBUFFER (buf) != XMARKER (w->pointm)->buffer)
    abort ();

#if 0
  if (w == XWINDOW (selected_window)

	      {
		/* If we're deleting the buffer displayed in the only window
		   on the frame, find a new buffer to display there.  */
		if (NILP (XWINDOW (w)->parent))
		  {
		    Lisp_Object new_buffer = Fother_buffer (obj, Qnil);
		    if (NILP (new_buffer))
		      new_buffer
			= Fget_buffer_create (build_string ("*scratch*"));
		    Fset_window_buffer (w, new_buffer);
		    if (EQ (w, selected_window))

	  case UNSHOW_BUFFER:
	    if (EQ (XWINDOW (w)->buffer, obj))
	      {
		/* Find another buffer to show in this window.  */
		Lisp_Object another_buffer = Fother_buffer (obj, Qnil);
		if (NILP (another_buffer))
		  another_buffer
		    = Fget_buffer_create (build_string ("*scratch*"));
		Fset_window_buffer (w, another_buffer);
		if (EQ (w, selected_window))

#ifdef MULTI_FRAME
      || FRAME_MINIBUF_ONLY_P (selected_frame)
#endif
      )
    {
      Lisp_Object frames = Qnil;
      
#ifdef MULTI_FRAME
      if (FRAME_MINIBUF_ONLY_P (selected_frame))
	XSET (frames, Lisp_Frame, last_nonminibuf_frame);
#endif
      /* Don't try to create a window if would get an error */

6517:8f5f79c3091a

   when it is about to cease to display that buffer.  */
static
unshow_buffer (w)
     register struct window *w;
{
  Lisp_Object buf;

  buf = w->buffer;
  if (XBUFFER (buf) != XMARKER (w->pointm)->buffer)
    abort ();

#if 0
  if (w == XWINDOW (selected_window)

	      {
		/* If we're deleting the buffer displayed in the only window
		   on the frame, find a new buffer to display there.  */
		if (NILP (XWINDOW (w)->parent))
		  {
		    Lisp_Object new_buffer;
		    new_buffer = Fother_buffer (obj, Qnil);
		    if (NILP (new_buffer))
		      new_buffer
			= Fget_buffer_create (build_string ("*scratch*"));
		    Fset_window_buffer (w, new_buffer);
		    if (EQ (w, selected_window))

	  case UNSHOW_BUFFER:
	    if (EQ (XWINDOW (w)->buffer, obj))
	      {
		/* Find another buffer to show in this window.  */
		Lisp_Object another_buffer;
		another_buffer = Fother_buffer (obj, Qnil);
		if (NILP (another_buffer))
		  another_buffer
		    = Fget_buffer_create (build_string ("*scratch*"));
		Fset_window_buffer (w, another_buffer);
		if (EQ (w, selected_window))

#ifdef MULTI_FRAME
      || FRAME_MINIBUF_ONLY_P (selected_frame)
#endif
      )
    {
      Lisp_Object frames;

      frames = Qnil;      
#ifdef MULTI_FRAME
      if (FRAME_MINIBUF_ONLY_P (selected_frame))
	XSET (frames, Lisp_Frame, last_nonminibuf_frame);
#endif
      /* Don't try to create a window if would get an error */