/[emacs]/emacs/src/frame.c
ViewVC logotype

Diff of /emacs/src/frame.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.301 by miles, Mon Sep 1 15:45:52 2003 UTC revision 1.302 by kfstorm, Sat Sep 20 23:26:20 2003 UTC
# Line 114  Lisp_Object Qface_set_after_frame_defaul Line 114  Lisp_Object Qface_set_after_frame_defaul
114    
115  Lisp_Object Vterminal_frame;  Lisp_Object Vterminal_frame;
116  Lisp_Object Vdefault_frame_alist;  Lisp_Object Vdefault_frame_alist;
117    Lisp_Object Vdefault_frame_scroll_bars;
118  Lisp_Object Vmouse_position_function;  Lisp_Object Vmouse_position_function;
119  Lisp_Object Vmouse_highlight;  Lisp_Object Vmouse_highlight;
120  Lisp_Object Vdelete_frame_functions;  Lisp_Object Vdelete_frame_functions;
# Line 3217  x_set_vertical_scroll_bars (f, arg, oldv Line 3218  x_set_vertical_scroll_bars (f, arg, oldv
3218             ? vertical_scroll_bar_left             ? vertical_scroll_bar_left
3219             : EQ (Qright, arg)             : EQ (Qright, arg)
3220             ? vertical_scroll_bar_right             ? vertical_scroll_bar_right
3221  #ifdef HAVE_NTGUI             : EQ (Qleft, Vdefault_frame_scroll_bars)
3222             /* MS-Windows has scroll bars on the right by default.  */             ? vertical_scroll_bar_left
3223             : vertical_scroll_bar_right             : EQ (Qright, Vdefault_frame_scroll_bars)
3224  #else             ? vertical_scroll_bar_right
3225             : vertical_scroll_bar_left             : vertical_scroll_bar_none);
 #endif  
            );  
3226    
3227        /* We set this parameter before creating the X window for the        /* We set this parameter before creating the X window for the
3228           frame, so we can get the geometry right from the start.           frame, so we can get the geometry right from the start.
# Line 4032  The `menu-bar-lines' element of the list Line 4031  The `menu-bar-lines' element of the list
4031  Setting this variable does not affect existing frames, only new ones.  */);  Setting this variable does not affect existing frames, only new ones.  */);
4032    Vdefault_frame_alist = Qnil;    Vdefault_frame_alist = Qnil;
4033    
4034      DEFVAR_LISP ("default-frame-scroll-bars", &Vdefault_frame_scroll_bars,
4035                   doc: /* Default position of scroll bars on this window-system.  */);
4036    #ifdef HAVE_WINDOW_SYSTEM
4037    #if defined(HAVE_NTGUI) || defined(HAVE_CARBON)
4038      /* MS-Windows has scroll bars on the right by default.  */
4039      Vdefault_frame_scroll_bars = Qright;
4040    #else
4041      Vdefault_frame_scroll_bars = Qleft;
4042    #endif
4043    #else
4044      Vdefault_frame_scroll_bars = Qnil;
4045    #endif
4046    
4047    Qinhibit_default_face_x_resources    Qinhibit_default_face_x_resources
4048      = intern ("inhibit-default-face-x-resources");      = intern ("inhibit-default-face-x-resources");
4049    staticpro (&Qinhibit_default_face_x_resources);    staticpro (&Qinhibit_default_face_x_resources);

Legend:
Removed from v.1.301  
changed lines
  Added in v.1.302

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26