Mercurial > emacs

diff src/xfns.c @ 47731:755c4233cfba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* frame.c (Vdelete_frame_functions): New variable. (syms_of_frame): Initialize and defvar it. (Fdelete_frame): Use it instead of delete-frame-hook. Don't run it when frame's `tooltip' parameter is non-nil. * xfns.c (x_create_tip_frame): Set `tooltip' frame parameter to t. * w32fns.c (x_create_tip_frame): Likewise * macfns.c (x_create_tip_frame): Likewise.
author John Paul Wallington <jpw@pobox.com>
date Wed, 02 Oct 2002 08:28:17 +0000
parents 3891c4b6162f
children ed2cc4e5f0b8
line wrap: on
line diff
--- a/src/xfns.c	Tue Oct 01 20:27:23 2002 +0000
+++ b/src/xfns.c	Wed Oct 02 08:28:17 2002 +0000
@@ -11143,7 +11143,12 @@
   f->height = 0;
   SET_FRAME_WIDTH (f, 0);
   change_frame_size (f, height, width, 1, 0, 0);
-
+  
+  /* Add `tooltip' frame parameter's default value. */
+  if (NILP (Fframe_parameter (frame, intern ("tooltip"))))
+    Fmodify_frame_parameters (frame, Fcons (Fcons (intern ("tooltip"), Qt),
+					    Qnil));
+  
   /* Set up faces after all frame parameters are known.  This call
      also merges in face attributes specified for new frames.