comparison src/xfns.c @ 34476:329225ae6b61

(Fx_hide_tip): Simplified.

34475:0cb6f08c40bd

  "Hide the current tooltip window, if there is any.\n\
Value is t is tooltip was open, nil otherwise.")
  ()
{
  int count;
  Lisp_Object deleted;

  /* Return quickly if nothing to do.  */
  if (NILP (tip_timer) && !FRAMEP (tip_frame))
    return Qnil;
  
  count = BINDING_STACK_SIZE ();
  deleted = Qnil;
  specbind (Qinhibit_redisplay, Qt);
  specbind (Qinhibit_quit, Qt);
  
  if (!NILP (tip_timer))
    {
      Lisp_Object tem;
      struct gcpro gcpro1;
      tem = tip_timer;
      GCPRO1 (tem);
      tip_timer = Qnil;
      call1 (intern ("cancel-timer"), tem);
      UNGCPRO;
    }

  if (FRAMEP (tip_frame))
    {
      Lisp_Object frame;
      struct gcpro gcpro1;

      frame = tip_frame;
      GCPRO1 (frame);
      tip_frame = Qnil;
      Fdelete_frame (frame, Qnil);
      deleted = Qt;
      UNGCPRO;

#ifdef USE_LUCID
      /* Bloodcurdling hack alert: The Lucid menu bar widget's
	 redisplay procedure is not called when a tip frame over menu
	 items is unmapped.  Redisplay the menu manually...  */

	  }
      }
#endif /* USE_LUCID */
    }

  return unbind_to (count, deleted);
}




34476:329225ae6b61

  "Hide the current tooltip window, if there is any.\n\
Value is t is tooltip was open, nil otherwise.")
  ()
{
  int count;
  Lisp_Object deleted, frame, timer;
  struct gcpro gcpro1, gcpro2;

  /* Return quickly if nothing to do.  */
  if (NILP (tip_timer) && NILP (tip_frame))
    return Qnil;
  
  frame = tip_frame;
  timer = tip_timer;
  GCPRO2 (frame, timer);
  tip_frame = tip_timer = deleted = Qnil;
  
  count = BINDING_STACK_SIZE ();
  specbind (Qinhibit_redisplay, Qt);
  specbind (Qinhibit_quit, Qt);
  
  if (!NILP (timer))
    call1 (intern ("cancel-timer"), timer);

  if (FRAMEP (frame))
    {
      Fdelete_frame (frame, Qnil);
      deleted = Qt;

#ifdef USE_LUCID
      /* Bloodcurdling hack alert: The Lucid menu bar widget's
	 redisplay procedure is not called when a tip frame over menu
	 items is unmapped.  Redisplay the menu manually...  */

	  }
      }
#endif /* USE_LUCID */
    }

  UNGCPRO;
  return unbind_to (count, deleted);
}