Mercurial > emacs

changeset 45546:ce01a38706ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fcall_interactively) <"D">: Supply Qfile_directory_p predicate for Fread_file_name when reading directory name. Supply Qnil for predicate in other calls to Fread_file_name.
author Kim F. Storm <storm@cua.dk>
date Mon, 27 May 2002 22:06:29 +0000
parents 6b37dbf4d2a5
children a227ea81fd67
files src/callint.c
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/callint.c	Mon May 27 22:05:51 2002 +0000
+++ b/src/callint.c	Mon May 27 22:06:29 2002 +0000
@@ -34,6 +34,7 @@
 #endif
 
 extern Lisp_Object Qcursor_in_echo_area;
+extern Lisp_Object Qfile_directory_p;
 
 Lisp_Object Vcurrent_prefix_arg, Qminus, Qplus;
 Lisp_Object Qcall_interactively;
@@ -520,17 +521,18 @@
 
 	case 'D':		/* Directory name. */
 	  args[i] = Fread_file_name (build_string (callint_message), Qnil,
-				     current_buffer->directory, Qlambda, Qnil);
+				     current_buffer->directory, Qlambda, Qnil,
+				     Qfile_directory_p);
 	  break;
 
 	case 'f':		/* Existing file name. */
 	  args[i] = Fread_file_name (build_string (callint_message),
-				     Qnil, Qnil, Qlambda, Qnil);
+				     Qnil, Qnil, Qlambda, Qnil, Qnil);
 	  break;
 
 	case 'F':		/* Possibly nonexistent file name. */
 	  args[i] = Fread_file_name (build_string (callint_message),
-				     Qnil, Qnil, Qnil, Qnil);
+				     Qnil, Qnil, Qnil, Qnil, Qnil);
 	  break;
 
 	case 'i':		/* Ignore an argument -- Does not do I/O */