Lines Matching +defs:directory +defs:predicate
211 /* Current predicate used by read_file_name_internal. */
218 start out by inserting the default directory into the minibuffer. */
225 /* On NT, specifies the directory separator character, used (eg.) when
412 DEFUN ("file-name-directory", Ffile_name_directory, Sfile_name_directory,
414 doc: /* Return the directory component in file name FILENAME.
415 Return nil if FILENAME does not include a directory.
416 Otherwise return a directory spec.
461 /* Expansion of "c:" to drive and default directory. */
491 doc: /* Return file name FILENAME sans its directory.
528 DEFUN ("unhandled-file-name-directory", Funhandled_file_name_directory,
530 doc: /* Return a directly usable directory name somehow associated with FILENAME.
531 A `directly usable' directory name is one that may be used without the
534 \(file-name-directory FILENAME).
536 get a current directory to run processes in. */)
570 /* Is it already a directory string? */
573 /* Is it a VMS directory file name? If so, hack VMS syntax. */
641 DEFUN ("file-name-as-directory", Ffile_name_as_directory,
643 doc: /* Return a string representing the file name FILE interpreted as a directory.
644 This operation exists because a directory is also a file, but its name as
645 a directory is different from its name as a file.
646 The result can be used as the value of `default-directory'
674 * Convert from directory name to filename.
753 { /* not a directory spec */
780 /* If we have the top-level of a rooted directory (i.e. xx:[000000]),
835 DEFUN ("directory-file-name", Fdirectory_file_name, Sdirectory_file_name,
837 doc: /* Returns the file name of the directory named DIRECTORY.
838 This is the name of the file that holds the data for the directory DIRECTORY.
839 This operation exists because a directory is also a file, but its name as
840 a directory is different from its name as a file.
842 On VMS, given a VMS-syntax directory name such as \"[X.Y]\",
844 (directory)
845 Lisp_Object directory;
850 CHECK_STRING (directory);
852 if (NILP (directory))
857 handler = Ffind_file_name_handler (directory, Qdirectory_file_name);
859 return call2 (handler, Qdirectory_file_name, directory);
865 buf = (char *) alloca (SBYTES (directory) + 20 + 255);
867 buf = (char *) alloca (SBYTES (directory) + 20);
869 directory_file_name (SDATA (directory), buf);
871 STRING_MULTIBYTE (directory));
1023 * If you are creating the file in the user's home directory.
1024 * If you are creating a directory rather than an ordinary file.
1037 Second arg DEFAULT-DIRECTORY is directory to start with if NAME is relative
1039 the current buffer's value of `default-directory' is used.
1044 An initial `~/' expands to your home directory.
1045 An initial `~USER/' expands to USER's home directory.
1081 /* Use the buffer's default-directory if DEFAULT_DIRECTORY is omitted. */
1083 default_directory = current_buffer->directory;
1087 /* "/" is not considered a root directory on DOS_NT, so using "/"
1090 (let (default-directory)
1152 /* We will force directory separators to be either all \ or /, so make
1355 - the relevant user directory if nm starts with ~ or ~user
1363 append it to the current working directory. */
1419 use the drive's current directory as the prefix if needed. */
1422 /* Get default directory if needed to make nm absolute. */
1560 /* Now concatenate the directory and name to new space in the stack frame */
1581 absolute directory in nm produces "//", which will then be
1746 Second arg DEFAULT is directory to start with if FILENAME is relative\n\
1748 the current buffer's value of default-directory is used.\n\
1750 initial `~/' expands to your home directory.\n\
1893 /* Now determine directory to start with and put it in NEWDIR */
1948 defalt = current_buffer->directory;
1953 /* Now concatenate the directory and name to new space in the stack frame */
2337 (directory-file-name (expand-file-name FOO)). */
2423 If NEWNAME names a directory, copy FILE there.
2635 DEFUN ("make-directory-internal", Fmake_directory_internal,
2637 doc: /* Create a new directory named DIRECTORY. */)
2638 (directory)
2639 Lisp_Object directory;
2645 CHECK_STRING (directory);
2646 directory = Fexpand_file_name (directory, Qnil);
2648 handler = Ffind_file_name_handler (directory, Qmake_directory_internal);
2650 return call2 (handler, Qmake_directory_internal, directory);
2652 encoded_dir = ENCODE_FILE (directory);
2661 report_file_error ("Creating directory", list1 (directory));
2666 DEFUN ("delete-directory", Fdelete_directory, Sdelete_directory, 1, 1, "FDelete directory: ",
2667 doc: /* Delete the directory named DIRECTORY. Does not follow symlinks. */)
2668 (directory)
2669 Lisp_Object directory;
2675 CHECK_STRING (directory);
2676 directory = Fdirectory_file_name (Fexpand_file_name (directory, Qnil));
2678 handler = Ffind_file_name_handler (directory, Qdelete_directory);
2680 return call2 (handler, Qdelete_directory, directory);
2682 encoded_dir = ENCODE_FILE (directory);
2687 report_file_error ("Removing directory", list1 (directory));
2706 build_string ("Removing old name: is a directory"),
2766 don't attempt to move directory to itself. */
3104 For a directory, this means you can access files in that directory. */)
3211 /* The read-only attribute of the parent directory doesn't affect
3212 whether a file or directory can be created within it. Some day we
3324 DEFUN ("file-directory-p", Ffile_directory_p, Sfile_directory_p, 1, 1, 0,
3325 doc: /* Return t if FILENAME names an existing directory.
3335 absname = expand_and_dir_to_file (filename, current_buffer->directory);
3350 DEFUN ("file-accessible-directory-p", Ffile_accessible_directory_p, Sfile_accessible_directory_p, 1, 1, 0,
3351 doc: /* Return t if file FILENAME names a directory you can open.
3352 For the value to be t, FILENAME must specify the name of a directory as a file,
3353 and the directory must allow you to open files in it. In order to use a
3354 directory as a buffer's current directory, this predicate must return true.
3355 A directory name spec may be given instead; then the value is t
3356 if the directory so specified exists and really is a readable and
3357 searchable directory. */)
3390 absname = expand_and_dir_to_file (filename, current_buffer->directory);
3432 absname = expand_and_dir_to_file (filename, current_buffer->directory);
3461 absname = Fexpand_file_name (filename, current_buffer->directory);
3527 absname = Fexpand_file_name (filename, current_buffer->directory);
3548 /* Setting times on a directory always fails. */
3591 absname1 = expand_and_dir_to_file (file1, current_buffer->directory);
3592 absname2 = expand_and_dir_to_file (file2, current_buffer->directory);
3958 buf->directory = current_buffer->directory;
5919 /* Don't try to create the directory when shutting down Emacs,
5920 because creating the directory might signal an error, and
6146 return (current_buffer->directory = arg);
6225 /* Brute-force speed up for directory checking:
6244 record_unwind_protect (read_file_name_cleanup, current_buffer->directory);
6245 current_buffer->directory = realdir;
6260 /* Supposedly this helps commands such as `cd' that read directory names,
6289 doc: /* Read file name, prompting with PROMPT and completing in directory DIR.
6297 pre-inserted contents or if `insert-default-directory' is nil.)
6303 DIR should be an absolute directory name. It defaults to the value of
6304 `default-directory'.
6312 (prompt, dir, default_filename, mustmatch, initial, predicate)
6313 Lisp_Object prompt, dir, default_filename, mustmatch, initial, predicate;
6324 dir = current_buffer->directory;
6406 args[6] = predicate;
6414 specbind (intern ("read-file-name-predicate"),
6415 (NILP (predicate) ? Qfile_exists_p : predicate));
6433 EQ (predicate, Qfile_directory_p) ? Qt : Qnil);
6515 Qdirectory_file_name = intern ("directory-file-name");
6516 Qfile_name_directory = intern ("file-name-directory");
6518 Qunhandled_file_name_directory = intern ("unhandled-file-name-directory");
6519 Qfile_name_as_directory = intern ("file-name-as-directory");
6521 Qmake_directory_internal = intern ("make-directory-internal");
6522 Qmake_directory = intern ("make-directory");
6523 Qdelete_directory = intern ("delete-directory");
6534 Qfile_directory_p = intern ("file-directory-p");
6536 Qfile_accessible_directory_p = intern ("file-accessible-directory-p");
6645 DEFVAR_LISP ("read-file-name-predicate", &Vread_file_name_predicate,
6646 doc: /* Current predicate used by `read-file-name-internal'. */);
6657 DEFVAR_BOOL ("insert-default-directory", &insert_default_directory,
6668 that is just the default directory.
6679 DEFVAR_LISP ("directory-sep-char", &Vdirectory_sep_char,