(follow-mode): Don't run hooks twice. Use `when'.

[bpt/emacs.git] / lisp / env.el

diff --git a/lisp/env.el b/lisp/env.el
index bebfed3..128228b 100644 (file)
--- a/lisp/env.el
+++ b/lisp/env.el
@@ -192,14 +192,8 @@ a side-effect."
       (setq process-environment (setenv-internal process-environment
                                                 variable value t))
     (setq frame (frame-with-environment frame))
-    (cond 
-     ((string-equal "TERM" variable)
-      (set-frame-parameter frame 'term-environment-variable value))
-     ((string-equal "DISPLAY" variable)
-      (set-frame-parameter frame 'display-environment-variable value))
-     (t 
-      (setq process-environment (setenv-internal process-environment
-                                                variable value nil)))))
+    (setq process-environment (setenv-internal process-environment
+                                               variable value nil)))
   value)
 
 (defun getenv (variable &optional frame)
@@ -316,5 +310,5 @@ All the VALUEFORMs are evaluated before any variables are set."
 
 (provide 'env)
 
-;;; arch-tag: b7d6a8f7-bc81-46db-8e39-8d721d4ed0b8
+;; arch-tag: b7d6a8f7-bc81-46db-8e39-8d721d4ed0b8
 ;;; env.el ends here