Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
c2225d00
Commit
c2225d00
authored
Jun 10, 1993
by
Richard M. Stallman
Browse files
(Fload): Forward all 4 args to magic-name handler.
(syms_of_lread): Set up Qload. (Fload): Handle magic file names.
parent
e98dda89
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
19 additions
and
1 deletion
+19
-1
src/lread.c
src/lread.c
+19
-1
No files found.
src/lread.c
View file @
c2225d00
...
...
@@ -52,7 +52,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
Lisp_Object
Qread_char
,
Qget_file_char
,
Qstandard_input
,
Qcurrent_load_list
;
Lisp_Object
Qvariable_documentation
,
Vvalues
,
Vstandard_input
,
Vafter_load_alist
;
Lisp_Object
Qascii_character
;
Lisp_Object
Qascii_character
,
Qload
;
extern
Lisp_Object
Qevent_symbol_element_mask
;
...
...
@@ -318,10 +318,25 @@ Return t if file exists.")
Lisp_Object
found
;
/* 1 means inhibit the message at the beginning. */
int
nomessage1
=
0
;
Lisp_Object
handler
;
CHECK_STRING
(
str
,
0
);
str
=
Fsubstitute_in_file_name
(
str
);
/* If file name is magic, call the handler. */
handler
=
Ffind_file_name_handler
(
str
);
if
(
!
NILP
(
handler
))
{
Lisp_Object
args
[
6
];
args
[
0
]
=
handler
;
args
[
1
]
=
Qload
;
args
[
2
]
=
str
;
args
[
3
]
=
noerror
;
args
[
4
]
=
nomessage
;
args
[
5
]
=
nosuffix
;
return
Ffuncall
(
6
,
args
);
}
/* 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
)
...
...
@@ -1893,4 +1908,7 @@ or variables, and cons cells `(provide . FEATURE)' and `(require . FEATURE)'.");
Qascii_character
=
intern
(
"ascii-character"
);
staticpro
(
&
Qascii_character
);
Qload
=
intern
(
"load"
);
staticpro
(
&
Qload
);
}
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