Mercurial > emacs

changeset 83802:4b264c073ca8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(getenv_internal): Remove special case for $TERM.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 31 Aug 2007 07:33:10 +0000
parents 3ef554452c8a
children ddf7869d045b
files src/callproc.c
diffstat 1 files changed, 1 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- 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))