1 |
/* File IO for GNU Emacs. |
/* File IO for GNU Emacs. |
2 |
Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1996, 1997, 1998, |
Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1996, 1997, 1998, |
3 |
1999, 2000, 2001, 2003, 2004 Free Software Foundation, Inc. |
1999, 2000, 2001, 2003, 2004, 2005 Free Software Foundation, Inc. |
4 |
|
|
5 |
This file is part of GNU Emacs. |
This file is part of GNU Emacs. |
6 |
|
|
2851 |
filename = Fexpand_file_name (filename, Qnil); |
filename = Fexpand_file_name (filename, Qnil); |
2852 |
|
|
2853 |
if (!NILP (Ffile_directory_p (linkname))) |
if (!NILP (Ffile_directory_p (linkname))) |
2854 |
linkname = Fexpand_file_name (Ffile_name_nondirectory (file), linkname); |
linkname = Fexpand_file_name (Ffile_name_nondirectory (filename), linkname); |
2855 |
else |
else |
2856 |
linkname = Fexpand_file_name (linkname, Qnil); |
linkname = Fexpand_file_name (linkname, Qnil); |
2857 |
|
|