Lines Matching +defs:file +defs:tail
5 This file is part of GNU Emacs.
18 along with GNU Emacs; see the file COPYING. If not, write to
3402 Lisp_Object tail, result;
3405 for (tail = x_display_name_list; ! NILP (tail); tail = XCDR (tail))
3406 result = Fcons (XCAR (XCAR (tail)), result);
4395 a (choose file) method. However, this doesn't do "the right thing"
4396 by working only if the find-file occurred during a menu or toolbar
4397 click. So we must do the file dialog by hand, using the navigation
4399 directory and whether or not we are going to choose a file.
4404 DEFUN ("x-file-dialog", Fx_file_dialog, Sx_file_dialog, 2, 5, 0,
4405 doc: /* Read file name, prompting with PROMPT in directory DIR.
4406 Use a file selection dialog.
4407 Select DEFAULT-FILENAME in the dialog's file selection box, if
4408 specified. Ensure that file exists if MUSTMATCH is non-nil.
4413 Lisp_Object file = Qnil;
4421 GCPRO6 (prompt, dir, default_filename, mustmatch, file, only_dir_p);
4537 /* If it was a saved file, we need to add the file name */
4550 file = DECODE_FILE (make_unibyte_string (filename,
4563 file = Fcompleting_read (prompt, intern ("read-file-name-internal"),
4572 if (NILP (file))
4575 return unbind_to (count, file);
4714 /* The section below is built by the lisp expression at the top of the file,