/[emacs]/emacs/lisp/env.el
ViewVC logotype

Diff of /emacs/lisp/env.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by handa, Tue Feb 25 06:19:21 2003 UTC revision 1.30 by lektu, Tue May 6 17:54:41 2003 UTC
# Line 89  dollar sign." Line 89  dollar sign."
89    
90  (defun setenv (variable &optional value unset substitute-env-vars)  (defun setenv (variable &optional value unset substitute-env-vars)
91    "Set the value of the environment variable named VARIABLE to VALUE.    "Set the value of the environment variable named VARIABLE to VALUE.
92  VARIABLE should be a string.  VALUE is optional; if not provided or is  VARIABLE should be a string.  VALUE is optional; if not provided or
93  `nil', the environment variable VARIABLE will be removed.  UNSET  nil, the environment variable VARIABLE will be removed.  UNSET
94  if non-nil means to remove VARIABLE from the environment.  if non-nil means to remove VARIABLE from the environment.
95  SUBSTITUTE-ENV-VARS, if non-nil, means to substitute environment  SUBSTITUTE-ENV-VARS, if non-nil, means to substitute environment
96  variables in VALUE with `substitute-env-vars', where see.  variables in VALUE with `substitute-env-vars', where see.
# Line 126  a side-effect." Line 126  a side-effect."
126                      (memq (coding-system-base locale-coding-system) codings))                      (memq (coding-system-base locale-coding-system) codings))
127            (error "Can't encode `%s=%s' with `locale-coding-system'"            (error "Can't encode `%s=%s' with `locale-coding-system'"
128                   variable (or value "")))))                   variable (or value "")))))
129    (if unset    (if unset
130        (setq value nil)        (setq value nil)
131      (if substitute-env-vars      (if substitute-env-vars
132          (setq value (substitute-env-vars value))))          (setq value (substitute-env-vars value))))

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26