# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 711833088 0
# Node ID 0bc61321ba50b47a1b777c813602c3a397c3c494
# Parent  c7b49118e1012225a8d6278898d25cc74e7f16df
*** empty log message ***

diff -r c7b49118e101 -r 0bc61321ba50 src/fileio.c
--- a/src/fileio.c	Wed Jul 22 18:20:35 1992 +0000
+++ b/src/fileio.c	Wed Jul 22 19:24:48 1992 +0000
@@ -3114,6 +3114,17 @@
 nil means use format `var'.  This variable is meaningful only on VMS.");
   vms_stmlf_recfm = 0;
 
+  DEFVAR_LISP ("file-name-handler-alist", &Vfile_name_handler_alist,
+    "*Alist of elements (REGEXP . HANDLER) for file names handled specially.\n\
+If a file name matches REGEXP, then all I/O on that file is done by calling\n\
+HANDLER.\n\
+\n\
+The first argument given to HANDLER is the name of the I/O primitive\n\
+to be handled; the remaining arguments are the arguments that were\n\
+passed to that primitive.  For example, if you do\n\
+    (file-exists-p FILENAME)\n\
+and FILENAME is handled by HANDLER, then HANDLER is called like this:\n\
+    (funcall HANDLER FILENAME)");
   defsubr (&Sfile_name_directory);
   defsubr (&Sfile_name_nondirectory);
   defsubr (&Sfile_name_as_directory);