Commit 44de6f61 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(getenv_internal): Remove special case for $TERM.

parent b12f6e85
...@@ -1519,7 +1519,6 @@ getenv_internal (var, varlen, value, valuelen, frame) ...@@ -1519,7 +1519,6 @@ getenv_internal (var, varlen, value, valuelen, frame)
Lisp_Object frame; Lisp_Object frame;
{ {
Lisp_Object scan; Lisp_Object scan;
Lisp_Object term;
Lisp_Object display; Lisp_Object display;
/* FIXME: Code duplication. */ /* FIXME: Code duplication. */
...@@ -1557,15 +1556,7 @@ getenv_internal (var, varlen, value, valuelen, frame) ...@@ -1557,15 +1556,7 @@ getenv_internal (var, varlen, value, valuelen, frame)
frame = selected_frame; frame = selected_frame;
} }
/* For TERM and DISPLAY first try to get the values from the frame. */ /* For DISPLAY first try to get the values from the frame. */
term = get_frame_param (XFRAME (frame), Qterm_environment_variable);
if (strcmp (var, "TERM") == 0)
if (! NILP (term))
{
*value = (char *) SDATA (term);
*valuelen = SBYTES (term);
return 1;
}
display = get_frame_param (XFRAME (frame), Qdisplay_environment_variable); display = get_frame_param (XFRAME (frame), Qdisplay_environment_variable);
if (strcmp (var, "DISPLAY") == 0) if (strcmp (var, "DISPLAY") == 0)
if (! NILP (display)) if (! NILP (display))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment