# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739501790 0
# Node ID 95021dcb923b7b7578d810b499a22ee1105d53c5
# Parent  a9b886b3f976490b3fec24c167e868fcaf57d53e
(syms_of_fileio): Set up Qset_visited_file_modtime.
(Fset_visited_file_modtime): Use the proper operation.

diff -r a9b886b3f976 -r 95021dcb923b src/fileio.c
--- 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);