[Emacs-diffs] Changes to emacs/src/callint.c

[Kim F. Storm]

Index: emacs/src/callint.c
diff -c emacs/src/callint.c:1.114 emacs/src/callint.c:1.115
*** emacs/src/callint.c:1.114   Mon May 20 04:05:03 2002
--- emacs/src/callint.c Mon May 27 18:06:29 2002
***************
*** 34,39 ****
--- 34,40 ----
  #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,536 ****
  
        case 'D':               /* Directory name. */
          args[i] = Fread_file_name (build_string (callint_message), Qnil,
!                                    current_buffer->directory, Qlambda, Qnil);
          break;
  
        case 'f':               /* Existing file name. */
          args[i] = Fread_file_name (build_string (callint_message),
!                                    Qnil, Qnil, Qlambda, Qnil);
          break;
  
        case 'F':               /* Possibly nonexistent file name. */
          args[i] = Fread_file_name (build_string (callint_message),
!                                    Qnil, Qnil, Qnil, Qnil);
          break;
  
        case 'i':               /* Ignore an argument -- Does not do I/O */
--- 521,538 ----
  
        case 'D':               /* Directory name. */
          args[i] = Fread_file_name (build_string (callint_message), 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);
          break;
  
        case 'F':               /* Possibly nonexistent file name. */
          args[i] = Fread_file_name (build_string (callint_message),
!                                    Qnil, Qnil, Qnil, Qnil, Qnil);
          break;
  
        case 'i':               /* Ignore an argument -- Does not do I/O */