Mercurial > hg > xemacs-beta

comparison src/frame.c @ 197:acd284d43ca1 r20-3b25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b25
author cvs
date Mon, 13 Aug 2007 10:00:02 +0200
parents 489f57a838ef
children 41ff10fd062f
comparison
equal deleted inserted replaced
196:58e0786448ca 197:acd284d43ca1
60 Lisp_Object Vmouse_motion_handler; 60 Lisp_Object Vmouse_motion_handler;
61 Lisp_Object Vsynchronize_minibuffers; 61 Lisp_Object Vsynchronize_minibuffers;
62 Lisp_Object Qsynchronize_minibuffers; 62 Lisp_Object Qsynchronize_minibuffers;
63 Lisp_Object Qbuffer_predicate; 63 Lisp_Object Qbuffer_predicate;
64 Lisp_Object Qmake_initial_minibuffer_frame; 64 Lisp_Object Qmake_initial_minibuffer_frame;
65 Lisp_Object Qcustom_initialize_frame;
65 66
66 /* We declare all these frame properties here even though many of them 67 /* We declare all these frame properties here even though many of them
67 are currently only used in frame-x.c, because we should generalize 68 are currently only used in frame-x.c, because we should generalize
68 them. */ 69 them. */
69 70
537 if (first_frame_on_console) 538 if (first_frame_on_console)
538 va_run_hook_with_args (Qcreate_console_hook, 1, DEVICE_CONSOLE (d)); 539 va_run_hook_with_args (Qcreate_console_hook, 1, DEVICE_CONSOLE (d));
539 va_run_hook_with_args (Qcreate_device_hook, 1, device); 540 va_run_hook_with_args (Qcreate_device_hook, 1, device);
540 } 541 }
541 va_run_hook_with_args (Qcreate_frame_hook, 1, frame); 542 va_run_hook_with_args (Qcreate_frame_hook, 1, frame);
543
544 /* Initialize custom-specific stuff. */
545 if (!UNBOUNDP (symbol_function (XSYMBOL (Qcustom_initialize_frame))))
546 call1 (Qcustom_initialize_frame, frame);
542 547
543 unbind_to (speccount, Qnil); 548 unbind_to (speccount, Qnil);
544 549
545 UNGCPRO; 550 UNGCPRO;
546 return frame; 551 return frame;
2865 { 2870 {
2866 defsymbol (&Qdelete_frame_hook, "delete-frame-hook"); 2871 defsymbol (&Qdelete_frame_hook, "delete-frame-hook");
2867 defsymbol (&Qselect_frame_hook, "select-frame-hook"); 2872 defsymbol (&Qselect_frame_hook, "select-frame-hook");
2868 defsymbol (&Qdeselect_frame_hook, "deselect-frame-hook"); 2873 defsymbol (&Qdeselect_frame_hook, "deselect-frame-hook");
2869 defsymbol (&Qcreate_frame_hook, "create-frame-hook"); 2874 defsymbol (&Qcreate_frame_hook, "create-frame-hook");
2875 defsymbol (&Qcustom_initialize_frame, "custom-initialize-frame");
2870 defsymbol (&Qmouse_enter_frame_hook, "mouse-enter-frame-hook"); 2876 defsymbol (&Qmouse_enter_frame_hook, "mouse-enter-frame-hook");
2871 defsymbol (&Qmouse_leave_frame_hook, "mouse-leave-frame-hook"); 2877 defsymbol (&Qmouse_leave_frame_hook, "mouse-leave-frame-hook");
2872 defsymbol (&Qmap_frame_hook, "map-frame-hook"); 2878 defsymbol (&Qmap_frame_hook, "map-frame-hook");
2873 defsymbol (&Qunmap_frame_hook, "unmap-frame-hook"); 2879 defsymbol (&Qunmap_frame_hook, "unmap-frame-hook");
2874 #if defined (HAVE_CDE) || defined (HAVE_OFFIX_DND) 2880 #if defined (HAVE_CDE) || defined (HAVE_OFFIX_DND)
3125 `minibuffer-frame-plist'. 3131 `minibuffer-frame-plist'.
3126 3132
3127 See also the variables `default-x-frame-plist' and 3133 See also the variables `default-x-frame-plist' and
3128 `default-tty-frame-plist', which are like `default-frame-plist' 3134 `default-tty-frame-plist', which are like `default-frame-plist'
3129 except that they apply only to X or tty frames, respectively 3135 except that they apply only to X or tty frames, respectively
3130 (whereas `default-frame-plist' applies to all types of frames). 3136 \(whereas `default-frame-plist' applies to all types of frames).
3131 */ ); 3137 */ );
3132 Vdefault_frame_plist = Qnil; 3138 Vdefault_frame_plist = Qnil;
3133 3139
3134 DEFVAR_LISP ("frame-icon-glyph", &Vframe_icon_glyph /* 3140 DEFVAR_LISP ("frame-icon-glyph", &Vframe_icon_glyph /*
3135 Icon glyph used to iconify a frame. 3141 Icon glyph used to iconify a frame.