diff options
| author | Karoly Lorentey | 2005-12-29 01:28:33 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2005-12-29 01:28:33 +0000 |
| commit | 5990851d423fbd407f2d8cb4eb09b1fdc0b3c44e (patch) | |
| tree | 3576481025a018195a655faa39652bc57f3f2f04 /src/fileio.c | |
| parent | b2a300dc19a9449c4b8b0138937193ac36b39b1c (diff) | |
| download | emacs-5990851d423fbd407f2d8cb4eb09b1fdc0b3c44e.tar.gz emacs-5990851d423fbd407f2d8cb4eb09b1fdc0b3c44e.zip | |
Fix semantics of let-binding `process-environment'.
* lisp/env.el: Require cl for byte compilation. (For `block' and `return'.)
(read-envvar-name): Update for rename. Include `process-environment'
as well.
(setenv): Update for rename also handle `process-environment'. Update doc.
(getenv): Update doc.
(environment): New function.
(let-environment): New macro.
* lisp/font-lock.el (lisp-font-lock-keywords-2): Add `let-environment'.
* src/callproc.c (Vglobal_environment): New variable, taking over the
previous role of `Vprocess_environment', which is now something else.
(add_env): New function.
(child_setup): Use it.
(child_setup, getenv_internal): Rename Vprocess_environment to
Vglobal_environment. Handle the new Vprocess_environment.
(Fgetenv_internal, egetenv): Update doc.
(set_process_environment): Rename to `set_global_environment'. Rename
Vprocess_environment to Vglobal_environment.
(syms_of_callproc): Rename process-environment to global-environment,
add new process-environment, update docs.
* src/emacs.c (main): Call set_global_environment instead of
set_process_environment.
* fileio.c (Fread_file_name): Update comment.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-465
Diffstat (limited to 'src/fileio.c')
| -rw-r--r-- | src/fileio.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/fileio.c b/src/fileio.c index 4e9ac9541c3..add62fe5426 100644 --- a/src/fileio.c +++ b/src/fileio.c | |||
| @@ -6335,7 +6335,7 @@ and `read-file-name-function'. */) | |||
| 6335 | /* If dir starts with user's homedir, change that to ~. */ | 6335 | /* If dir starts with user's homedir, change that to ~. */ |
| 6336 | homedir = (char *) egetenv ("HOME"); | 6336 | homedir = (char *) egetenv ("HOME"); |
| 6337 | #ifdef DOS_NT | 6337 | #ifdef DOS_NT |
| 6338 | /* homedir can be NULL in temacs, since Vprocess_environment is not | 6338 | /* homedir can be NULL in temacs, since Vglobal_environment is not |
| 6339 | yet set up. We shouldn't crash in that case. */ | 6339 | yet set up. We shouldn't crash in that case. */ |
| 6340 | if (homedir != 0) | 6340 | if (homedir != 0) |
| 6341 | { | 6341 | { |