diff options
| author | Karl Heuer | 1994-03-16 03:01:46 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-03-16 03:01:46 +0000 |
| commit | 36712b0a1be6d9c50172f178f0728b77b567b77a (patch) | |
| tree | 6638ccab85848d3da1dcd1a7213226c2acc1d5d5 /src | |
| parent | 7fe78b07bcf38fd80159a3e9490294dd0c08387b (diff) | |
| download | emacs-36712b0a1be6d9c50172f178f0728b77b567b77a.tar.gz emacs-36712b0a1be6d9c50172f178f0728b77b567b77a.zip | |
(Frename_file, Fcopy_file, Fadd_name_to_file, Fmake_symbolic_link): Fix typo
in previous change.
Diffstat (limited to 'src')
| -rw-r--r-- | src/fileio.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/fileio.c b/src/fileio.c index 3929cbd45b4..371d44050e9 100644 --- a/src/fileio.c +++ b/src/fileio.c | |||
| @@ -1715,8 +1715,8 @@ A prefix arg makes KEEP-TIME non-nil.") | |||
| 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) |
| @@ -1890,8 +1890,8 @@ This is what happens in interactive use with M-x.") | |||
| 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) |
| @@ -1953,8 +1953,8 @@ This is what happens in interactive use with M-x.") | |||
| 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) |
| @@ -2007,8 +2007,8 @@ This happens for interactive use with M-x.") | |||
| 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) |