diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-08-31 04:41:44 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-08-31 04:41:44 +0000 |
| commit | bb8ef97334b90e8f1de4a037902d969e8d1dd1de (patch) | |
| tree | 1311d39b43ccd55348e7c61e9a397caa228bc0e5 /lisp/env.el | |
| parent | 6b8e474c53700bb1d039abf8a563c042bde5e0ee (diff) | |
| download | emacs-bb8ef97334b90e8f1de4a037902d969e8d1dd1de.tar.gz | |
Trivial spacing and comment.
Diffstat (limited to 'lisp/env.el')
| -rw-r--r-- | lisp/env.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/env.el b/lisp/env.el index bebfed3fed6..51bcc12c3c1 100644 --- a/lisp/env.el +++ b/lisp/env.el @@ -192,12 +192,12 @@ a side-effect." (setq process-environment (setenv-internal process-environment variable value t)) (setq frame (frame-with-environment frame)) - (cond + (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 + (t (setq process-environment (setenv-internal process-environment variable value nil))))) value) @@ -316,5 +316,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 |