Mercurial > emacs

comparison src/fileio.c @ 6370:51a014b7c656

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Frename_file, Fcopy_file, Fadd_name_to_file, Fmake_symbolic_link): Fix typo in previous change.
author Karl Heuer <kwzh@gnu.org>
date Wed, 16 Mar 1994 03:01:46 +0000
parents 8cabc16e824f
children 62db5566c287
comparison
equal deleted inserted replaced
6369:881009b034b3 6370:51a014b7c656
1713 handler = Ffind_file_name_handler (filename); 1713 handler = Ffind_file_name_handler (filename);
1714 /* Likewise for output file name. */ 1714 /* Likewise for output file name. */
1715 if (NILP (handler)) 1715 if (NILP (handler))
1716 handler = Ffind_file_name_handler (newname); 1716 handler = Ffind_file_name_handler (newname);
1717 if (!NILP (handler)) 1717 if (!NILP (handler))
1718 return RETURN_UNGCPRO (call5 (handler, Qcopy_file, filename, newname, 1718 RETURN_UNGCPRO (call5 (handler, Qcopy_file, filename, newname,
1719 ok_if_already_exists, keep_date)); 1719 ok_if_already_exists, keep_date));
1720 1720
1721 if (NILP (ok_if_already_exists) 1721 if (NILP (ok_if_already_exists)
1722 || XTYPE (ok_if_already_exists) == Lisp_Int) 1722 || XTYPE (ok_if_already_exists) == Lisp_Int)
1723 barf_or_query_if_file_exists (newname, "copy to it", 1723 barf_or_query_if_file_exists (newname, "copy to it",
1724 XTYPE (ok_if_already_exists) == Lisp_Int); 1724 XTYPE (ok_if_already_exists) == Lisp_Int);
1888 call the corresponding file handler. */ 1888 call the corresponding file handler. */
1889 handler = Ffind_file_name_handler (filename); 1889 handler = Ffind_file_name_handler (filename);
1890 if (NILP (handler)) 1890 if (NILP (handler))
1891 handler = Ffind_file_name_handler (newname); 1891 handler = Ffind_file_name_handler (newname);
1892 if (!NILP (handler)) 1892 if (!NILP (handler))
1893 return RETURN_UNGCPRO (call4 (handler, Qrename_file, 1893 RETURN_UNGCPRO (call4 (handler, Qrename_file,
1894 filename, newname, ok_if_already_exists)); 1894 filename, newname, ok_if_already_exists));
1895 1895
1896 if (NILP (ok_if_already_exists) 1896 if (NILP (ok_if_already_exists)
1897 || XTYPE (ok_if_already_exists) == Lisp_Int) 1897 || XTYPE (ok_if_already_exists) == Lisp_Int)
1898 barf_or_query_if_file_exists (newname, "rename to it", 1898 barf_or_query_if_file_exists (newname, "rename to it",
1899 XTYPE (ok_if_already_exists) == Lisp_Int); 1899 XTYPE (ok_if_already_exists) == Lisp_Int);
1951 1951
1952 /* If the file name has special constructs in it, 1952 /* If the file name has special constructs in it,
1953 call the corresponding file handler. */ 1953 call the corresponding file handler. */
1954 handler = Ffind_file_name_handler (filename); 1954 handler = Ffind_file_name_handler (filename);
1955 if (!NILP (handler)) 1955 if (!NILP (handler))
1956 return RETURN_UNGCPRO (call4 (handler, Qadd_name_to_file, filename, 1956 RETURN_UNGCPRO (call4 (handler, Qadd_name_to_file, filename,
1957 newname, ok_if_already_exists)); 1957 newname, ok_if_already_exists));
1958 1958
1959 if (NILP (ok_if_already_exists) 1959 if (NILP (ok_if_already_exists)
1960 || XTYPE (ok_if_already_exists) == Lisp_Int) 1960 || XTYPE (ok_if_already_exists) == Lisp_Int)
1961 barf_or_query_if_file_exists (newname, "make it a new name", 1961 barf_or_query_if_file_exists (newname, "make it a new name",
1962 XTYPE (ok_if_already_exists) == Lisp_Int); 1962 XTYPE (ok_if_already_exists) == Lisp_Int);
2005 2005
2006 /* If the file name has special constructs in it, 2006 /* If the file name has special constructs in it,
2007 call the corresponding file handler. */ 2007 call the corresponding file handler. */
2008 handler = Ffind_file_name_handler (filename); 2008 handler = Ffind_file_name_handler (filename);
2009 if (!NILP (handler)) 2009 if (!NILP (handler))
2010 return RETURN_UNGCPRO (call4 (handler, Qmake_symbolic_link, filename, 2010 RETURN_UNGCPRO (call4 (handler, Qmake_symbolic_link, filename,
2011 linkname, ok_if_already_exists)); 2011 linkname, ok_if_already_exists));
2012 2012
2013 if (NILP (ok_if_already_exists) 2013 if (NILP (ok_if_already_exists)
2014 || XTYPE (ok_if_already_exists) == Lisp_Int) 2014 || XTYPE (ok_if_already_exists) == Lisp_Int)
2015 barf_or_query_if_file_exists (linkname, "make it a link", 2015 barf_or_query_if_file_exists (linkname, "make it a link",
2016 XTYPE (ok_if_already_exists) == Lisp_Int); 2016 XTYPE (ok_if_already_exists) == Lisp_Int);