diff options
| author | Richard M. Stallman | 1994-06-07 15:29:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-06-07 15:29:45 +0000 |
| commit | 1a6640ec24b0d05a242b264b57e004e5fb4961ae (patch) | |
| tree | bb939ea3ba67f6a9cc4f2d1bbf8a20bade6aad6d /src | |
| parent | 7df5cd28d4ed2b46b704bf10d7238a3c6e3fdb6c (diff) | |
| download | emacs-1a6640ec24b0d05a242b264b57e004e5fb4961ae.tar.gz emacs-1a6640ec24b0d05a242b264b57e004e5fb4961ae.zip | |
(init_callproc) [MSDOS]: Exclude less code, so ../etc
is still tested for doc file.
Diffstat (limited to 'src')
| -rw-r--r-- | src/callproc.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/callproc.c b/src/callproc.c index d1cf0a1e4fc..14e34454f71 100644 --- a/src/callproc.c +++ b/src/callproc.c | |||
| @@ -847,7 +847,6 @@ init_callproc () | |||
| 847 | register char * sh; | 847 | register char * sh; |
| 848 | Lisp_Object tempdir; | 848 | Lisp_Object tempdir; |
| 849 | 849 | ||
| 850 | #ifndef MSDOS | ||
| 851 | if (initialized && !NILP (Vinstallation_directory)) | 850 | if (initialized && !NILP (Vinstallation_directory)) |
| 852 | { | 851 | { |
| 853 | /* Add to the path the lib-src subdir of the installation dir. */ | 852 | /* Add to the path the lib-src subdir of the installation dir. */ |
| @@ -856,8 +855,11 @@ init_callproc () | |||
| 856 | Vinstallation_directory); | 855 | Vinstallation_directory); |
| 857 | if (NILP (Fmember (tem, Vexec_path))) | 856 | if (NILP (Fmember (tem, Vexec_path))) |
| 858 | { | 857 | { |
| 858 | #ifndef MSDOS | ||
| 859 | /* MSDOS uses wrapped binaries, so don't do this. */ | ||
| 859 | Vexec_path = nconc2 (Vexec_path, Fcons (tem, Qnil)); | 860 | Vexec_path = nconc2 (Vexec_path, Fcons (tem, Qnil)); |
| 860 | Vexec_directory = Ffile_name_as_directory (tem); | 861 | Vexec_directory = Ffile_name_as_directory (tem); |
| 862 | #endif | ||
| 861 | 863 | ||
| 862 | /* If we use ../lib-src, maybe use ../etc as well. | 864 | /* If we use ../lib-src, maybe use ../etc as well. |
| 863 | Do so if ../etc exists and has our DOC-... file in it. */ | 865 | Do so if ../etc exists and has our DOC-... file in it. */ |
| @@ -893,7 +895,6 @@ init_callproc () | |||
| 893 | Vdata_directory = newdir; | 895 | Vdata_directory = newdir; |
| 894 | } | 896 | } |
| 895 | } | 897 | } |
| 896 | #endif | ||
| 897 | 898 | ||
| 898 | tempdir = Fdirectory_file_name (Vexec_directory); | 899 | tempdir = Fdirectory_file_name (Vexec_directory); |
| 899 | if (access (XSTRING (tempdir)->data, 0) < 0) | 900 | if (access (XSTRING (tempdir)->data, 0) < 0) |