/[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.278 by kfstorm, Sat Dec 1 01:14:55 2001 UTC revision 1.279 by eliz, Mon Jan 14 13:47:02 2002 UTC
# Line 74  Lisp_Object Qbackground_mode; Line 74  Lisp_Object Qbackground_mode;
74  Lisp_Object Qinhibit_default_face_x_resources;  Lisp_Object Qinhibit_default_face_x_resources;
75  Lisp_Object Qleft_fringe;  Lisp_Object Qleft_fringe;
76  Lisp_Object Qright_fringe;  Lisp_Object Qright_fringe;
77    Lisp_Object Qtty_color_mode;
78    
79  Lisp_Object Vterminal_frame;  Lisp_Object Vterminal_frame;
80  Lisp_Object Vdefault_frame_alist;  Lisp_Object Vdefault_frame_alist;
# Line 641  do_switch_frame (frame, track, for_delet Line 642  do_switch_frame (frame, track, for_delet
642    
643    Fselect_window (XFRAME (frame)->selected_window);    Fselect_window (XFRAME (frame)->selected_window);
644    
645    #ifndef WINDOWSNT
646      /* Make sure to switch the tty color mode to that of the newly
647         selected frame.  */
648      sf = SELECTED_FRAME ();
649      if (FRAME_TERMCAP_P (sf))
650        {
651          Lisp_Object color_mode_spec, color_mode;
652    
653          color_mode_spec = assq_no_quit (Qtty_color_mode, sf->param_alist);
654          if (CONSP (color_mode_spec))
655            color_mode = XCDR (color_mode_spec);
656          else
657            color_mode = make_number (0);
658          set_tty_color_mode (sf, color_mode);
659        }
660    #endif /* !WINDOWSNT */
661    
662    /* We want to make sure that the next event generates a frame-switch    /* We want to make sure that the next event generates a frame-switch
663       event to the appropriate frame.  This seems kludgy to me, but       event to the appropriate frame.  This seems kludgy to me, but
664       before you take it out, make sure that evaluating something like       before you take it out, make sure that evaluating something like
# Line 1926  store_frame_param (f, prop, val) Line 1944  store_frame_param (f, prop, val)
1944          swap_in_global_binding (prop);          swap_in_global_binding (prop);
1945      }      }
1946    
1947    #ifndef WINDOWSNT
1948      /* The tty color mode needs to be set before the frame's parameter
1949         alist is updated with the new value, because set_tty_color_mode
1950         wants to look at the old mode.  */
1951      if (FRAME_TERMCAP_P (f) && EQ (prop, Qtty_color_mode))
1952        set_tty_color_mode (f, val);
1953    #endif
1954    
1955    /* Update the frame parameter alist.  */    /* Update the frame parameter alist.  */
1956    old_alist_elt = Fassq (prop, f->param_alist);    old_alist_elt = Fassq (prop, f->param_alist);
1957    if (EQ (old_alist_elt, Qnil))    if (EQ (old_alist_elt, Qnil))
# Line 2474  syms_of_frame () Line 2500  syms_of_frame ()
2500    staticpro (&Qleft_fringe);    staticpro (&Qleft_fringe);
2501    Qright_fringe = intern ("right-fringe");    Qright_fringe = intern ("right-fringe");
2502    staticpro (&Qright_fringe);    staticpro (&Qright_fringe);
2503      Qtty_color_mode = intern ("tty-color-mode");
2504      staticpro (&Qtty_color_mode);
2505    
2506    DEFVAR_LISP ("default-frame-alist", &Vdefault_frame_alist,    DEFVAR_LISP ("default-frame-alist", &Vdefault_frame_alist,
2507                 doc: /* Alist of default values for frame creation.                 doc: /* Alist of default values for frame creation.

Legend:
Removed from v.1.278  
changed lines
  Added in v.1.279

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