Mercurial > emacs
changeset 8799:e48d66b056fd
(Fdelete_file): Bind completion-ignored-extensions to nil.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 16 Sep 1994 22:17:40 +0000 |
| parents | e10362de8eba |
| children | 07c5c4f12d62 |
| files | src/fileio.c |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fileio.c Fri Sep 16 22:02:54 1994 +0000 +++ b/src/fileio.c Fri Sep 16 22:17:40 1994 +0000 @@ -150,6 +150,8 @@ static Lisp_Object Vinhibit_file_name_handlers; static Lisp_Object Vinhibit_file_name_operation; +extern Lisp_Object Qcompletion_ignored_extensions; + Lisp_Object Qfile_error, Qfile_already_exists; Lisp_Object Qfile_name_history; @@ -1902,17 +1904,19 @@ (filename) Lisp_Object filename; { + int count = specpdl_ptr - specpdl; Lisp_Object handler; CHECK_STRING (filename, 0); filename = Fexpand_file_name (filename, Qnil); + specbind (Qcompletion_ignored_extensions, Qnil); handler = Ffind_file_name_handler (filename, Qdelete_file); if (!NILP (handler)) - return call2 (handler, Qdelete_file, filename); + return unbind_to (count, call2 (handler, Qdelete_file, filename)); if (0 > unlink (XSTRING (filename)->data)) report_file_error ("Removing old name", Flist (1, &filename)); - return Qnil; + return unbind_to (count, Qnil); } DEFUN ("rename-file", Frename_file, Srename_file, 2, 3,