From 44de6f61c8144e96907db79076a55d2cda933599 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 31 Aug 2007 07:33:10 +0000 Subject: [PATCH] (getenv_internal): Remove special case for $TERM. --- src/callproc.c | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) diff --git a/src/callproc.c b/src/callproc.c index d99dd8b90bb..3b9ef8d38e9 100644 --- a/src/callproc.c +++ b/src/callproc.c @@ -1519,7 +1519,6 @@ getenv_internal (var, varlen, value, valuelen, frame) Lisp_Object frame; { Lisp_Object scan; - Lisp_Object term; Lisp_Object display; /* FIXME: Code duplication. */ @@ -1557,15 +1556,7 @@ getenv_internal (var, varlen, value, valuelen, frame) frame = selected_frame; } - /* For TERM and 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; - } + /* For DISPLAY first try to get the values from the frame. */ display = get_frame_param (XFRAME (frame), Qdisplay_environment_variable); if (strcmp (var, "DISPLAY") == 0) if (! NILP (display)) -- 2.39.2