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:
Glenn Morris 2017-05-31 21:13:40 -04:00
parent c4ecc01a45
commit 6aacd4fb09
2 changed files with 6 additions and 0 deletions

View file

@ -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

View file

@ -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. */