comparison src/frame.c @ 83427:2afc49c9f0c0

Store local environment in frame (not terminal) parameters. * src/callproc.c (child_setup, getenv_internal, Fgetenv_internal): Store the local environment in a frame (not terminal) parameter. Update doc strings. (syms_of_callproc): Update doc strings. (Qenvironment): Moved to frame.c. * lisp/env.el (read-envvar-name, setenv, getenv, environment): Use frame parameters to store the local environment, not terminal parameters. * server.el (server-process-filter): Store the local environment in a frame (not terminal) parameter. Do not try to decode environment strings. * lisp/frame.el (make-frame): Set up the 'environment frame parameter, when needed. * src/frame.c (Qenvironment): Move here from callproc.c. (Fdelete_frame): Don't allow other frames to refer to a deleted frame in their 'environment parameter. (Fframe_with_environment): New function. (syms_of_frame): Defsubr it. Initialize and staticpro Qenvironment. * frame.h (Qenvironment): Declare. * lisp.h (Fframe_with_environment): EXFUN it. git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-467

83426:7c7d1f1cb2e7

Lisp_Object Qleft_fringe, Qright_fringe;
Lisp_Object Qbuffer_predicate, Qbuffer_list, Qburied_buffer_list;
Lisp_Object Qtty_color_mode;
Lisp_Object Qtty, Qtty_type;
Lisp_Object Qwindow_system;

Lisp_Object Qfullscreen, Qfullwidth, Qfullheight, Qfullboth;

Lisp_Object Qface_set_after_frame_default;

  /* Don't let echo_area_window to remain on a deleted frame.  */
  if (EQ (f->minibuffer_window, echo_area_window))
    echo_area_window = sf->minibuffer_window;

  /* Clear any X selections for this frame.  */
#ifdef HAVE_X_WINDOWS
  if (FRAME_X_P (f))
    x_clear_frame_selections (f);
#endif

	}
    }

  return unbind_to (count, Qnil);
}

DEFUN ("frame-char-height", Fframe_char_height, Sframe_char_height,
       0, 1, 0,
       doc: /* Height in pixels of a line in the font in frame FRAME.
If FRAME is omitted, the selected frame is used.

  staticpro (&Qtty);
  Qtty_type = intern ("tty-type");
  staticpro (&Qtty_type);
  Qwindow_system = intern ("window-system");
  staticpro (&Qwindow_system);
  
  Qface_set_after_frame_default = intern ("face-set-after-frame-default");
  staticpro (&Qface_set_after_frame_default);

  Qfullwidth = intern ("fullwidth");

  defsubr (&Sredirect_frame_focus);
  defsubr (&Sframe_focus);
  defsubr (&Sframe_parameters);
  defsubr (&Sframe_parameter);
  defsubr (&Smodify_frame_parameters);
  defsubr (&Sframe_char_height);
  defsubr (&Sframe_char_width);
  defsubr (&Sframe_pixel_height);
  defsubr (&Sframe_pixel_width);
  defsubr (&Sset_frame_height);

83427:2afc49c9f0c0

Lisp_Object Qleft_fringe, Qright_fringe;
Lisp_Object Qbuffer_predicate, Qbuffer_list, Qburied_buffer_list;
Lisp_Object Qtty_color_mode;
Lisp_Object Qtty, Qtty_type;
Lisp_Object Qwindow_system;
Lisp_Object Qenvironment;

Lisp_Object Qfullscreen, Qfullwidth, Qfullheight, Qfullboth;

Lisp_Object Qface_set_after_frame_default;

  /* Don't let echo_area_window to remain on a deleted frame.  */
  if (EQ (f->minibuffer_window, echo_area_window))
    echo_area_window = sf->minibuffer_window;

  /* Don't allow other frames to refer to a deleted frame in their
     'environment parameter.  */
  {
    Lisp_Object tail, frame1;
    Lisp_Object env = get_frame_param (XFRAME (frame), Qenvironment);
    FOR_EACH_FRAME (tail, frame1)
      {
        if (EQ (frame, frame1) || !FRAME_LIVE_P (XFRAME (frame1)))
          continue;
        if (EQ (frame, get_frame_param (XFRAME (frame1), Qenvironment)))
          {
            store_frame_param (XFRAME (frame1), Qenvironment, env);
            if (!FRAMEP (env))
              env = frame1;
          }
      }
  }
  
  /* Clear any X selections for this frame.  */
#ifdef HAVE_X_WINDOWS
  if (FRAME_X_P (f))
    x_clear_frame_selections (f);
#endif

	}
    }

  return unbind_to (count, Qnil);
}

DEFUN ("frame-with-environment", Fframe_with_environment, Sframe_with_environment, 0, 1, 0,
       doc: /* Return the frame that has the environment variable list for FRAME.

The frame-local environment variable list is normally shared between
frames that were created in the same Emacsclient session.  The
environment list is stored in a single frame's 'environment parameter;
the other frames' 'environment parameter is set to this frame.  This
function follows to chain of 'environment references to reach the
frame that stores the actual local environment list, and returns that
frame.  */)
     (frame)
     Lisp_Object frame;
{
  Lisp_Object hare, tortoise;

  if (NILP (frame))
    frame = selected_frame;
  CHECK_FRAME (frame);

  hare = tortoise = get_frame_param (XFRAME (frame), Qenvironment);
  while (!NILP (hare) && FRAMEP (hare))
    {
      frame = hare;
      hare = get_frame_param (XFRAME (hare), Qenvironment);
      if (NILP (hare) || !FRAMEP (hare))
        break;
      frame = hare;
      hare = get_frame_param (XFRAME (hare), Qenvironment);
      tortoise = get_frame_param (XFRAME (tortoise), Qenvironment);
      if (EQ (hare, tortoise))
        error ("Cyclic frame-local environment indirection");
    }

  return frame;
}


DEFUN ("frame-char-height", Fframe_char_height, Sframe_char_height,
       0, 1, 0,
       doc: /* Height in pixels of a line in the font in frame FRAME.
If FRAME is omitted, the selected frame is used.

  staticpro (&Qtty);
  Qtty_type = intern ("tty-type");
  staticpro (&Qtty_type);
  Qwindow_system = intern ("window-system");
  staticpro (&Qwindow_system);
  Qenvironment = intern ("environment");
  staticpro (&Qenvironment);
  
  Qface_set_after_frame_default = intern ("face-set-after-frame-default");
  staticpro (&Qface_set_after_frame_default);

  Qfullwidth = intern ("fullwidth");

  defsubr (&Sredirect_frame_focus);
  defsubr (&Sframe_focus);
  defsubr (&Sframe_parameters);
  defsubr (&Sframe_parameter);
  defsubr (&Smodify_frame_parameters);
  defsubr (&Sframe_with_environment);
  defsubr (&Sframe_char_height);
  defsubr (&Sframe_char_width);
  defsubr (&Sframe_pixel_height);
  defsubr (&Sframe_pixel_width);
  defsubr (&Sset_frame_height);