Mercurial > hg > xemacs-beta

comparison src/frame.c @ 142:1856695b1fa9 r20-2b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b5
author cvs
date Mon, 13 Aug 2007 09:33:18 +0200
parents 360340f9fd5f
children 2af401a6ecca
comparison
equal deleted inserted replaced
141:ea67ad3963dc 142:1856695b1fa9
51 Lisp_Object Vdelete_frame_hook, Qdelete_frame_hook; 51 Lisp_Object Vdelete_frame_hook, Qdelete_frame_hook;
52 Lisp_Object Vmouse_enter_frame_hook, Qmouse_enter_frame_hook; 52 Lisp_Object Vmouse_enter_frame_hook, Qmouse_enter_frame_hook;
53 Lisp_Object Vmouse_leave_frame_hook, Qmouse_leave_frame_hook; 53 Lisp_Object Vmouse_leave_frame_hook, Qmouse_leave_frame_hook;
54 Lisp_Object Vmap_frame_hook, Qmap_frame_hook; 54 Lisp_Object Vmap_frame_hook, Qmap_frame_hook;
55 Lisp_Object Vunmap_frame_hook, Qunmap_frame_hook; 55 Lisp_Object Vunmap_frame_hook, Qunmap_frame_hook;
56 Lisp_Object Vallow_deletion_of_last_visible_frame; 56 int Vallow_deletion_of_last_visible_frame;
57 #if defined (HAVE_CDE) || defined (HAVE_OFFIX_DND) 57 #if defined (HAVE_CDE) || defined (HAVE_OFFIX_DND)
58 Lisp_Object Vdrag_and_drop_functions, Qdrag_and_drop_functions; 58 Lisp_Object Vdrag_and_drop_functions, Qdrag_and_drop_functions;
59 #endif 59 #endif
60 Lisp_Object Vmouse_motion_handler; 60 Lisp_Object Vmouse_motion_handler;
61 Lisp_Object Vsynchronize_minibuffers; 61 Lisp_Object Vsynchronize_minibuffers;
1254 last visible frame. This was too annoying, so we changed it to the 1254 last visible frame. This was too annoying, so we changed it to the
1255 only frame. However, this would let people shoot themselves by 1255 only frame. However, this would let people shoot themselves by
1256 deleting all frames which were either visible or iconified and thus 1256 deleting all frames which were either visible or iconified and thus
1257 losing any way of communicating with the still running XEmacs process. 1257 losing any way of communicating with the still running XEmacs process.
1258 So we put it back. */ 1258 So we put it back. */
1259 if (!force && NILP (Vallow_deletion_of_last_visible_frame) && 1259 if (!force && !Vallow_deletion_of_last_visible_frame &&
1260 !other_visible_frames_internal (f, called_from_delete_device)) 1260 !other_visible_frames_internal (f, called_from_delete_device))
1261 error ("Attempt to delete the sole visible or iconified frame"); 1261 error ("Attempt to delete the sole visible or iconified frame");
1262 1262
1263 /* Does this frame have a minibuffer, and is it the surrogate 1263 /* Does this frame have a minibuffer, and is it the surrogate
1264 minibuffer for any other frame? */ 1264 minibuffer for any other frame? */
3005 Function or functions to call when a frame is unmapped. 3005 Function or functions to call when a frame is unmapped.
3006 One argument, the frame. 3006 One argument, the frame.
3007 */ ); 3007 */ );
3008 Vunmap_frame_hook = Qnil; 3008 Vunmap_frame_hook = Qnil;
3009 3009
3010 DEFVAR_LISP ("allow-deletion-of-last-visible-frame", 3010 DEFVAR_BOOL ("allow-deletion-of-last-visible-frame",
3011 &Vallow_deletion_of_last_visible_frame /* 3011 &Vallow_deletion_of_last_visible_frame /*
3012 *Non-nil means to assume the force option to delete-frame. 3012 *Non-nil means to assume the force option to delete-frame.
3013 */ ); 3013 */ );
3014 Vallow_deletion_of_last_visible_frame = Qnil; 3014 Vallow_deletion_of_last_visible_frame = 0;
3015 3015
3016 #if defined (HAVE_CDE) || defined (HAVE_OFFIX_DND) 3016 #if defined (HAVE_CDE) || defined (HAVE_OFFIX_DND)
3017 DEFVAR_LISP ("drag-and-drop-functions", &Vdrag_and_drop_functions /* 3017 DEFVAR_LISP ("drag-and-drop-functions", &Vdrag_and_drop_functions /*
3018 Function or functions to run when an object is dropped on a frame. 3018 Function or functions to run when an object is dropped on a frame.
3019 Each function is called with either two or three args. If called with 3019 Each function is called with either two or three args. If called with