mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-08 08:43:52 -08:00
Code Issues Projects Releases Wiki Activity

renamed to env.el; changed setenv to putenv.

Browse source
This commit is contained in:
Noah Friedman 1993-03-28 07:13:09 +00:00
parent 1a2f456b73
commit 1bbda2d6e0
1 changed files with 13 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/env.el
View file

@ -1,4 +1,4 @@
;;; setenv.el --- functions to manipulate environment variables.
;;; env.el --- functions to manipulate environment variables.
;;; Copyright Free Software Foundation 1991
@ -31,24 +31,30 @@
;;; Code:
;;;###autoload
(defun setenv (variable value)
(defun putenv (variable &optional value)
"Set the value of the environment variable named VARIABLE to VALUE.
VARIABLE and VALUE should both be strings.
VARIABLE should be a string. VALUE is optional; if not provided or is
`nil', the environment variable VARIABLE will be removed.
This function works by modifying `process-environment'."
(interactive "sSet environment variable: \nsSet %s to value: ")
(if (string-match "=" variable)
(error "Environment variable name contains `='")
(error "Environment variable name `%s' contains `='" variable)
(let ((pattern (concat "\\`" (regexp-quote (concat variable "="))))
(scan process-environment))
(while scan
(cond
((string-match pattern (car scan))
(setcar scan (concat variable "=" value))
(if (eq nil value)
(setq process-environment (delq (car scan) process-environment))
(setcar scan (concat variable "=" value)))
(setq scan nil))
((null (setq scan (cdr scan)))
(setq process-environment
(cons (concat variable "=" value) process-environment))))))))
(provide 'setenv)
;; Provide backward-contemptibility.
(fset 'setenv 'putenv)
;;; setenv.el ends here
(provide 'env)
;;; env.el ends here