Mercurial > emacs

comparison lisp/env.el @ 584:4cd7543be581

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Mon, 16 Mar 1992 20:39:07 +0000
parents 3d2d0362a496
children 7cbd4fcd8b0f
comparison
equal deleted inserted replaced
583:3c0c1cd8428a 584:4cd7543be581
15 15
16 ;;; You should have received a copy of the GNU General Public License 16 ;;; You should have received a copy of the GNU General Public License
17 ;;; along with GNU Emacs; see the file COPYING. If not, write to 17 ;;; along with GNU Emacs; see the file COPYING. If not, write to
18 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 18 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
19 19
20 (provide 'setenv)
21
22 (defun setenv (variable value) 20 (defun setenv (variable value)
23 "Set the value of the environment variable named VARIABLE to VALUE. 21 "Set the value of the environment variable named VARIABLE to VALUE.
24 VARIABLE and VALUE should both be strings. 22 VARIABLE and VALUE should both be strings.
25 This function works by modifying process-environment." 23 This function works by modifying process-environment."
26 (if (string-match "=" variable) 24 (if (string-match "=" variable)
33 (setcar scan (concat variable "=" value)) 31 (setcar scan (concat variable "=" value))
34 (setq scan nil)) 32 (setq scan nil))
35 ((null (setq scan (cdr scan))) 33 ((null (setq scan (cdr scan)))
36 (setq process-environment 34 (setq process-environment
37 (cons (concat variable "=" value) process-environment)))))))) 35 (cons (concat variable "=" value) process-environment))))))))
36
37 (provide 'setenv)
38