# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 831322377 0
# Node ID a167da6476565143e947942649ea72966143bd42
# Parent  d9e712c9cc68d82e0ea1bc53e4baea42e92aed9c
(Fmsdos_long_file_names): New function.
(syms_of_dosfns): defsubr it.

diff -r d9e712c9cc68 -r a167da647656 src/dosfns.c
--- a/src/dosfns.c	Sun May 05 17:32:15 1996 +0000
+++ b/src/dosfns.c	Sun May 05 18:52:57 1996 +0000
@@ -241,6 +241,18 @@
   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
+}
+
 
 /* country info */
 int dos_country_code;
@@ -320,6 +332,7 @@
   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);