[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/fileio.c,v
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/src/fileio.c,v |
Date: |
Mon, 21 Apr 2008 21:26:03 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Stefan Monnier <monnier> 08/04/21 21:26:02
Index: fileio.c
===================================================================
RCS file: /sources/emacs/emacs/src/fileio.c,v
retrieving revision 1.615
retrieving revision 1.616
diff -u -b -r1.615 -r1.616
--- fileio.c 18 Apr 2008 02:56:42 -0000 1.615
+++ fileio.c 21 Apr 2008 21:26:02 -0000 1.616
@@ -6156,6 +6156,8 @@
return Qnil;
}
+Lisp_Object Qdefault_directory;
+
DEFUN ("read-file-name", Fread_file_name, Sread_file_name, 1, 6, 0,
doc: /* Read file name, prompting with PROMPT and completing in
directory DIR.
Value is not expanded---you must call `expand-file-name' yourself.
@@ -6279,6 +6281,8 @@
}
count = SPECPDL_INDEX ();
+ specbind (Qdefault_directory,
+ Ffile_name_as_directory (Fexpand_file_name (dir, Qnil)));
specbind (Qcompletion_ignore_case,
read_file_name_completion_ignore_case ? Qt : Qnil);
specbind (intern ("minibuffer-completing-file-name"), Qt);
@@ -6307,7 +6311,7 @@
else
#endif
val = Fcompleting_read (prompt, intern ("read-file-name-internal"),
- dir, mustmatch, insdef,
+ Qnil, mustmatch, insdef,
Qfile_name_history, default_filename, Qnil);
tem = Fsymbol_value (Qfile_name_history);
@@ -6484,6 +6488,8 @@
Qformat_decode = intern ("format-decode");
staticpro (&Qformat_decode);
+ Qdefault_directory = intern ("default-directory");
+ staticpro (&Qdefault_directory);
Qformat_annotate_function = intern ("format-annotate-function");
staticpro (&Qformat_annotate_function);
Qafter_insert_file_set_coding = intern ("after-insert-file-set-coding");
- [Emacs-diffs] Changes to emacs/src/fileio.c,v, Stefan Monnier, 2008/04/09
- [Emacs-diffs] Changes to emacs/src/fileio.c,v, Michael Albinus, 2008/04/10
- [Emacs-diffs] Changes to emacs/src/fileio.c,v, Stefan Monnier, 2008/04/12
- [Emacs-diffs] Changes to emacs/src/fileio.c,v, Juanma Barranquero, 2008/04/12
- [Emacs-diffs] Changes to emacs/src/fileio.c,v, Stefan Monnier, 2008/04/17
- [Emacs-diffs] Changes to emacs/src/fileio.c,v, Miles Bader, 2008/04/17
- [Emacs-diffs] Changes to emacs/src/fileio.c,v,
Stefan Monnier <=
- [Emacs-diffs] Changes to emacs/src/fileio.c,v, Stefan Monnier, 2008/04/23