Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
6449c898
Commit
6449c898
authored
Jan 14, 1992
by
Jim Blandy
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Initial revision
parent
56a98455
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
37 additions
and
0 deletions
+37
-0
lisp/env.el
lisp/env.el
+37
-0
No files found.
lisp/env.el
0 → 100644
View file @
6449c898
;;; -*-Emacs-Lisp-*- Functions to manipulate environment variables.
;;; Copyright Free Software Foundation 1991
;;; This file is part of GNU Emacs.
;;; GNU Emacs is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 1, or (at your option)
;;; any later version.
;;; GNU Emacs is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Emacs; see the file COPYING. If not, write to
;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(
provide
'setenv
)
(
defun
setenv
(
variable
value
)
"Set the value of the environment variable named VARIABLE to VALUE.
VARIABLE and VALUE should both be strings.
This function works by modifying process-environment."
(
if
(
string-match
"="
variable
)
(
error
"name of environment variable contains an '=' character"
)
(
let
((
pattern
(
concat
"^"
(
regexp-quote
(
concat
variable
"="
))))
(
scan
process-environment
))
(
while
scan
(
cond
((
string-match
pattern
(
car
scan
))
(
setcar
scan
(
concat
variable
"="
value
))
(
setq
scan
nil
))
((
null
(
setq
scan
(
cdr
scan
)))
(
setq
process-environment
(
cons
(
concat
variable
"="
value
)
process-environment
))))))))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment