Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3ec46acd
Commit
3ec46acd
authored
Jun 08, 1993
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(syms_of_fileio): Set up Qset_visited_file_modtime.
(Fset_visited_file_modtime): Use the proper operation.
parent
d7272cff
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
1 deletion
+3
-1
src/fileio.c
src/fileio.c
+3
-1
No files found.
src/fileio.c
View file @
3ec46acd
...
...
@@ -165,6 +165,7 @@ Lisp_Object Qfile_newer_than_file_p;
Lisp_Object
Qinsert_file_contents
;
Lisp_Object
Qwrite_region
;
Lisp_Object
Qverify_visited_file_modtime
;
Lisp_Object
Qset_visited_file_modtime
;
DEFUN
(
"find-file-name-handler"
,
Ffind_file_name_handler
,
Sfind_file_name_handler
,
1
,
1
,
0
,
"Return FILENAME's handler function, if its syntax is handled specially.
\n
\
...
...
@@ -2908,7 +2909,7 @@ An argument specifies the modification time value to use\n\
call the corresponding file handler. */
handler
=
Ffind_file_name_handler
(
filename
);
if
(
!
NILP
(
handler
))
return call3 (handler, Q
file_name_directory
, filename, Qnil);
return
call3
(
handler
,
Q
set_visited_file_modtime
,
filename
,
Qnil
);
else
if
(
stat
(
XSTRING
(
filename
)
->
data
,
&
st
)
>=
0
)
current_buffer
->
modtime
=
st
.
st_mtime
;
}
...
...
@@ -3336,6 +3337,7 @@ syms_of_fileio ()
Qinsert_file_contents
=
intern
(
"insert-file-contents"
);
Qwrite_region
=
intern
(
"write-region"
);
Qverify_visited_file_modtime
=
intern
(
"verify-visited-file-modtime"
);
Qset_visited_file_modtime
=
intern
(
"set-visited-file-modtime"
);
staticpro
(
&
Qexpand_file_name
);
staticpro
(
&
Qdirectory_file_name
);
...
...
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