From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 31 Aug 2007 07:33:10 +0000 (+0000)
Subject: (getenv_internal): Remove special case for $TERM.
X-Git-Tag: emacs-pretest-23.0.90~11178
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=44de6f61c8144e96907db79076a55d2cda933599;p=emacs.git

(getenv_internal): Remove special case for $TERM.
---

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))