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