diff options
| -rw-r--r-- | lisp/env.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/env.el b/lisp/env.el index 145c164ddde..256a3338e60 100644 --- a/lisp/env.el +++ b/lisp/env.el | |||
| @@ -31,7 +31,7 @@ | |||
| 31 | ;;; Code: | 31 | ;;; Code: |
| 32 | 32 | ||
| 33 | ;;;###autoload | 33 | ;;;###autoload |
| 34 | (defun putenv (variable &optional value) | 34 | (defun setenv (variable &optional value) |
| 35 | "Set the value of the environment variable named VARIABLE to VALUE. | 35 | "Set the value of the environment variable named VARIABLE to VALUE. |
| 36 | VARIABLE should be a string. VALUE is optional; if not provided or is | 36 | VARIABLE should be a string. VALUE is optional; if not provided or is |
| 37 | `nil', the environment variable VARIABLE will be removed. | 37 | `nil', the environment variable VARIABLE will be removed. |
| @@ -52,9 +52,6 @@ This function works by modifying `process-environment'." | |||
| 52 | (setq process-environment | 52 | (setq process-environment |
| 53 | (cons (concat variable "=" value) process-environment)))))))) | 53 | (cons (concat variable "=" value) process-environment)))))))) |
| 54 | 54 | ||
| 55 | ;; Provide backward-contemptibility. | ||
| 56 | (fset 'setenv 'putenv) | ||
| 57 | |||
| 58 | (provide 'env) | 55 | (provide 'env) |
| 59 | 56 | ||
| 60 | ;;; env.el ends here | 57 | ;;; env.el ends here |