Mercurial > hg > xemacs-beta

comparison src/frame.c @ 146:2af401a6ecca r20-2p1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2p1
author cvs
date Mon, 13 Aug 2007 09:34:46 +0200
parents 1856695b1fa9
children 538048ae2ab8
comparison
equal deleted inserted replaced
145:e13feca31ba6 146:2af401a6ecca
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 int Vallow_deletion_of_last_visible_frame; 56 int allow_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 && !Vallow_deletion_of_last_visible_frame && 1259 if (!force && !allow_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? */
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_BOOL ("allow-deletion-of-last-visible-frame", 3010 DEFVAR_BOOL ("allow-deletion-of-last-visible-frame",
3011 &Vallow_deletion_of_last_visible_frame /* 3011 &allow_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 = 0; 3014 allow_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