# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1188545590 0
# Node ID 4b264c073ca8e68c0f467d446eb985dd80318308
# Parent  3ef554452c8aca572164c0d0020003b96fc583e2
(getenv_internal): Remove special case for $TERM.

diff -r 3ef554452c8a -r 4b264c073ca8 src/callproc.c
--- a/src/callproc.c	Fri Aug 31 07:00:18 2007 +0000
+++ b/src/callproc.c	Fri Aug 31 07:33:10 2007 +0000
@@ -1519,7 +1519,6 @@
      Lisp_Object frame;
 {
   Lisp_Object scan;
-  Lisp_Object term;
   Lisp_Object display;
 
   /* FIXME: Code duplication.  */
@@ -1557,15 +1556,7 @@
       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))