(file_name_as_directory): For an empty name, return "/".

[bpt/emacs.git] / src / fileio.c

diff --git a/src/fileio.c b/src/fileio.c
index 49d7de5..6993003 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -484,11 +484,15 @@ file_name_as_directory (out, in)
 {
   int size = strlen (in) - 1;
 
-  if (size < 0)
-    error ("Empty file name");
-
   strcpy (out, in);
 
+  if (size < 0)
+    {
+      out[0] = '/';
+      out[1] = 0;
+      return out;
+    }
+
 #ifdef VMS
   /* Is it already a directory string? */
   if (in[size] == ':' || in[size] == ']' || in[size] == '>')