diff options
Diffstat (limited to 'src/fileio.c')
| -rw-r--r-- | src/fileio.c | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/src/fileio.c b/src/fileio.c index 4c92510178a..d1e285959e2 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -241,7 +241,7 @@ Lisp_Object Qwrite_region; static Lisp_Object Qverify_visited_file_modtime; static Lisp_Object Qset_visited_file_modtime; -DEFUE ("find-file-name-handler", Ffind_file_name_handler, +DEFUN ("find-file-name-handler", Ffind_file_name_handler, Sfind_file_name_handler, 2, 2, 0, doc: /* Return FILENAME's handler function for OPERATION, if it has one. Otherwise, return nil. @@ -302,7 +302,7 @@ use the standard functions without calling themselves recursively. */) return result; } -DEFUE ("file-name-directory", Ffile_name_directory, Sfile_name_directory, +DEFUN ("file-name-directory", Ffile_name_directory, Sfile_name_directory, 1, 1, 0, doc: /* Return the directory component in file name FILENAME. Return nil if FILENAME does not include a directory. @@ -376,7 +376,7 @@ Given a Unix syntax file name, returns a string ending in slash. */) return make_specified_string (beg, -1, p - beg, STRING_MULTIBYTE (filename)); } -DEFUE ("file-name-nondirectory", Ffile_name_nondirectory, +DEFUN ("file-name-nondirectory", Ffile_name_nondirectory, Sfile_name_nondirectory, 1, 1, 0, doc: /* Return file name FILENAME sans its directory. For example, in a Unix-syntax file name, @@ -411,7 +411,7 @@ or the entire name if it contains no slash. */) return make_specified_string (p, -1, end - p, STRING_MULTIBYTE (filename)); } -DEFUE ("unhandled-file-name-directory", Funhandled_file_name_directory, +DEFUN ("unhandled-file-name-directory", Funhandled_file_name_directory, Sunhandled_file_name_directory, 1, 1, 0, doc: /* Return a directly usable directory name somehow associated with FILENAME. A `directly usable' directory name is one that may be used without the @@ -463,7 +463,7 @@ file_name_as_directory (char *out, const char *in) return out; } -DEFUE ("file-name-as-directory", Ffile_name_as_directory, +DEFUN ("file-name-as-directory", Ffile_name_as_directory, Sfile_name_as_directory, 1, 1, 0, doc: /* Return a string representing the file name FILE interpreted as a directory. This operation exists because a directory is also a file, but its name as @@ -522,7 +522,7 @@ directory_file_name (char *src, char *dst) return 1; } -DEFUE ("directory-file-name", Fdirectory_file_name, Sdirectory_file_name, +DEFUN ("directory-file-name", Fdirectory_file_name, Sdirectory_file_name, 1, 1, 0, doc: /* Returns the file name of the directory named DIRECTORY. This is the name of the file that holds the data for the directory DIRECTORY. @@ -704,7 +704,7 @@ probably use `make-temp-file' instead, except in three circumstances: -DEFUE ("expand-file-name", Fexpand_file_name, Sexpand_file_name, 1, 2, 0, +DEFUN ("expand-file-name", Fexpand_file_name, Sexpand_file_name, 1, 2, 0, doc: /* Convert filename NAME to absolute, and canonicalize it. Second arg DEFAULT-DIRECTORY is directory to start with if NAME is relative \(does not start with slash or tilde); if DEFAULT-DIRECTORY is nil or missing, @@ -1503,7 +1503,7 @@ search_embedded_absfilename (char *nm, char *endp) return NULL; } -DEFUE ("substitute-in-file-name", Fsubstitute_in_file_name, +DEFUN ("substitute-in-file-name", Fsubstitute_in_file_name, Ssubstitute_in_file_name, 1, 1, 0, doc: /* Substitute environment variables referred to in FILENAME. `$FOO' where FOO is an environment variable name means to substitute @@ -2346,7 +2346,7 @@ This happens for interactive use with M-x. */) } -DEFUE ("file-name-absolute-p", Ffile_name_absolute_p, Sfile_name_absolute_p, +DEFUN ("file-name-absolute-p", Ffile_name_absolute_p, Sfile_name_absolute_p, 1, 1, 0, doc: /* Return t if file FILENAME specifies an absolute file name. On Unix, this is a name starting with a `/' or a `~'. */) @@ -2402,7 +2402,7 @@ check_writable (const char *filename) #endif /* not MSDOS */ } -DEFUE ("file-exists-p", Ffile_exists_p, Sfile_exists_p, 1, 1, 0, +DEFUN ("file-exists-p", Ffile_exists_p, Sfile_exists_p, 1, 1, 0, doc: /* Return t if file FILENAME exists (whether or not you can read it.) See also `file-readable-p' and `file-attributes'. This returns nil for a symlink to a nonexistent file. @@ -2449,7 +2449,7 @@ For a directory, this means you can access files in that directory. */) return (check_executable (SSDATA (absname)) ? Qt : Qnil); } -DEFUE ("file-readable-p", Ffile_readable_p, Sfile_readable_p, 1, 1, 0, +DEFUN ("file-readable-p", Ffile_readable_p, Sfile_readable_p, 1, 1, 0, doc: /* Return t if file FILENAME exists and you can read it. See also `file-exists-p' and `file-attributes'. */) (Lisp_Object filename) @@ -2571,7 +2571,7 @@ If there is no error, returns nil. */) return Qnil; } -DEFUE ("file-symlink-p", Ffile_symlink_p, Sfile_symlink_p, 1, 1, 0, +DEFUN ("file-symlink-p", Ffile_symlink_p, Sfile_symlink_p, 1, 1, 0, doc: /* Return non-nil if file FILENAME is the name of a symbolic link. The value is the link target, as a string. Otherwise it returns nil. @@ -2609,7 +2609,7 @@ points to a nonexistent file. */) return val; } -DEFUE ("file-directory-p", Ffile_directory_p, Sfile_directory_p, 1, 1, 0, +DEFUN ("file-directory-p", Ffile_directory_p, Sfile_directory_p, 1, 1, 0, doc: /* Return t if FILENAME names an existing directory. Symbolic links to directories count as directories. See `file-symlink-p' to distinguish symlinks. */) @@ -2634,7 +2634,7 @@ See `file-symlink-p' to distinguish symlinks. */) return S_ISDIR (st.st_mode) ? Qt : Qnil; } -DEFUE ("file-accessible-directory-p", Ffile_accessible_directory_p, +DEFUN ("file-accessible-directory-p", Ffile_accessible_directory_p, Sfile_accessible_directory_p, 1, 1, 0, doc: /* Return t if file FILENAME names a directory you can open. For the value to be t, FILENAME must specify the name of a directory as a file, @@ -4354,7 +4354,7 @@ choose_write_coding_system (Lisp_Object start, Lisp_Object end, Lisp_Object file return val; } -DEFUE ("write-region", Fwrite_region, Swrite_region, 3, 7, +DEFUN ("write-region", Fwrite_region, Swrite_region, 3, 7, "r\nFWrite region to file: \ni\ni\ni\np", doc: /* Write current region into specified file. When called from a program, requires three arguments: @@ -4915,7 +4915,7 @@ e_write (int desc, Lisp_Object string, int start, int end, struct coding_system return 0; } -DEFUE ("verify-visited-file-modtime", Fverify_visited_file_modtime, +DEFUN ("verify-visited-file-modtime", Fverify_visited_file_modtime, Sverify_visited_file_modtime, 0, 1, 0, doc: /* Return t if last mod time of BUF's visited file matches what BUF records. This means that the file has not been changed since it was visited or saved. @@ -5136,7 +5136,7 @@ do_auto_save_eh (Lisp_Object ignore) return Qnil; } -DEFUE ("do-auto-save", Fdo_auto_save, Sdo_auto_save, 0, 2, "", +DEFUN ("do-auto-save", Fdo_auto_save, Sdo_auto_save, 0, 2, "", doc: /* Auto-save all buffers that need it. This is all buffers that have auto-saving enabled and are changed since last auto-saved. |