Mercurial > emacs
diff src/fileio.c @ 9170:1d95c81487a3
(Fdelete_file): Undo Sep 16 change.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 28 Sep 1994 20:45:08 +0000 |
parents | 2190d1e7a69f |
children | c17b2a49b6ec |
line wrap: on
line diff
--- a/src/fileio.c Wed Sep 28 04:46:02 1994 +0000 +++ b/src/fileio.c Wed Sep 28 20:45:08 1994 +0000 @@ -150,8 +150,6 @@ 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; @@ -1905,19 +1903,17 @@ (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 unbind_to (count, call2 (handler, Qdelete_file, filename)); + return call2 (handler, Qdelete_file, filename); if (0 > unlink (XSTRING (filename)->data)) report_file_error ("Removing old name", Flist (1, &filename)); - return unbind_to (count, Qnil); + return Qnil; } DEFUN ("rename-file", Frename_file, Srename_file, 2, 3,