(Fmsdos_long_file_names): New function.

(syms_of_dosfns): defsubr it.

diff --git a/src/dosfns.c b/src/dosfns.c
index 6030f0696c3f440e28a133d7100ecfe05564ccbb..11e30c0759158d56f7778cc3280194fdbfd97afa 100644 (file)
--- a/src/dosfns.c
+++ b/src/dosfns.c
@@ -241,6 +241,18 @@ Return nil if startup screen is not available.")
   return Qt;
 }
 
+DEFUN ("msdos-long-file-names", Fmsdos_long_file_names, Smsdos_long_file_names,
+  0, 0, 0,
+  "Return non-nil if long file names are supported. on MSDOS.")
+  ()
+{
+#if __DJGPP__ >= 2
+  return (! NILP (Fgetenv ("LFN")) ? Qt : Qnil);
+#else
+  return Qnil;
+#endif
+}
+
 \f
 /* country info */
 int dos_country_code;
@@ -320,6 +332,7 @@ syms_of_dosfns ()
   defsubr (&Smsdos_set_keyboard);
   defsubr (&Sinsert_startup_screen);
   defsubr (&Smsdos_mouse_disable);
+  defsubr (&Smsdos_long_file_names);
 #ifndef HAVE_X_WINDOWS
   defsubr (&Smsdos_mouse_p);
   defsubr (&Sset_mouse_position);