From 345dd8f75a4c772e970df02014bcb42ac437d7de Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 6 May 1996 10:21:23 +0000 Subject: [PATCH] (Fmsdos_long_file_names): New function. (syms_of_msdos): Defsubr it. --- src/msdos.c | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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 */ -- 2.39.2