From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 6 May 1996 10:21:23 +0000 (+0000)
Subject: (Fmsdos_long_file_names): New function.
X-Git-Tag: emacs-19.34~688
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=345dd8f75a4c772e970df02014bcb42ac437d7de;p=emacs.git

(Fmsdos_long_file_names): New function.
(syms_of_msdos): Defsubr it.
---

diff --git a/src/msdos.c b/src/msdos.c
index 60cd73ae0ca..cc05323c97f 100644
--- a/src/msdos.c
+++ b/src/msdos.c
@@ -2225,7 +2225,13 @@ __write (int handle, const void *buffer, size_t count)
 
 #endif /* __DJGPP__ == 2 && __DJGPP_MINOR__ == 0 */
 
-
+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.")
+  ()
+{
+  return (_USE_LFN ? Qt : Qnil);
+}
 
 /* The Emacs root directory as determined by init_environment.  */
 
@@ -2917,6 +2923,7 @@ syms_of_msdos ()
   staticpro (&recent_doskeys);
 
   defsubr (&Srecent_doskeys);
+  defsubt (&Smsdos_long_file_names);
 }
 
 #endif /* MSDOS */