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
07a0bda3
Commit
07a0bda3
authored
Nov 18, 1994
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Fload): Call Fsubstitute_in_file_name after trying handler.
parent
58cabff0
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
1 deletion
+5
-1
src/lread.c
src/lread.c
+5
-1
No files found.
src/lread.c
View file @
07a0bda3
...
...
@@ -361,13 +361,17 @@ Return t if file exists.")
#endif
/* DOS_NT */
CHECK_STRING
(
str
,
0
);
str
=
Fsubstitute_in_file_name
(
str
);
/* If file name is magic, call the handler. */
handler
=
Ffind_file_name_handler
(
str
,
Qload
);
if
(
!
NILP
(
handler
))
return
call5
(
handler
,
Qload
,
str
,
noerror
,
nomessage
,
nosuffix
);
/* Do this after the handler to avoid
the need to gcpro noerror, nomessage and nosuffix.
(Below here, we care only whether they are nil or not.) */
str
=
Fsubstitute_in_file_name
(
str
);
/* Avoid weird lossage with null string as arg,
since it would try to load a directory as a Lisp file */
if
(
XSTRING
(
str
)
->
size
>
0
)
...
...
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