Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
279499f0
Commit
279499f0
authored
Jul 30, 1991
by
Jim Blandy
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
*** empty log message ***
parent
d5e7c279
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
25 additions
and
7 deletions
+25
-7
src/lread.c
src/lread.c
+25
-7
No files found.
src/lread.c
View file @
279499f0
...
...
@@ -1420,13 +1420,29 @@ defvar_per_buffer (namestring, address, doc)
#endif
/* standalone */
init_read
()
init_
l
read
()
{
char
*
normal
=
PATH_LOADSEARCH
;
Lisp_Object
normal_path
;
/* Compute the default load-path. */
#ifndef CANNOT_DUMP
/* If running a dumped Emacs in which load-path was set before dumping
to a nonstandard value, use that value. */
if
(
initialized
&&
!
(
XTYPE
(
Vload_path
)
==
Lisp_Cons
&&
XTYPE
(
XCONS
(
Vload_path
)
->
car
)
==
Lisp_String
&&
!
strcmp
(
XSTRING
(
XCONS
(
Vload_path
)
->
car
)
->
data
,
"../lisp"
)))
normal_path
=
Vload_path
;
else
#endif
{
normal_path
=
decode_env_path
(
""
,
normal
);
Vload_path
=
normal_path
;
}
/* Warn if dirs in the *standard* path don't exist. */
normal_path
=
decode_env_path
(
""
,
normal
);
for
(;
!
NULL
(
normal_path
);
normal_path
=
XCONS
(
normal_path
)
->
cdr
)
{
Lisp_Object
dirfile
;
...
...
@@ -1440,18 +1456,20 @@ init_read ()
}
}
Vvalues
=
Qnil
;
Vload_path
=
decode_env_path
(
"EMACSLOADPATH"
,
normal
);
if
(
egetenv
(
"EMACSLOADPATH"
))
Vload_path
=
decode_env_path
(
"EMACSLOADPATH"
,
normal
);
#ifndef CANNOT_DUMP
if
(
!
NULL
(
Vpurify_flag
))
Vload_path
=
Fcons
(
build_string
(
"../lisp"
),
Vload_path
);
#endif
/* not CANNOT_DUMP */
#endif
Vvalues
=
Qnil
;
load_in_progress
=
0
;
}
void
syms_of_read
()
syms_of_
l
read
()
{
defsubr
(
&
Sread
);
defsubr
(
&
Sread_from_string
);
...
...
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