Mercurial > emacs
changeset 3560:95021dcb923b
(syms_of_fileio): Set up Qset_visited_file_modtime.
(Fset_visited_file_modtime): Use the proper operation.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 08 Jun 1993 01:09:50 +0000 |
| parents | a9b886b3f976 |
| children | 1c1a6e2961c2 |
| files | src/fileio.c |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fileio.c Mon Jun 07 23:57:08 1993 +0000 +++ b/src/fileio.c Tue Jun 08 01:09:50 1993 +0000 @@ -165,6 +165,7 @@ 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 @@ call the corresponding file handler. */ handler = Ffind_file_name_handler (filename); if (!NILP (handler)) - return call3 (handler, Qfile_name_directory, filename, Qnil); + return call3 (handler, Qset_visited_file_modtime, filename, Qnil); else if (stat (XSTRING (filename)->data, &st) >= 0) current_buffer->modtime = st.st_mtime; } @@ -3336,6 +3337,7 @@ 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);