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
f5ab9736
Commit
f5ab9736
authored
Apr 21, 1994
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(init_cmdargs): Just check for etc and lib-src subdirs
when setting Vinstallation_directory.
parent
996e89cd
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
23 additions
and
41 deletions
+23
-41
src/emacs.c
src/emacs.c
+23
-41
No files found.
src/emacs.c
View file @
f5ab9736
...
...
@@ -210,57 +210,39 @@ init_cmdargs (argc, argv, skip_args)
name
=
Fexpand_file_name
(
Vinvocation_name
,
dir
);
while
(
1
)
{
Lisp_Object
tem
,
lisp_exists
,
lib_src_exists
;
Lisp_Object
tem
,
lib_src_exists
;
Lisp_Object
etc_exists
,
info_exists
;
/* See if dir contains subdirs for use by Emacs. */
tem
=
Fexpand_file_name
(
build_string
(
"lisp"
),
dir
);
lisp_exists
=
Ffile_exists_p
(
tem
);
if
(
!
NILP
(
lisp_exists
))
/* See if dir contains subdirs for use by Emacs.
Check for the ones that would exist in a build directory,
not including lisp and info. */
tem
=
Fexpand_file_name
(
build_string
(
"lib-src"
),
dir
);
lib_src_exists
=
Ffile_exists_p
(
tem
);
if
(
!
NILP
(
lib_src_exists
))
{
tem
=
Fexpand_file_name
(
build_string
(
"
lib-sr
c"
),
dir
);
lib_sr
c_exists
=
Ffile_exists_p
(
tem
);
if
(
!
NILP
(
lib_sr
c_exists
))
tem
=
Fexpand_file_name
(
build_string
(
"
et
c"
),
dir
);
et
c_exists
=
Ffile_exists_p
(
tem
);
if
(
!
NILP
(
et
c_exists
))
{
tem
=
Fexpand_file_name
(
build_string
(
"etc"
),
dir
);
etc_exists
=
Ffile_exists_p
(
tem
);
if
(
!
NILP
(
etc_exists
))
{
tem
=
Fexpand_file_name
(
build_string
(
"info"
),
dir
);
info_exists
=
Ffile_exists_p
(
tem
);
if
(
!
NILP
(
info_exists
))
{
Vinstallation_directory
=
Ffile_name_as_directory
(
dir
);
break
;
}
}
Vinstallation_directory
=
Ffile_name_as_directory
(
dir
);
break
;
}
}
/* See if dir's parent contains those subdirs. */
tem
=
Fexpand_file_name
(
build_string
(
"../li
sp
"
),
dir
);
li
sp
_exists
=
Ffile_exists_p
(
tem
);
if
(
!
NILP
(
li
sp
_exists
))
tem
=
Fexpand_file_name
(
build_string
(
"../li
b-src
"
),
dir
);
li
b_src
_exists
=
Ffile_exists_p
(
tem
);
if
(
!
NILP
(
li
b_src
_exists
))
{
tem
=
Fexpand_file_name
(
build_string
(
"../
lib-sr
c"
),
dir
);
lib_sr
c_exists
=
Ffile_exists_p
(
tem
);
if
(
!
NILP
(
lib_sr
c_exists
))
tem
=
Fexpand_file_name
(
build_string
(
"../
et
c"
),
dir
);
et
c_exists
=
Ffile_exists_p
(
tem
);
if
(
!
NILP
(
et
c_exists
))
{
tem
=
Fexpand_file_name
(
build_string
(
"../etc"
),
dir
);
etc_exists
=
Ffile_exists_p
(
tem
);
if
(
!
NILP
(
etc_exists
))
{
tem
=
Fexpand_file_name
(
build_string
(
"../info"
),
dir
);
info_exists
=
Ffile_exists_p
(
tem
);
if
(
!
NILP
(
info_exists
))
{
tem
=
Fexpand_file_name
(
build_string
(
".."
),
dir
);
Vinstallation_directory
=
Ffile_name_as_directory
(
tem
);
break
;
}
}
tem
=
Fexpand_file_name
(
build_string
(
".."
),
dir
);
Vinstallation_directory
=
Ffile_name_as_directory
(
tem
);
break
;
}
}
...
...
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