Mercurial > emacs
changeset 850:0bc61321ba50
*** empty log message ***
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 22 Jul 1992 19:24:48 +0000 |
parents | c7b49118e101 |
children | 9620f7edf04d |
files | src/fileio.c |
diffstat | 1 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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);