comparison src/fileio.c @ 4483:6894dd27c9ec

(expand_and_dir_to_file): Use Fdirectory_file_name.
author Richard M. Stallman <rms@gnu.org>
date Sun, 08 Aug 1993 05:17:22 +0000
parents 73b91cd2c55e
children 1fc792473491
comparison
equal deleted inserted replaced
4482:09d0f4b26641 4483:6894dd27c9ec
1524 #else 1524 #else
1525 /* Remove final slash, if any (unless path is root). 1525 /* Remove final slash, if any (unless path is root).
1526 stat behaves differently depending! */ 1526 stat behaves differently depending! */
1527 if (XSTRING (abspath)->size > 1 1527 if (XSTRING (abspath)->size > 1
1528 && XSTRING (abspath)->data[XSTRING (abspath)->size - 1] == '/') 1528 && XSTRING (abspath)->data[XSTRING (abspath)->size - 1] == '/')
1529 abspath = Fsubstring (abspath, make_number (0), 1529 /* We cannot take shortcuts; they might be wrong for magic file names. */
1530 make_number (XSTRING (abspath)->size - 1)); 1530 abspath = Fdirectory_file_name (abspath);
1531 #endif 1531 #endif
1532 return abspath; 1532 return abspath;
1533 } 1533 }
1534 1534
1535 barf_or_query_if_file_exists (absname, querystring, interactive) 1535 barf_or_query_if_file_exists (absname, querystring, interactive)