Mercurial > emacs

comparison src/fileio.c @ 3598:3c4b5489d2b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* fileio.c (Frename_file): Pass all arguments to the file name handler. * eval.c (call4): New function.
author Jim Blandy <jimb@redhat.com>
date Thu, 10 Jun 1993 05:21:01 +0000
parents 95021dcb923b
children 309c27256ceb
comparison
equal deleted inserted replaced
3597:a9d02b8cec6e 3598:3c4b5489d2b4
1746 1746
1747 /* If the file name has special constructs in it, 1747 /* If the file name has special constructs in it,
1748 call the corresponding file handler. */ 1748 call the corresponding file handler. */
1749 handler = Ffind_file_name_handler (filename); 1749 handler = Ffind_file_name_handler (filename);
1750 if (!NILP (handler)) 1750 if (!NILP (handler))
1751 return call3 (handler, Qrename_file, filename, newname); 1751 return call4 (handler, Qrename_file,
1752 filename, newname, ok_if_already_exists);
1752 1753
1753 if (NILP (ok_if_already_exists) 1754 if (NILP (ok_if_already_exists)
1754 || XTYPE (ok_if_already_exists) == Lisp_Int) 1755 || XTYPE (ok_if_already_exists) == Lisp_Int)
1755 barf_or_query_if_file_exists (newname, "rename to it", 1756 barf_or_query_if_file_exists (newname, "rename to it",
1756 XTYPE (ok_if_already_exists) == Lisp_Int); 1757 XTYPE (ok_if_already_exists) == Lisp_Int);