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);