Mercurial > emacs

changeset 15174:08937f70419e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fmsdos_long_file_names): New function. (syms_of_msdos): Defsubr it.
author Richard M. Stallman <rms@gnu.org>
date Mon, 06 May 1996 10:21:23 +0000
parents 88a496a7964c
children bd6c4ed55f9c
files src/msdos.c
diffstat 1 files changed, 8 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/msdos.c	Mon May 06 10:20:51 1996 +0000
+++ b/src/msdos.c	Mon May 06 10:21:23 1996 +0000
@@ -2225,7 +2225,13 @@
 
 #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 @@
   staticpro (&recent_doskeys);
 
   defsubr (&Srecent_doskeys);
+  defsubt (&Smsdos_long_file_names);
 }
 
 #endif /* MSDOS */