Use true names for invocation- and source-directory
* src/emacs.c (init_cmdargs) <Vinvocation_directory>: * src/lread.c (init_lread) <Vsource_directory>: Use true names.
This commit is contained in:
parent
c4ecc01a45
commit
6aacd4fb09
2 changed files with 6 additions and 0 deletions
|
@ -463,6 +463,9 @@ init_cmdargs (int argc, char **argv, int skip_args, char *original_pwd)
|
|||
|
||||
if (!NILP (Vinvocation_directory))
|
||||
{
|
||||
if (NILP (Vpurify_flag) && !NILP (Ffboundp (Qfile_truename)))
|
||||
Vinvocation_directory = call1 (Qfile_truename, Vinvocation_directory);
|
||||
|
||||
dir = Vinvocation_directory;
|
||||
#ifdef WINDOWSNT
|
||||
/* If we are running from the build directory, set DIR to the
|
||||
|
|
|
@ -4482,6 +4482,9 @@ load_path_default (void)
|
|||
void
|
||||
init_lread (void)
|
||||
{
|
||||
if (NILP (Vpurify_flag) && !NILP (Ffboundp (Qfile_truename)))
|
||||
Vsource_directory = call1 (Qfile_truename, Vsource_directory);
|
||||
|
||||
/* First, set Vload_path. */
|
||||
|
||||
/* Ignore EMACSLOADPATH when dumping. */
|
||||
|
|
Loading…
Add table
Reference in a new issue